Gamaltes auf Imagebox als jpg speichern

[Thorben86]

hi, ich möchte dass, was ich per canvas auf ne Imagebox gemalt hab gerne als Jpg anstatt bmp speichern. Gibt es da ne einfache lösung, wie ich das machen kann?

[Matze]

Hi!

Nimm ein TJPEGImage, das du zur Laufzeit erzeugst (Unit jpeg in die Uses aufnehmen) und zeichne direktdarauf oder wandle dein Bild um, indem du desen Code ausführst:

Delphi-Quellcode:

var Bild: TJPEGImage;

...

Bild := TJPEGImage.Create;

Bild.Assign(Image1.Picture.Bitmap);
Bild.SaveToFile('Pfad');

Ich hab es jetzt nicht getestet, aber es sollte klappen.

[Thorben86]

kacke, dat werd ich bestimmt nit benutzen dürfen, weil meine lehrerin dann bestimmt meit, dass die schwächeren aus meinem kurs dat nit raffen werden, aber die rafft doch eh noch weniger als die :warn: :wiejetzt: :warn: , dann werd ichs ihr eben als bmp um die ohren pfeffern :) Wir dürfen nähmlich eigentlich so gut wie nichts (eigentlich gar nix) mit reinbringen, wass wir uns selber beigebracht haben, und nit besprochen haben. :cat: :wall:

:coder: :cheers: :coder:

Aber trotzdem thx :dp:

[Matze]

Hmm, ich wüsste nicht, wie man es "manuell" als JPEG speichern kann. :gruebel:

[H4ndy]

Zitat:

Zitat von Thorben86

Wir dürfen nähmlich eigentlich so gut wie nichts (eigentlich gar nix) mit reinbringen, wass wir uns selber beigebracht haben, und nit besprochen haben.

Du nimmst doch nur eine Delphi-Eigene Unit mit ins Program auf
um einen neuen Datentyp benutzen zu können. Is doch das selbe
wie als wenn du Graphics mit aufnimmst um TColor zu haben...

Das werden doch auch die 20W-Birnen in deinem Kurs kapieren :spin2:

[Matze]

Richtig, nimm es einfach. :mrgreen:

Falls du's nehmen solltest, das musst du dann in OnDestroy oder so, ausfrufen, ich hab's oben vergessen:

Delphi-Quellcode:

Bild.Free;

Sonst wird dein Speicher zugemüllt... :roll:

[HAF4ever]

und

Code:

uses jpeg

darf auch nicht fehlen