¿Cómo verificar que 2 imagenes son iguales o distintas?

[deliriun]

También estoy usando un Timer

procedure TForm5.Button1Click(Sender: TObject);
begin
if Image1.Picture.Bitmap.Canvas.Pixels[0,0] = Image2.Picture.Bitmap.Canvas.Pixels[0,0] then
       begin
       showMessage('Iguales');


 End;
end;

procedure TForm5.Timer1Timer(Sender: TObject);
begin
Image1.Picture.LoadFromFile('E:\Test.bmp');
end;

Y estoy editando Test.bmp constantemente pero siempre me sale el mensaje

[tmsanchez]

Intenta lo que mencionan aquí:

http://stackoverflow.com/questions/1...s-are-the-same

Saludos.

[Casimiro Notevi]

Empezado por tmsanchez

Intenta lo que mencionan aquí:
http://stackoverflow.com/questions/1...s-are-the-same
Saludos.

Esa forma es más eficiente que el doble bucle

[cloayza]

Y porque no obtener el hash md5 o sha de ambas y comparar estos para saber si son distintos o iguales...?

[[Delphius]]

Empezado por cloayza

Y porque no obtener el hash md5 o sha de ambas y comparar estos para saber si son distintos o iguales...?

Aunque en principio es buena idea, es un esfuerzo adicional para la máquina. Calcular un hash o md5 requiere de muchísimas más operaciones. Le lleva más tiempo. Es más apropiado hacer un CompareMem sobre cada fila de pixels.

La otra alternativa es volcar a Streams ambos e invocar a CompareMem a ambos Streams pero esto también tiene su costo ya que estás duplicando la memoria utilizada, ¡Estás generando copias de los bitmpas originales!.
En el enlace que ha puesto en StackOverflow se discutieron estas 2 alternativas.

Saludos,

[Casimiro Notevi]

Je, je, je... ya sé de dónde has tomado ese código
Pero si lo lees bien, habrás visto que pone:
Debería bastar con dos For anidados, uno para recorrer filas y otro columnas:

Tú estás comparando el primer pixel, tienes que recorrer toda la imagen para ir comparándola con la otra.