Bitmap -> jpg

[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