Hallo,
ich wollte mit Delphi 7 mal ausprobieren wie die JPEG Unterstützung ist.
Ich möchte eine Grafik laden und bei dieser die Kompremierung ändern und das Ergebnis im Programm (TImage) anzeigen.
Dieses funktioniert soweit, bis auf die Kompremierung.
Immer, wenn ich xJPEGImage.Compress in den Code Einfüge erhalte ich beim Ausführen die Meldung:
... eine
Exception in der Klasse EJPEG ist aufgetreten. Meldung JPEG-Fehler #42 ...
Das von mir verwendete Code Fragment ist folgender:
Delphi-Quellcode:
OpenDialog1.Execute;
xJPEGImage.LoadFromFile(OpenDialog1.FileName);
xJPEGImage.CompressionQuality:=5;
xJPEGImag e.Smoothing:=Not xJPEGImage.Smoothing;
xJPEGImage.Compress;
image1.Picture.Bitmap.Assign(xJPEGImage);
Ich hoffe jemand kann mir helfen
Gruß
Sausi
[edit=sakura]Delphi-Tags gesetzt. Mfg, sakura[/edit]