function TForm1.findimg(pBmpMain,pBmpSub: TBitmap) :Boolean; var Pmain,psub,ptmp: PByteArray; x,y,z:Integer; b: boolean; begin result:=false; b:=false; for y:=0 to pBmpMain.Height-pBmpSub.Height do begin Pmain := pBmpMain.ScanLine[y]; psub := pBmpSub.ScanLine[0]; for x:=0 to pBmpMain.Width-pBmpSub.Width do begin b:=CompareMem(@Pmain[x*3],psub,sizeof(@psub)); if b then begin for z := 0 to pBmpSub.Height - 1 do begin Pmain := pBmpMain.ScanLine[y+z]; psub := pBmpSub.ScanLine[z]; b:=CompareMem(@Pmain[x*3],psub,pBmpSub.Width * 3); if not b then break; end; if b then Break; end; if b then break; end; if b then break; end; result:=b; end;
delphi的一个ScanLine内存找子图的函数,不知道有没有问题。
原创
©著作权归作者所有:来自51CTO博客作者RZL_01的原创作品,请联系作者获取转载授权,否则将追究法律责任
![](https://ucenter.51cto.com/images/noavatar_middle.gif)
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
#HarmonyOS NEXT体验官# 鸿蒙next 数据持久化 你不知道的事情数据 持久化 首选项
-
Vue 组件你不知道的一个细节
在h5的table中,比如我们想要<table>中有<tbody>,<tbo
vue html Vue HTML -
你不知道的forEach函数
在箭头函数中,this关键字引用的是定义该函数时所在的对象。在普通函数中,this关键字引用的是调用该函数的对象。如果需要确保thi
前端 javascript 开发语言 作用域 数组 -
人生四大境界:不知道自己不知道 知道自己不知道 不知道自己知道 知道自己知
山涉水,终于来到一株苹果树下。它根本就不知道
人生 规划 职业生涯 3d html