Bildanalyse/-vergleich

[DeddyH]

Irgendwie passen Deine Schleifen überhaupt nicht zusammen.

[edit] Da die Bilder ja gleich groß sind, müsste das auch so gehen:

Delphi-Quellcode:

For i:=1 to image1.width do
  Begin
    For j:=1 to image1.height do
      Begin
        farbe1 := image1.canvas.pixels[i,j];
        farbe2 := image2.canvas.pixels[i,j];
        wert:= (farbe1 and clred)-(farbe2 and clred);               
      end;
  end;

[/edit]