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