Delphi下实现全屏快速找图找色.docVIP

Delphi下实现全屏快速找图找色 前言 　　最近有好几个朋友都在问我找图找色的问题，奇怪？于是乎写了一个专门用于找图找色的单元文件“BitmapData.pas”。在这个单元文件中我实现了从文件中导入位图、屏幕截图、鼠标指针截图、在图片上查找子图、在图片上查找颜色等功能。在查找过程中可以设定颜色变化范围、可以从左到右从上到下查找、也可以从指定点向四周查找。关于这个文件的下载和使用，可以参考本文的第四节。下面详细说说这些功能的实现。 一、数据提取 　　位图其实可以看成是一个由象素组成的矩阵，找图找色可以看成是象素值的比对。很多新手在设计这类的程序时喜欢使用TBitmap.Canvas.Pixels属性，这个属性其实是对API函数GetPixel的封装，这个函数执行速度是很慢的，主要用来对位图象素进行偶尔的访问。而比对过程中需要对象素进行频繁的访问，造成程序运行缓慢。另外一种方法是使用TBitmap.ScanLine属性，利用它可以直接访问位图的数据。但是这些数据和当前位图的格式有关，主要是色深方面的问题，不同的色深会有不同格式的数据。另外比对过程中也需要对该属性进行频繁的调用。由于比对过程完全是数据的比较，不需要进行绘制操作。所以可以一次性将位图的数据提取出来放置到一个缓冲区中再进行比对，这样程序的性能会更高，也便于查找算法的实现。这时可以调用API函数GetDIBits获得设备无关位图的RGB数据，其实ScanLine属性也是调用这个函数实现的。GetDIBits函数格式声明如下： function GetDIBits( DC: HDC; //设备上下文句柄； Bitmap: HBitmap; //位图句柄，注意不是TBitmap对象； StartScan, //开始检索的第一条扫描线； NumScans: UINT; //共检索的扫描线数； Bits: Pointer; //数据缓冲区指针； var BitInfo: TBitmapInfo; //位图信息结构，此结构确定了设备无关位图的数据格式； Usage: UINT //指定TBitmapInfo结构的bmiColors成员的格式。 ): Integer; stdcall; 　　其中TBitmapInfo结构的格式如下： tagBITMAPINFO = packed record bmiHeader: TBitmapInfoHeader; //位图信息头，该结构用于说明位图的格式； bmiColors: array[0..0] of TRGBQuad; //颜色表，给出调色板数据。 end; 　　在上述结构中主要使用bmiHeader成员，TBitmapInfoHeader结构的格式如下： tagBITMAPINFOHEADER = packed record biSize: DWORD;　　　　//当前结构的大小； biWidth: Longint; //以像素为单位，给出该结构所描述位图的宽度； biHeight: Longint; //以像素为单位，给出该结构所描述位图的高度； biPlanes: Word; //目标设备的平面数，必须为1； biBitCount: Word; //每个像素所需要的位数，当图像为真彩色时，该成员的取值为24； biCompression: DWORD; //位图的压缩类型，若该成员的取值为BI_RGB，则图像数据没有经过压缩处理； biSizeImage: DWORD; //以字节为单位，给出图像数据的大小，若图像为BI_RGB位图，则该成员的值必须设为0； biXPelsPerMeter: Longint; //以每米像素数为单位，给出位图水平方向的分辨率； biYPelsPerMeter: Longint; //以每米像素数为单位，给出位图垂直方向的分辨率； biClrUsed: DWORD; //位图实际使用的颜色表中的颜色变址数； biClrImportant: DWORD; //位图显示过程中重要颜色的变址数。 end; 　　在上面两个结构中，bmiColours成员指向一个颜色表，它包含多少个表项是由bmiHeader.biBitCount成员定义。当该成员的取值为24时，则颜色表中的表项为空。当biBitCount取值24同时biCompression取值BI_RGB时表示当前位图为24位真彩色无压缩位图。这