Image.Picture als JPEG Speichern????

[Fussball-Robby]

Es ist klar, dass es so nicht funktioniert, da das Bild nicht konvertiert wird. Probiers mal damit:

Delphi-Quellcode:

Function SaveBitmapAsJPEG(BMP:TBitmap;Filename:String):Boolean;
Var Bild:TJPEGImage;
Begin
  Result:=false;
  Bild:=TJPEGImage.Create;
  Try
    Bild.Assign(BMP);
    Bild.SaveToFile(filename);
  Finally
    FreeAndNil(Bild);
    Result:=true;
  End;
End;

//////Beispielaufruf:
if SaveBitmapAsJPEG(form16.Rechnung.picture.bitmap,extractfilepath(paramstr(0)) + 'Daten\Rechnungen\Test_Seite1.jpg') Then ShowMessage('Juhu :-)');

Mfg