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;
