Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i,w,r,x : integer ;
BitMap, BitMap2 : TBitMap;
P,P2 : PByteArray;
begin
BitMap := TBitMap.create;
BitMap2 := TBitMap.create;
BitMap.LoadFromFile('vorlage.bmp'); //Laden der ausgangsdatei
BitMap2.LoadFromFile('screenshot.bmp'); //Laden der vergleichsdatei
r := 0;
w := 0;
for i := 0 to BitMap.Height - 1 do
begin
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;
Label1.caption := InttoStr(r);
Label2.caption := IntToStr(w);
end;
Das war jetzt mein erster gehversuch mit ScanLine.
Aber selbst wenn ich zwei verschiedene Dateien (auflösung ist die selbe) nutze kommt immer das ergebnis bei raus das diese dateien an keiner stelle übereinstimmen. Kann mir da jemand etwas nachhelfen? Danke schon mal im voraus.
