Image.Picture als JPEG Speichern????

[SimStar001]

Hallo, ich habe ein Problem mit folgendem Code:

Delphi-Quellcode:

var bild : TJPEGImage;
...

bild.assign(Image1.picture.bitmap);
bild.savetofile('blalbabla.jpeg');

das problem ist nu, dass ich nen bild von 6000 * 4000 pixeln habe und der Speichervorgang sehr lange dauert, und er das bild als bmp speichert, welches dann 115 MB groß ist!


wenn ich das über paint zur richtigen jpeg umwandel, dann ist es nur noch 600kb groß!


wie kann ich das bild nun in delphi direct gleich als jpeg speichern??



hat jemand ne idee?



Vielen Dank

[Klaus01]

Guten Abend,

schau Dir mal den Code von Delphi about.com an.

Grüße
Klaus

[Fussball-Robby]

Zitat:

Zitat von SimStar001

und er das bild als bmp speichert, welches dann 115 MB groß ist!

Was heißt, er speichert es als bmp? Heißt es dann bild.bmp? Oder woran erkennst du das?

[SimStar001]

nein die endung der datei ist jpeg aber halt 115 mb groß

wenn ichs dann in paint öffne und dort speihern unter auswähle zeigt er mir bmp an!

speichere ichs dann als jpeg ist es wie gesagt nur noch noch 600kb groß!


das versteh ich net!

[Fussball-Robby]

Dann zeit mal den ganzen Code, mit dem du speicherst. Vielleicht hat sich da irgendwo ein fehler eingeschlichen.

[SimStar001]

im moment habe ich diesen code, davor hatte ich den anderen wie oben angegeben

Delphi-Quellcode:

form16.Rechnung.picture.bitmap.SaveToFile(extractfilepath(paramstr(0)) + '\Daten\Rechnungen\Test_Seite1.jpeg');

[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

[SimStar001]

also kann ich jetzt für die Bitmap das Image.picture nehmen und gebe dann als Daeiname für die JPEG einfach .....jpeg ein? und dann funktioniert das?

[Fussball-Robby]

Ich hab dir doch den Aufruf direkt dahingeschrieben

[SimStar001]

aja jetzt hab ichs, gut ich werds dann mal ausprobieren!


Danke für die Hilfe!