Bitmaps vergleichen

[TForm1]

Also ich habe jetzt mal eine Modifikation von dem Testcode oben vorgenommen und die BmpA und BmpB jeweils danach noch mal gespeichert.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  BmpA := TBitmap.Create;
  BmpA.LoadFromFile('/Users/home/test1.bmp');
  BmpB := TBitmap.Create;
  BmpB.LoadFromFile('/Users/home/test2.bmp');
  Test(BmpA, BmpB, 40, clGreen);
  BmpA.SaveToFile('/Users/home/test1.bmp');
  BmpB.SaveToFile('/Users/home/testErgebnis.bmp');
end;

Ergebnis ist, dass mit SaveToFile das Bitmap ohne die Veränderungen gespeichert wird, warum auch immer...:gruebel:
Also kann es nur am SaveToFile() liegen.

[SMO]

Zitat:

Zitat von TForm1 (Beitrag 1322851)

Ergebnis ist, dass mit SaveToFile das Bitmap ohne die Veränderungen gespeichert wird, warum auch immer...:gruebel:
Also kann es nur am SaveToFile() liegen.

Nicht zwingend. Lässt du dir das Bitmap anzeigen, z.B. so wie in meinem Code im OnPaint-Event des Hauptfensters? Falls nicht, mach das mal. Wäre interessant zu wissen, ob die Änderungen dort sichtbar sind oder nicht. Falls sie sichtbar sind, dann liegt es wohl wirklich an SaveToFile. Falls nicht, dann liegt das Problem woanders.

[TForm1]

Doch eben genau das. Ich habs so anzeigen lassen wie in deinem Code, funktioniert auch prima nur sobald ich speicher wird die Änderung nicht mit gespeichert...

[SMO]

Dann hat die FreePascal-Version von TBitmap da wohl einen bösen Bug.

[TForm1]

Hmm.. dann lad ich mir mal den aktuellen FreePascal- Compiler runter...

Danke trotzdem für die Hilfe!:thumb:

[Dejan Vu]

Zwei einfache Verifikationen:
1. Lösch die Datei vorher. Funktioniert es?
2. Speicher die Datei unter einem anderen Namen. Und nun?

[TForm1]

@Dejan Vu

hab ich alles ausprobiert, keine Variante funktioniert, er speichert die Bitmap immer ohne die Veränderung in dem Zustand wie er sie geladen hat..

[Klaus01]

.. mhm sollte keinen Unterschied machen,
aber kannst Du in der "Test" Methode BmpIn und BmpOut mal als var Parameter deklarieren?

Grüße
Klaus

[TForm1]

@Klaus01: Grad getestet, auch mit var klappts nicht...

Vllt lad ich mir mal Graphics32 runter und probiers damit, ist ja eh ganz sinnvoll...