先把它们转换成Bmp格式
然后
var
dx,dy:integer;
begin
for dx:=0 to Image1.Picture.Bitmap.Width-1 do
for dy:=0 to Image1.Picture.Bitmap.Height-1 do
if Image1.Picture.Bitmap.Canvas.Pixels[dx,dy]<>Image2.Picture.Bitmap.Canvas.Pixels[dx,dy] then
begin
showmessage('两幅图像不相同!');
exit;
end;
showmessage('两幅图像相同!');
end;