Hallo,
ich habe mal die ganze Funktion unten aufgeführt, damit man sieht wo was herkommt.
'image1' ist ein TImage Objekt in einer Form.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
xJPEGImage : TJPEGImage;
begin
xJPEGImage:=TJPEGImage.Create;
OpenDialog1.Execute;
xJPEGImage.LoadFromFile(OpenDialog1.FileName);
xJPEGImage.CompressionQuality:=5;
xJPEGImage.Smoothing:=Not xJPEGImage.Smoothing;
xJPEGImage.Compress;
image1.Picture.Bitmap.Assign(xJPEGImage);
xJPEGImage.Free;
end;
[edit=sakura]Delphi-Tags gesetzt. Mfg, sakura[/edit]