Delphi图像处理
《Delphi图像处理 -- 数据类型及内部过程》一文中定义了基本的图像数据类型及一些内部过程，本文进一步将Delphi常用的图像类型转换为图像处理所需的数据结构，为具体的Delphi图像处理过程作准备，同时也要将处理好的图像数据转换为Delphi的常用图像类型。《Delphi图像处理》系列除图像数据转换过程外，其它图像处理过程都统一使用32位ARGB像素格式。
一、获取TGraphic的图像数据。
TGraphic是Delphi的图像类基类，特别是其派生类TBitmap，更是Delphi最重要，也是最基础的图像类，它封装了Windows位图的常用操作，其它TGraphic派生类（包括一些第三方派生类）都可以转换为TBitmap，因此，获取了TBitmap的图像数据，也就获取了TGraphic派生类的图像数据。
有多个方法获取TBitmap的图像数据，一是直接在TBitmap的扫描线上操作，其好处是图像处理后直接反映在TBitmap中，不必再进行转换，缺点是由于本图像处理系列采用了统一的32位ARGB像素格式，所以必须设置TBitmap.PixelFormat属性，如此一来，势必破坏了原图像像素格式，而且除原32位图像外，实际上也进行了一次图像数据拷贝；二是不破坏TBitmap的像素格式，直接在TBitmap.ScanLine中解析拷贝图像数据，这是间接的TBitmap图像数据处理，处理完毕，有可能要转换为新的TBitmap；三是，用TBitmap.Handle属性借助Windows API进行数据转换，这种方式与第二种方式差不多，《Delphi图像处理 -- 真彩色图像转换为低色彩图像》一文中就是采用的这种方式。本文采用前2种方式获取TBitmap图像数据，具体采用何种方式由具体情况而定。下面是实现代码：
过程定义：
// 获取Graphic的图像数据。必须用FreeImageData释放数据结构
function GetImageData(Graphic: TGraphic): TImageData; overload;
// 获取Bitmap的图像数据。如果IsCopyData=True，复制Bitmap数据，
// 用FreeImageData释放数据结构，否则，Bitmap转换为32位后直接操作扫描线
function GetImageData(Bitmap: TBitmap; IsCopyData: Boolean): TImageData; overload;
// 拷贝Source到32位Dest。如果是8位或者4位Source，必须要有相应的颜色表Colors
procedure CopyImageDatafrom(var Dest: TImageData;
const Source: TImageData; Colors: PRGBQuad = nil);
// 拷贝32位Source到32 or 24位Dest。
实现代码：
// 填充Alpha通道
procedu
相关文档：
利用Windows API函数WritePrivateProfileString 和GetPrivateProfileString可对.INI文件进行读写操作。其实，对.INI文件的读写完全可以利用Delphi的内置函数来实现。下面就介绍一些对.INI文件读写时相关的类及其属性方法。
1、TIniFile对象
以Delphi中，定义了一个TIniFile对象，将.INI文件封装在其中，并提供一些方法� ......
有时需要使用透明控件用于捕获鼠标消息
1.调用Windows2000,xp新的API函数实现这一功能的过程。使用SetLayeredWindowAttributes
2.直接设置控件的alphablend,alphablendvalue，间接调用上述api.
3.使用TStaticText控件
procedure WMCtrlColor(var Message: TWMCtlColor); message WM_CTLCOLOR;
procedure TForm3.WMCtr ......
Unt_Machine_WebDll.pas
BODY {background: #FFFFFF}
A:link { color: #0000FF}
A:visited { color: #0000FF}
A:Active { color: #0000FF}
.bold {font-weight: bold}
.italic {font-style: italic}
.underline {text-decoration: underline}
unit Unt_Machine_WebDll;
{$WARN SYMBOL_PLATFORM OF ......
制作圆角矩形的窗体：
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandle;
03.begin
04.hr:=createroundrectrgn(0,0,width,height,20,20);
05.setwindowrgn(handle,hr,true);
06.end;
如果不要窗体外框，则使用：
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandl ......
前言
尽三年来，本人陆续写了六十多篇BOLO文章，其中绝大部分是有关图像处理的，因此，有人戏称我为图像处理专家（或GDI+专家），此戏称当然是对我的赞扬，但我自己却觉得略含一丝丝贬义，即除了图像处理，别的方面（如网络、数据库等）都不咋的，事实也确实如此。
我是一名机关工 ......
