var
dx,dy:integer;
bl:integer;
bitmap1,bitmap2:Tbitmap;
begin
bl:=0;
bitmap1:=Image1.Picture.Bitmap;
bitmap2:=Image2.Picture.Bitmap;
for dx:=0 to Bitmap1.Width do
for dy:=0 to Bitmap1.Height do
if Bitmap1.Canvas.Pixels[dx,dy]=Bitmap2.Canvas.Pixels[dx,dy] then
bl:=bl+1;
showmessage(inttostr(bl));
end;
图片必须是BMP类型的