• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

delphi之模糊找图

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

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;

 

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
【MATLAB深度学习】单层神经网络 - zengw20发布时间:2022-07-18
下一篇:
matlab练习程序(渲染三原色)发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap