Bilder vergleichen

[shmia]

Zitat von SCHNICO:

P := BitMap.ScanLine[i];
P2 := BitMap2.ScanLine[i];
if p = p2 then
r := r + 1 //anzahl gleicher Lines
else
w := w + 1; //anzahl unterschiedlicher lines
end;

Das kann so nicht funktionieren.
P & P2 sind lediglich 2 Zeiger, die natürlich bei 2 Bitmaps immer
verschieden sind.

Deshalb:

Delphi-Quellcode:

   for j:= 0 to BitMap.Width - 1 do
   if P[j] = P2[j] then
      Inc(r)   //anzahl gleicher Pixel
   else
      Inc(w);  //anzahl unterschiedlicher Pixel