Hallo,
ich möchte ein TImage32 als JPEG speichern. Dazu habe ich folgenden Code:
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var jpeg:TJpegImage;
begin
jpeg:=TJpegImage.Create;
jpeg.CompressionQuality:=30;
jpeg.assign(Image321.Bitmap);
jpeg.SaveToFile('test.jpg');
end;
Da erhalte ich immer die Fehlermeldung 'TBitmap32 kann nicht zu TJPEGImage zugewiesen werden'.
Wie kann ich das Bild nun als JPEG speichern?
Danke im Vorraus.