Jpeg komprimieren

[Der_Unwissende]

Sorry, meine die Instanz von TJpegImage, nicht TJpeg.

Du hast etwas in der Art:

Delphi-Quellcode:

var Image : TImage;
    bitmap : TBitmap;
    jpeg : TJpegImage;
begin
  bitmap := macheDeinenScreenshot;
  
  jpeg := TJpegImage.Create;
  try
    jpeg.Assign(bitmap);

    // stell alles an Kompression und ähnlichem ein
    ...
  

    // hier der falsche Weg:
    // Es wird eigentlich nur das angezeigte Bitmap gespeichert
    Image.Picture := jpeg;
    Image.Picture.SaveToFile(...);
  

    // hier der richtige Weg:
    jpeg.SaveToFile(...);
  finally
    jpeg.Free;
  end; 
end;

Zudem entfällt im zweiten Fall auch gleich die eventuell unnötige Anzeige des Jpegs.