Einzelnen Beitrag anzeigen

Benutzerbild von bitsetter
bitsetter

Registriert seit: 17. Jan 2007
1.169 Beiträge
 
Turbo Delphi für Win32
 
#6

Re: TJpegImage - aus Stream geladene Grafik komprimieren

  Alt 26. Apr 2008, 13:17
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.
Gruß bitsetter
"Viele Wege führen nach Rom"
Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker
  Mit Zitat antworten Zitat