Hallo,
ich habe mehre bilder(siehe anhang)
testa.bmp ist das orginal bild
test.bmp ein bild mit einem objekt drauf
test2.bmp drauf möchte ich nur das objekt von test kopiren das dachte ich mir so:
Ich schau auf test und dann auf testa sobalt sich ein pixlel unterscheidet habe ich das objekt und das möchte ich auf dem neuen hintergrund zeichen(ich hoffe ihr habt es verstanden)
hier noch ein bischen code:
Delphi-Quellcode:
procedure TForm1.CompareImages(image1, image2: TImage);
var
x,y:Integer;
begin
for y:=0 to 51 do begin
for x:=0 to 64 do begin
if Image2.Picture.Bitmap.Canvas.Pixels[x,y] <> Image1.Picture.Bitmap.Canvas.Pixels[x,y] then
Form1.Image4.Canvas.Pixels[x,y]:=Image3.Picture.Bitmap.Canvas.Pixels[x,y]
else
Form1.Image4.Canvas.Pixels[x,y]:=Image2.Picture.Bitmap.Canvas.Pixels[x,y]
end;
end;
end;
das problem jetzt: das bild sieht falsch aus, es klappt so nicht.