delphi的一个ScanLine内存找子图的函数,不知道有没有问题。

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;


本文出自 “RZL_01的博客” 博客,请务必保留此出处http://rzl01.blog.51cto.com/3004337/1605263

delphi的一个ScanLine内存找子图的函数,不知道有没有问题。

上一篇:NFC 与 Windows Phone 的那点事儿


下一篇:cisco wlc 4402结合windows 2003 acs4.2的用户认证和web页面认证的配置