TJpegImage - aus Stream geladene Grafik komprimieren

[bitsetter]

Zitat von Matze:

Hm und wenn ich das Bild versuche zu komprimieren ohne DIBNested zu nutzen bzw. ohne es einem Bitmap zuzuweisen, dann erzeugt Compress ein fehlerhaftes, leeres Bild? Das ist aber auch irgendwie komisch.

Für die Prozedur Compress wird das Feld FBitmap benötigt, welches mit DIBNested durch Aufruf der Funktion GetBitmap erzeugt wird. Wenn du nur das Bild von einem Stream lädst, dann ist FBitmap = nil.
Dummerweise wird in der Prozedur Compress die Kompression schon "fleißig" vorbereitet und dann erst geprüft ob FBitmap <> nil bzw. die Höhe und Breite > 0 ist. Würde das Feld FBitmap gleich am Anfang der Prozedur abgefragt, so würde auch kein leeres Bild erzeugt werden.