[转载]delphi之精确找图 – devlyn – 博客园

来源: [转载]delphi之精确找图 – devlyn – 博客园

以前一直以为找图比较难,后来看了AutoHotkey的源码,原来也就是笨方法。

以下是精确的找图。因为已经很快,没再做优化处理。注意我这里去掉了透明处理,需要的自己加上吧。

//精确判断,在大图里的(x,y)位置上是不是小图?

function BmpCmp(bmpBig,bmp:TBitmap;x,y:integer):boolean;

var

i,j:integer;

row1, row2:pRGBTripArray;

p1,p2: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];

if (p1.rgbtBlue<>p2.rgbtBlue) or (p1.rgbtGreen<>p2.rgbtGreen)

or (p1.rgbtRed<>p2.rgbtRed) then

begin

result:=false;

exit;

end;

end;

end;

end;

 

以下是精确找图, 调用精确判断

// 精确找图,在大图里的(x1,y1)和(x2,y2)中找出小图来?

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

//    bmpFindX:integer;

//    bmpFindY:integer;

function BmpFind(bmpBig,bmp:TBitmap;x1,y1,x2,y2:integer):Boolean;

var

i,j,x,y:integer;

row, row1, row2:pRGBTripArray;

p0,p,p1,p2:TRGBTriple;

begin

if x1+y1+x2+y2=0 then

begin

x1:=0;

y1:=0;

x2:=bmpBig.Width-1;

y2:=bmpBig.Height-1;

end;

row:=bmp.ScanLine[0];

p0:=row[0];

for y:=y1 to y2-1 do

begin

row:=bmpBig.ScanLine[y];

for x:=x1 to x2-1 do

begin

p:=row[x];

if (bmp.Width<=x2-x) and (bmp.Height<=y2-y)

and (p.rgbtBlue=p0.rgbtBlue) and (p.rgbtGreen=p0.rgbtGreen)

and (p.rgbtRed=p0.rgbtRed) then

begin

if BmpCmp(bmpBig,bmp,x,y) then

begin

result:=true;

bmpFindX:=x;

bmpFindY:=y;

exit;

end;

end; // end if

end; // end for x

end; // end for y

result:=false;

end;

分享到: 更多 (0)