delphi之模糊找图

AutoHotkey的源码，模糊找图和精确找图思路一样，也是用笨方法。原来的C代码比较难看懂，这里的delphi代码，很容易弄明白。

以下是模糊的找图。如果需要，可以再做优化处理。注意我这里去掉了透明处理，需要的自己加上吧。

因为用到了iif函数，别忘了uses IdGlobal;

// 模糊判断，在大图里的(x,y)位置上是不是小图？

// 其中nV是R,G,B的偏差值，0..255

function BmpCmpEx(bmpBig,bmp:TBitmap;x,y:integer;nV:byte):boolean;

var

i,j:integer;

row1, row2:pRGBTripArray;

p1,p2:TRGBTriple;

pLow,pHigh:TRGBTriple;

begin

result:=true;

for j:=0 to bmp.Height-1 do

begin

row1:=bmpBig.ScanLine[y+j];

row2:=bmp.ScanLine[j];

for i:= 0 to bmp.Width-1 do

begin

p1:=row1[x+i];

p2:=row2[i];

// uses IdGlobal, 如果使用IfThen代替iif, Uses Math

pLow.rgbtRed := iif(nV > p2.rgbtRed, 0 , p2.rgbtRed - nV);

pLow.rgbtGreen := iif(nV > p2.rgbtGreen, 0 , p2.rgbtGreen - nV);

pLow.rgbtBlue := iif(nV > p2.rgbtBlue , 0 , p2.rgbtBlue - nV);

pHigh.rgbtRed := iif((nV > $FF - p2.rgbtRed) , $FF , p2.rgbtRed + nV);

pHigh.rgbtGreen := iif((nV > $FF - p2.rgbtGreen) , $FF , p2.rgbtGreen + nV);

pHigh.rgbtBlue := iif((nV > $FF - p2.rgbtBlue) , $FF , p2.rgbtBlue + nV);

if not ((p1.rgbtRed>=pLow.rgbtRed) and (p1.rgbtRed<=pHigh.rgbtRed)

and (p1.rgbtGreen>=pLow.rgbtGreen) and (p1.rgbtGreen<=pHigh.rgbtGreen)

and (p1.rgbtBlue>=pLow.rgbtBlue) and (p1.rgbtBlue<=pHigh.rgbtBlue)) then

begin

result:=false;

exit;

end;

end;

end;

end;

以下是模糊找图， 调用模糊判断

// 模糊找图，在大图里的(x1,y1)和(x2,y2)中找出小图来？

// 其中nV是R,G,B的偏差值，0..255

// 当返回true时，以下变量存放找到的位置

// bmpFindX:integer;

// bmpFindY:integer;

function BmpFindEx(bmpBig,bmp:TBitmap;x1,y1,x2,y2:integer;nV:byte):Boolean;

var

x,y:integer;

begin

if x1+y1+x2+y2=0 then

begin

x1:=0;

y1:=0;

x2:=bmpBig.Width-1;

y2:=bmpBig.Height-1;

end;

for y:=y1 to y2-1 do //行

begin

if bmp.Height>y2-y then //高度不够，失败了

break;

for x:=x1 to x2-1 do //列

begin

if (bmp.Width>x2-x) then //宽度不够，本行完成检查了

break;

begin

if BmpCmpEx(bmpBig,bmp,x,y,nV) then

begin

result:=true;

bmpFindX:=x;

bmpFindY:=y;

exit;

end;

end; // end if

end; // end for x

end; // end for y

result:=false; // 到这里就是失败

end;