TImage32 als JPEG speichern

[thomas65]

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.

[Mavarik]

Zitat von thomas65:

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.

Beim Assign oder beim Save?

Es Fehlt

Delphi-Quellcode:

JPEG.JPEGNeeded;
JPEG.Compress;

Vielleicht hilft es...

[thomas65]

Zitat:

Beim Assign oder beim Save?

Beim Assign. JPEG.JPEGNeeded und JPEG.Compress haben leider nicht geholfen. Der Fehler kommt immer noch.

[dataspider]

Hi,

ich habe das gleiche Problem.
Momentan helfe ich mir damit, dass ich vom Image32 erst in ein TBitmap und von diesem in das TJPegImage die Daten per Assign übertrage.
Das funktioniert, wenn es aber einen eleganteren Weg gibt, wäre das schon toll.


Cu, Frank

[thomas65]

Hallo Frank,
über TBitmap funktioniert es tatsächlich. Vielen Dank! Falls ich nochmal eine bessere Lösung finde, schreibe ich es hier.