Forum: Programmieren allgemein
by Uwe Raabe,
26. Feb 2016
Geht auch mit geringfügig weniger Zeilen:
function GetNewPicFromDifferences (OrgPic, NewPic, BDif: TBitmap): Boolean;
begin
BDif.Assign(OrgPic);
result := BitBlt(BDif.Canvas.Handle, 0, 0, BDif.Width, BDif.Height, NewPic.Canvas.Handle, 0, 0, SRCINVERT);
if result then begin
BDif.Mask(clBlack);
end;
end;
Forum: Programmieren allgemein
by Uwe Raabe,
26. Feb 2016
Für die Programmierung - nicht für den Vergleich, oder?
Forum: Programmieren allgemein
by Uwe Raabe,
26. Feb 2016
Die beiden Bilder sind unterschiedlich groß. Das eine ist 800x605 und das andere 799x604. Das wird mit einem direkten Pixelvergleich nicht funktionieren.
Forum: Programmieren allgemein
by Uwe Raabe,
26. Feb 2016
Häng doch das Originalbild auch mal hier dran.