Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi TImage32 als JPEG speichern (https://www.delphipraxis.net/81147-timage32-als-jpeg-speichern.html)

thomas65 21. Nov 2006 15:09


TImage32 als JPEG speichern
 
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 21. Nov 2006 15:19

Re: TImage32 als JPEG speichern
 
Zitat:

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 21. Nov 2006 15:44

Re: TImage32 als JPEG speichern
 
Zitat:

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

dataspider 21. Nov 2006 17:55

Re: TImage32 als JPEG speichern
 
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 21. Nov 2006 18:39

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


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:26 Uhr.

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf