Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: TJpegImage - aus Stream geladene Grafik komprimieren

    Delphi
    by bitsetter, 26. Apr 2008
  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...
• Forum: Multimedia

  Re: TJpegImage - aus Stream geladene Grafik komprimieren

    Delphi
    by bitsetter, 26. Apr 2008
  Hi,
  
  versuche es mal so:
  
  JpegImage.LoadFromStream(AStream);
  JpegImage.DIBNeeded;
  JpegImage.CompressionQuality := 80;
  JpegImage.Compress;
  JpegImage.SaveToFile(SavePathName);