Restar 2 imagenes

[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

[walito]

disculpa pero tenes al hecho con SCANLINE ? porq no entiendo como funciona, vi el ejemplo que trae la ayuda pero no lo entiendo.

Gracias

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

Empezado por walito

U....ya que deseo hacer esto en ondemand, como si fuera un VNC.

Creo que estos programas no funcionan con capturas de imagen, creo que deben enviar información de determinados eventos de ratón, de teclado, ventanas,...

[walito]

Te hago una ultima pregunta, ahi pude hacerlo andar con scanline pero solo me recorre hasta la mitad de la foto, de arriba para abajo bien , pero de izquierda a derecha se clava en menos de la mita.
Intente poner el ancho de la foto a mano y hace los mismo, es decir el for que recorre las X llega bien hasta el final, que puede ser?

te paso el ejemplo:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  x,y : Integer;
  BitMap1, BitMap2 : TBitMap;
  A, B : PByteArray;
begin
  BitMap1 := TBitMap.create;
  BitMap2 := TBitMap.create;
  try
    BitMap1.LoadFromFile('000.bmp');
    BitMap2.LoadFromFile('111.bmp');

    for y := 0 to BitMap1.Height - 1 do
    begin
        A := BitMap1.ScanLine[y];
        B := BitMap2.ScanLine[y];

        for x := 0 to BitMap1.Width - 1 do
        begin
            if A[x] <> B[x] then
              B[x] := 0;
        end;
    end;

    Image3.Picture.Graphic := BitMap2;
  finally
    BitMap1.Free;
    BitMap2.Free;
  end;
end;

Gracias