Bilder vergleichen -> optimiertes verfahren gesucht!

[turboPASCAL]

Hi, Ihr's.

Habe mal ein Sample-Projekt erstellt das die Bitmaps mit Scanline vergleicht (ca. 33,3.14159 mal schneller als ...Pixel[x, y] ) also ohne gr32 Units. (Bild 5200 x 2600 auf einem AMD 2000 MHz ca. 0,5 Sekunden)

Original-Bild wird mit Test-Bild verglichen und die Unterschiede im Preview-Bild angezeigt.
Dieser Umstand deshalb, damit nicht die Vergleichs-Zeichnungen als Fehler interpretiert werden.

Mit ScanLine zu Arbeiten ist recht einfach z.B.:

Delphi-Quellcode:

procedure ScanLine_PutPixel(Bitmap: TBitmap; X, Y: Integer; Color: TColor);
var
  Pixel: PRGBQuad;
begin
  Pixel := Bitmap.ScanLine[Y];
  Inc(Pixel, X);

  Pixel^.rgbRed := Byte(Color);
  Pixel^.rgbGreen := Byte(Color shr 8);
  Pixel^.rgbBlue := Byte(Color shr 16);
end;

Link verschoben nach: Bitmap Compare - Bitmaps vergleichen mit Scanline (wegen der Möglichkeit der Bearbeitung)