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 - 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 ;

 

 

转载于:https://www.cnblogs.com/rogee/archive/2010/09/15/1827239.html

你可能感兴趣的:(delphi之模糊找图)