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

delphi之精确找图

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

以前一直以为找图比较难,后来看了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人参与评论

请发表评论

全部评论

专题导读
上一篇:
转载--MATLAB 之MATLAB2016b 安装破解教程发布时间: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