Restar 2 imagenes

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

Prueba con éste ejemplo.
Abre el Proyecto en Delphi, en el Image1 carga la primera imagen y en el Image2 carga la segunda.
Utiliza el botón para la resta.

P.D: Los he subido por separado por cuestiones de tamaño.

[edusus]

Neftali, gracias por el ejemplo.
Funciona muy bien con las imágenes que envías pero he tratado de restar dos imágenes con diferentes gamas de colores y no me funciona.
Te adjunto las imágenes por si te interesa probar (he tenido que reducirlas mucho para poder adjuntarlas)
De todos modos muchas gracias por responder tan rápido. Un saludo

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

He revisado las imágenes, y claro, como tú dices, no funciona.
Pero es que si lo piensas bien, las imágenes son distintas.

Para nosotros (el ojo humano y con nuestra inteligencia) podemos ver cláramente que las dos imágenes son iguales, pero con distinta tonalidad, pero detectar eso con un algoritmo no debe ser nada trivial.

Al algoritmo le llega de la primera un número X y de la segunda un número Y, y para él son distintos.

Lo único que se me ocurre en éstos casos es un prepoceso (sólo es una idea, ni siquiera sé si se puede hacer) que intentara igualar las imágenes antes de compararlas.

[edusus]

De acuerdo, gracias por tu ayuda. Intentaré igualarlas modificando en una de ellas solamente el color y usando esta última como segunda imagen.

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

Se me ha ocurrido lo siguiente....

De un color (pixel) puedes sacar el RGB y con eso se puede convertir a HSV.
Sería cuestión de coger varios pixels, aleatorios o por ejemplo todos los de una columna y comprobar la relación entre ellos de valores RGB/HSV.
Si la relación se mantine, ya tendrás el valor/valores a modificar en la segunda imagen antes de compararla con la primera.

Compruébalo manualmante y si tienes éxito, hacer el algoritmo en ese caso no debe ser muy complejo.

[walito]

UUU Neftali, muchas gracias por los archivos esos.
Ahora los bajo y los checkeo.

Muchas gracias.

Despues sigo contando como me fue.

[BdeKiller]

esta rutina la hice hace tiempo se trata:

restas los componentes RGB del pixel, para ver si ha cambiado, lo mejor es que pongas una variable que indique la tolerancia es decir desde cuando consideras que ha cambiado un pixel (util si hay imagenes de video) ya que a lo mejor visualmente no cambia practicamente nada y te ahorras procesado:
algo asi :

Código Delphi [-]
 if  Abs( imagen1.pixel (x,y).red -     imagen2.pixel (x,y).red) > tolerancia
and 
Abs( imagen1.pixel (x,y).green -     imagen2.pixel (x,y).green) > tolerancia
and
Abs( imagen1.pixel (x,y).blue -     imagen2.pixel (x,y).blue) > tolerancia
  then =>>>>> ha cambiado el pixel !!!

tolerancia irá de 1 a 255

Un consejo no utilices canvas.pixel, ya que todo irá superlento, utiliza
bitmap.scanline => accedes el doble de rápido.

[walito]

UU graciass, ahora lo voy a probar porq tarda como 20 segundos en procesar 2 imagenes de 1280x1024, es un monton, ya que deseo hacer esto en ondemand, como si fuera un VNC.

Ahora lo pruebo y lo comento

Gracias