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;