bitmaps vergleichen

[silex carmen]

Wie kann man bitmap1 mit bitmap2 vergleichen?<br>
mit scanline[row] kann ich auf einzelne pixel zugreifen<br>Ich habe probleme mit Zuweisung von Farben zu eizelnen Pixel nund dann die intensitäten (von red,grün,blau)subtrahieren und dann das Resultat zum bitmap3 zuweisen
DANKE!

[silex carmen]

bitmap3 könnte ein Pixel format pf8bit haben <br>Vergleich<br>
if pixel(bitmap1)=pixel(bitmap2)then
<br> pixel(bitmap3) =schwarz;<br>
else<br>
pixel(bitmap3) =weiss;

Danke für Eure Hilfe!

[Hagen Reddmann]

<pre>

procedure DiffBMP(Dest, S1, S2: TBitmap);
var
SC1,SC2,SD: PByteArray;
begin
if (S1.Width <> S2.Width) or (S1.Height <> S2.Height) then<br>
raise 'Bitmaps unterschiedlich groß';
Dest.Width := S1.Width;
Dest.Height := S1.Height;
Dest.PixelFormat := pf24Bit;
S1.PixelFormat := pf24Bit;
S2.PixelFormat := pf24Bit;
for H := 0 to S1.Height -1 do
begin
SC1 := S1.ScanLine[H];
SC2 := S2.ScanLine[H];
SD := Dest.ScanLine[H];
for W := 0 to S1.Width * 3 -1 do
SD[W] := SC1[W] - SC2[W];
end;
end;

</pre&gt

[silex carmen]

DAnke