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.