Image.Picture als JPEG Speichern????

[DeddyH]

Versuch es mal so (Reihenfolge geändert):

Delphi-Quellcode:

procedure TForm36.Button3Click(Sender: TObject);
Var
   Jpg :TJPEGImage;
begin
   If (Not Assigned(Image1.Picture.Graphic)) or Image1.Picture.Graphic.Empty Then
      MessageDlg('Kein Bild im Speicher',mtWarning,[mbOK],0)
   Else
     if SaveDialog1.Execute then
     Begin
       Jpg:=TJPEGImage.Create;
       try
         Jpg.CompressionQuality:=   12;
         Jpg.ProgressiveEncoding:=   true;
         Jpg.PixelFormat:=            jf8Bit;
         Jpg.Assign(Image1.Picture.Graphic);
         Jpg.Compress;
         Jpg.SaveToFile(ChangeFileExt(SaveDialog1.FileName,'.jpg'));      
       finally
         Jpg.Free;
       end;
     End;
end;