На два года опоздал,но все равно.
Вот.
Сравнение 32битных битмапов
| Код |
type
tcbp=function(bmp:tbitmap;x,y,pc,ud:cardinal):bool;stdcall;
function CmpBmp(bmp1,bmp2:TBitmap;pc:cardinal;cbp:tcbp;ud:cardinal):boolean;
var
xn,yn,
adr1,adr2,
linesize1,
linesize2:cardinal;
begin
if not Assigned(bmp1) or not Assigned(bmp2) or not Assigned(cbp)or(pc=0)or(pc>8192)then
begin
result:=false;
exit;
end;
if bmp2.PixelFormat<>pf32bit then bmp2.PixelFormat:=pf32bit;
xn:=bmp2.Width div pc;
if bmp2.Width>xn*pc then
begin
inc(xn);
bmp2.Width:=xn*pc;
end;
yn:=bmp2.Height div pc;
if bmp2.Height>yn*pc then
begin
inc(yn);
bmp2.Height:=yn*pc;
end;
if bmp1.PixelFormat<>bmp2.PixelFormat then bmp1.PixelFormat:=bmp2.PixelFormat;
if bmp1.Width<>bmp2.Width then bmp1.Width:=bmp2.Width;
if bmp1.Height<>bmp2.Height then bmp1.Height:=bmp2.Height;
if bmp2.Height=1 then
begin
linesize1:=bmp2.Width*4;
linesize2:=linesize1;
end else
begin
linesize1:=cardinal(bmp1.ScanLine[0])-cardinal(bmp1.ScanLine[1]);
linesize2:=cardinal(bmp2.ScanLine[0])-cardinal(bmp2.ScanLine[1]);
end;
pointer(adr1):=bmp1.ScanLine[bmp1.Height-1];
pointer(adr2):=bmp2.ScanLine[bmp2.Height-1];
asm
pushad
mov eax,linesize1
mul pc
mov ebx,eax
mov eax,linesize2
mul pc
mov edx,esp
sub esp,32
mov [edx-28],ebx
mov [edx-32],eax
mov ebx,adr1
mov [edx-20],ebx
mov ebx,adr2
mov [edx-24],ebx
mov eax,pc
shl eax,2
mov ecx,yn
@a:
push ecx
mov ecx,xn
mov ebx,[edx-20]
mov [edx-12],ebx
mov ebx,[edx-24]
mov [edx-16],ebx
@b:
push ecx
mov ecx,pc
mov ebx,[edx-12]
mov [edx-4],ebx
mov ebx,[edx-16]
mov [edx-8],ebx
@c:
push ecx
mov ecx,pc
mov esi,[edx-4]
mov edi,[edx-8]
repe cmpsd
jz @d
pushad
push ud
push pc
mov ebx,[edx-12]
sub ebx,[edx-20]
shr ebx,2
mov eax,[edx-36]
dec eax
mul pc
push eax
push ebx
push bmp1
call cbp
cmp eax,0
popad
jz @br2
add esp,4
jmp @br1
@d:
mov ebx,linesize1
add [edx-4],ebx
mov ebx,linesize2
add [edx-8],ebx
pop ecx
loop @c
@br1:
add [edx-12],eax
add [edx-16],eax
pop ecx
loop @b
mov ebx,[edx-28]
add [edx-20],ebx
mov ebx,[edx-32]
add [edx-24],ebx
pop ecx
loop @a
@br2:
mov esp,edx
popad
end;
result:=true;
end;
|
| Код |
function cbp(bmp:tbitmap;x,y,pc,ud:cardinal):bool;stdcall;
begin
BitBlt(form1.Canvas.Handle,x,y,pc,pc,bmp.Canvas.Handle,x,y,SRCCOPY);
result:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
var bmp1,bmp2:tbitmap;
begin
bmp1:=TBitmap.Create;
bmp2:=TBitmap.Create;
bmp1.LoadFromFile('1.bmp');
bmp2.LoadFromFile('2.bmp');
CmpBmp(bmp1,bmp2,50,cbp,0);
end;
|
|
)