Fehler bei JPEG-Umwandlung

[SimStar001]

Hallo, ich habe ein Problem bei dem ich nicht mehr weiter weiß.

Ich erzeuge ein Bild in einem Image. Dieses ist 4000x6000 Pixel groß.

Ich muss nun dieses Bild als JPEG speichern, da eine BMP 115 MB groß wäre.

hier ist mein Code:

Delphi-Quellcode:

form16.Rechnung.Picture.Graphic.savetofile(extractfilepath(paramstr(0)) + '\Daten\Rechnungen\Seite' + inttostr(Aktuelle_Seite) + '.bmp');
        Bild := TJPEGIMAGE.create;
        Bild.Assign(form16.Rechnung.Picture.Bitmap);
        Bild.savetofile(extractfilepath(paramstr(0)) + '\Daten\Rechnungen\Seite' + inttostr(Aktuelle_Seite) + '.jpeg');
        bild.Free;

Wie ihr sehen könnt, gehe ich den Umweg das Image erst als bmp zu speichern, was ca 30 sek dauert, um es dann wieder zu laden und dann umzuwandel!

das klappt soweit sehr gut.

Nur wenn ich das bild nich abspeichere, sondern gleich als JPEG umwandel, dann bekomm ich eine Fehlermeldung, dass net genügend Speicher vorhanden wäre!????????????????

Hier der Code:

Delphi-Quellcode:

        Bild := TJPEGIMAGE.create;
        Bild.Assign(form16.Rechnung.Picture.Bitmap);
        Bild.savetofile(extractfilepath(paramstr(0)) + '\Daten\Rechnungen\Seite' + inttostr(Aktuelle_Seite) + '.jpeg');
        bild.Free;

Wieso klappt das net, sondern muss ich den Umweg gehen!? hat jemand eine Idee wieso, und was ich anders machen kann!?


vielen dank