Delphi TJpegImage - aus Stream geladene Grafik komprimieren

TJpegImage - aus Stream geladene Grafik komprimieren

Ein Thema von Matze · begonnen am 25. Apr 2008 · letzter Beitrag vom 26. Apr 2008

Matze

(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge

Turbo Delphi für Win32

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

Es ist dir nicht erlaubt, neue Themen zu verfassen.

Es ist dir nicht erlaubt, auf Beiträge zu antworten.

Es ist dir nicht erlaubt, Anhänge hochzuladen.

Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.

Smileys sind an.

[IMG] Code ist an.

HTML-Code ist aus.

Refbacks are aus

Gehe zu: