Restar 2 imagenes

[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

[[seoane]]

Cada pixel esta compuesto por 3 bytes (depende del formato) uno para el rojo, otro para el verde y otro para el azul. Una solucion rapida pero poco elegante para tu codigo seria algo como esto:

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');
    BitMap1.PixelFormat:= pf24bit; // Nos aseguramos de que son 3 bytes por pixel
    BitMap2.PixelFormat:= pf24bit;
    for y := 0 to BitMap1.Height - 1 do
    begin
        A := BitMap1.ScanLine[y];
        B := BitMap2.ScanLine[y];

        for x := 0 to (BitMap1.Width*3) - 1 do // Aqui estaba el problema
        begin
            if A[x] <> B[x] then
              B[x] := 0;
        end;
    end;

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

La solucion que yo prefiero, es dejarse de arrays de bytes y usar punteros pero aqui cada uno como se sienta mas comodo.

[walito]

UU muchas gracias, funciona a la perfeccion!!!!