comparar dos TImage

[TomMB]

Hola.
quisiera saber como se pueden comparar dos TImage p.e.

if Image1=Image2 then ....

Gracias.

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

¿Qué quieres comprara dos TImage o dos imágenes?

Entiendo que lo segundo.
Deberás compararlas Pixel a Pixel y determinar si hay alguno diferente.

[TomMB]

Hola, te explico.
Después de capturar una imagen y meterla en un Timage, quiero que lo compare con otros TImagen que tienen diferentes imágenes cargadas.



Gracias.

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

Pues lo dicho, debes escanear la imagen y comparar los pixels 1 a 1. Debería bastar con dos For anidados, uno para recorrer filas y otro columnas:

Código Delphi [-]
  Image1.Picture.Bitmap.Canvas.Pixel[0,0] = 
    Image2.Picture.Bitmap.Canvas.Pixel[0,0];
  ...

Para optimizar puede revisar la ayuda sobre ScanLine.

Otra opción (que se me ocurre ahora) podría ser la de no verlas como imágenes sino como ficheros genéricos. Tal vez esta pueda resultar más rápida.
(1) Grabas la imagen 1 en un fichero temporal 1 y la imagen 2 enun fichero temporal 2.
(2) Calculas el CRC de ambos.
(3) comparas los CRC.

Ambos tipos de comparación en teoría funcionan bien, en la práctica piensa que con que sólo exista un pixel diferente en ambas imágenes te darán como diferentes; Y eso en la mayoría de los casos no es lo deseado.

Otro tema diferente es la utilización de algoritmos que permitan un % de error; De forma que si las imágenes son iguales en un 98% (por ejemplo) las considere iguales.