Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#1

TJpegImage - aus Stream geladene Grafik komprimieren

  Alt 25. Apr 2008, 22:27
Hallo,

dieser Source speichert mir den Stream (TMemoryStream) korrekt auf der Festplatte:

Delphi-Quellcode:
JpegImage.LoadFromStream(AStream);
JpegImage.SaveToFile(SavePathName);
Sobald ich das Bild jedoch komprimieren möchte:

Delphi-Quellcode:
JpegImage.LoadFromStream(AStream);
JpegImage.CompressionQuality := 80;
JpegImage.Compress;
JpegImage.SaveToFile(SavePathName);
erhalte ich eine 0 KB große, natürlich kaputte, Jpg-Datei.

Woran liegt das?

Grüße, Matze
  Mit Zitat antworten Zitat