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

[deliriun]

Buen día
Me gustaría saber un metodo para comparar 2 imagenes y saber si son iguales o distintas.
He visto unos ejemplos pero no me funcionan, espero me puedan ayudar.

Gracias de antemano.

[Casimiro Noteví]

¿Qué ejemplos y por qué no funcionan?

[deliriun]

Estoy usando::

if Image1.Picture.Bitmap.Canvas.Pixels[0,0] = Image2.Picture.Bitmap.Canvas.Pixels[0,0] then
       begin
       showMessage('Iguales');


 End;

Pero siempre me sale el mensaje, sean iguales o no.

[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 Noteví]

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

[Casimiro Noteví]

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.

[MAXIUM]

Empezado por deliriun

Buen día
Me gustaría saber un metodo para comparar 2 imagenes y saber si son iguales o distintas.
He visto unos ejemplos pero no me funcionan, espero me puedan ayudar.

Gracias de antemano.

Esta es tu solución http://www.3delite.hu/Object%20Pasca...onLibrary.html

[Neftali [Germán.Estévez]]

Una pregunta que tal vez parezca tonta...
¿Un único pixel diferente en las imágenes, debería devolver que son diferentes? O dicho de otra manera, ¿La comparación debe omitir pequeños cambios?

Si la respuesta es que deben ser "exactas", creo que comparar pixel a pixel te será más lento que calcular un CRC o HASH del fichero y compararlos.
Si la respuesta es que no (por ejemplo en aplicaciones de detección de movimiento) los métodos de comparación siguen otras técnicas un poco diferentes.

[[Delphius]]

Empezado por Neftali

Una pregunta que tal vez parezca tonta...
¿Un único pixel diferente en las imágenes, debería devolver que son diferentes? O dicho de otra manera, ¿La comparación debe omitir pequeños cambios?

Si la respuesta es que deben ser "exactas", creo que comparar pixel a pixel te será más lento que calcular un CRC o HASH del fichero y compararlos.
Si la respuesta es que no (por ejemplo en aplicaciones de detección de movimiento) los métodos de comparación siguen otras técnicas un poco diferentes.

Si se trata de una comparación exacta leer pixel a pixel es lento, por ello para acelerar el proceso se puede hacer mediante Scanline() y aprovechar CompareMem() y esto requiere explorar solo fila a fila. En el hilo de StackOverflow se da también esta propuesta y me parece bastante ingeniosa.
Calcular Hash o MD5 por ejemplo requiere de muchas más operaciones. Son operaciones consideradas "duras". Si ya de por si para calcular el hash o md5 se necesita leer el contenido binario, directamente que se lea la imagen y se haga el trabajo de comparar. Creo que no vale la pena emplear hash u otros, es más directo y menos lioso realizar una comparación.


Si la comparación permite ciertos cambios o aproximación entre ambas, o como en el caso de detección de movimientos, allí las cosas si se complican y hay que optar por otras soluciones como dices. El componente que ofrece la página que a puesto MAXIMUM creo que hace estos tipos de cosas.