Побитовые операции с памятью

function FindInRegionMemCmp(var Src:TBitmap; x,y,dx,dy:Integer; var Sample:TBitmap):TPoint;
var i,j,i2,j2:Integer; Dif:Boolean;
begin
Result:=Point(-1,-1);
if (Sample=nil) or (x>=dx) or (y>=dy) or (x<0) or (y<0) then Exit;
if (Sample.Width>(dx-x)) or (Sample.Height>(dy-y)) then Exit;
if Src=nil then Exit;
 
Src.PixelFormat:=pf24bit;
Sample.PixelFormat:=pf24bit;
 
for i:=x to dx-Sample.Width do for j:=y to dy-Sample.Height do begin
 
for j2:=j to j+Sample.Height-1 do begin
Dif:=not CompareMem(Pointer(DWORD(Src.ScanLine[j2])+i*3),Pointer(Sample.ScanLine[j2-j]),Sample.Width*3);
if Dif then Break; end;
 
if not Dif then begin Result.X:=i; Result.Y:=j; Exit; end;
end;
end;

function FindInRegion(var Src:TBitmap; x,y,dx,dy:Integer; var Sample:TBitmap; HasTransparentColor:Boolean=False; TransparentColor:TColor=clFuchsia):TPoint;
var i,j,i2,j2:Integer; Dif:Boolean; tc:Pointer;
begin
Result:=Point(-1,-1);
if (Sample=nil) or (x>=dx) or (y>=dy) or (x<0) or (y<0) then Exit;
if (Sample.Width>(dx-x)) or (Sample.Height>(dy-y)) then Exit;
if Src=nil then Exit;
 
GetMem(tc,3);
PByte(DWORD(tc)+2)^:=Byte(TransparentColor);
PByte(DWORD(tc)+1)^:=Byte(TransparentColor shr 8);
PByte(DWORD(tc))^:=Byte(TransparentColor shr 16);
 
for i:=x to dx-Sample.Width do for j:=y to dy-Sample.Height do begin
Dif:=False;
for i2:=0 to Sample.Width-1 do begin for j2:=0 to Sample.Height-1 do begin
Dif:=not CompareMem(Pointer(DWORD(Src.ScanLine[j+j2])+(i+i2)*3),Pointer(DWORD(Sample.Scanline[j2])+i2*3),3) or (HasTransparentColor and (CompareMem(tc,Pointer(DWORD(Sample.Scanline[j2])+i2*3),3)));
if Dif then Break; end;
if Dif then Break; end;
if not Dif then begin Result.X:=i; Result.Y:=j; FreeMem(tc); Exit; end;
end;
FreeMem(tc);
end;

function TBitmap.GetScanLine(Row: Integer): Pointer;
begin
  Changing(Self);
  with FImage.FDIB, dsbm, dsbmih do
  begin
    if (Row < 0) or (Row >= bmHeight) then
      InvalidOperation(@SScanLine);
    DIBNeeded;
    GDIFlush;
    if biHeight > 0 then  // bottom-up DIB
      Row := biHeight - Row - 1;
    Integer(Result) := Integer(bmBits) +
      Row * BytesPerScanline(biWidth, biBitCount, 32);
  end;
end;

function FindInRegion(var Src:TBitmap; x,y,dx,dy:Integer; var Sample:TBitmap; HasTransparentColor:Boolean=False; TransparentColor:TColor=clFuchsia):TPoint;
var i,j,i2,j2:Integer; Dif:Boolean; tc:PDWORD; SSRc,SSample:array of Pointer;
begin
Result:=Point(-1,-1);
if (Sample=nil) or (x>=dx) or (y>=dy) or (x<0) or (y<0) then Exit;
if (Sample.Width>(dx-x)) or (Sample.Height>(dy-y)) then Exit;
if Src=nil then Exit;
 
Src.PixelFormat:=pf32Bit; Sample.PixelFormat:=pf32Bit;
 
SetLength(SSrc,Src.Height-1);
for i:=0 to Src.Height-1 do SSrc[i]:=Src.ScanLine[i];
SetLength(SSample,Sample.Height-1);
for i:=0 to Sample.Height-1 do SSample[i]:=Sample.ScanLine[i];
 
GetMem(tc,4);
PByte(tc)^:=Byte(TransparentColor shr 16);
PByte(DWORD(tc)+1)^:=Byte(TransparentColor shr 8);
PByte(DWORD(tc)+2)^:=Byte(TransparentColor);
PByte(DWORD(tc)+3)^:=$00;
 
for i:=x to dx-Sample.Width-1 do for j:=y to dy-Sample.Height-1 do begin
Dif:=False;
for i2:=0 to Sample.Width-1 do begin for j2:=0 to Sample.Height-1 do begin
Dif:=not((PDWORD(DWORD(SSrc[j+j2])+(i+i2)*4)^=PDWORD(Pointer(DWORD(SSample[j2])+i2*4))^) or (HasTransparentColor and ((tc^=PDWORD(DWORD(SSample[j2])+i2*4)^))));
if Dif then Break; end;
if Dif then Break; end;
if not Dif then begin Result.X:=i; Result.Y:=j; SetLength(SSrc,0); SetLength(SSample,0); FreeMem(tc); Exit; end;
end;
SetLength(SSrc,0); SetLength(SSample,0); FreeMem(tc);
end;

Src.PixelFormat:=pf32Bit;
Sample.PixelFormat:=pf32Bit;

function FindInRegion(var Src:TBitmap; x,y,dx,dy:Integer; var Sample:TBitmap; HasTransparentColor:Boolean=False; TransparentColor:TColor=clFuchsia):TPoint;
var
  i,j,i2,j2,SrcWx4,SamWx4,SHm1,SWm1,buf1,buf2,buf3:Integer;
  Dif:Boolean; TransparentColorBGRA:DWORD; PSrc,PSample:Pointer;
begin
Result:=Point(-1,-1);
if (Sample=nil) or (x>=dx) or (y>=dy) or (x<0) or (y<0) then Exit;
if (Sample.Width>(dx-x)) or (Sample.Height>(dy-y)) then Exit;
if Src=nil then Exit;
 
Src.PixelFormat:=pf32Bit; Sample.PixelFormat:=pf32Bit;
SrcWx4:=Src.Width*4;
SamWx4:=Sample.Width*4;
SHm1:=Sample.Height-1;
SWm1:=Sample.Width-1;
 
PSrc:=Src.ScanLine[Src.Height-1];
PSample:=Sample.ScanLine[Sample.Height-1];
 
TransparentColorBGRA:=TransparentColor;
asm
mov eax,TransparentColorBGRA
and eax,$00FFFFFF
bswap eax
ror eax,8
mov TransparentColorBGRA,eax
end;
 
for j:=Src.Height-Sample.Height-y downto Src.Height-dy do begin
buf1:=DWORD(PSrc)+j*SrcWx4;
for i:=x to dx-Sample.Width do begin
Dif:=False;
for j2:=0 to SHm1 do begin
buf3:=DWORD(PSample)+j2*SamWx4;
buf2:=j2*SrcWx4;
for i2:=0 to SWm1 do begin
Dif:=(PDWORD(buf1+buf2+(i+i2)*4)^<>PDWORD(buf3+i2*4)^) and not (HasTransparentColor and (TransparentColorBGRA=PDWORD(buf3+i2*4)^));
if Dif then Break; end;
if Dif then Break; end;
if not Dif then begin Result.X:=i; Result.Y:=Src.Height-j-j2; Exit; end;
end; end;
end;