TJpegImage - aus Stream geladene Grafik komprimieren

[bitsetter]

Hi,

versuche es mal so:

Delphi-Quellcode:

  
  JpegImage.LoadFromStream(AStream);
  JpegImage.DIBNeeded;
  JpegImage.CompressionQuality := 80;
  JpegImage.Compress;
  JpegImage.SaveToFile(SavePathName);

Noch eine andere Variante:

Delphi-Quellcode:

   
var
   bmp: TBitmap;
begin
  ...
  bmp:= TBitmap.Create;
  ...
  JpegImage.LoadFromStream(AStream);
  bmp.Assign(JpegImage);
  JpegImage.Assign(bmp);
  JpegImage.CompressionQuality := 80;
  JpegImage.Compress;
  JpegImage.SaveToFile(SavePathName);
   ...