Bitmap -> jpg

[Hellwalker]

Ich habe ein TImage und da drin hab ich ein Bitmap. Das ganze will ich jetzt aber als jpg speichern. Wie mache ich das???

[Christian Seehase]

Moin Hellwalker,

das sollte unter Verwendung von TJPEGImage aus der Unit JPEG gehen.

Am Besten schaust Du Dir mal das Beispiel zu TJPEGImage.SaveToFile an, da ist genau das beschrieben.

[Udontknow]

Hiho!

Hier mal der Quellcode zu meinem Proggie, das BMP-Files in Jpegs umwandelt, wenn man diese im Explorer auf das Programm zieht.
Ist vielleicht nicht das eleganteste, aber es funktioniert allemal!

Code:

[b]procedure[/b] TForm1.FormCreate(Sender: TObject);
[b]var[/b] 
  i: integer;
  Image: TImage;
  Str: [b]String[/b];
  Jpeg: TJPegImage;
[b]begin[/b]
  Application.ShowMainForm := False;
  Image := TImage.Create(Self);
  JPeg := TJPegImage.Create;
  [b]try[/b]
    [b]for[/b] i := 1 [b]to[/b] ParamCount [b]do[/b]
    [b]begin[/b]
      Image.Picture.LoadFromFile(ParamStr(i));
      JPeg.Assign(Image.Picture.Graphic);
      JPeg.SaveToFile(ChangeFileExt(ParamStr(i), '.jpg'));
    [b]end[/b];
  [b]finally[/b]
    Image.Free;
    JPeg.Free;
    Application.Terminate;
  [b]end[/b];
[b]end[/b];

Cu,
Udontknow

[Hellwalker]

Danke an euch Beide. Jetzt funktioniert es. Und falls einer von euch mein Screenshot-Programm mal haben will. Ich habe es als Attachment hier Hinzugefügt.

[Luckie]

Um eigene Programme vorzustellen gibt es hier im Forum eine extra Sparte. Bitte dort posten.

Ich schließe den Thread, nicht dass hier noch großartig Bugreports, Kritik oder Anregungen gepostet werden. Das Problenm ist ja gelöst.