bmp2jpeg

[xaromz]

Hallo!

Hab Dein Programm mal etwas überarbeitet, vieles geht etwas einfacher :

Delphi-Quellcode:

program bmp2jpeg;

uses
  SysUtils, Graphics, Jpeg;

{$R *.res}

var
  jpg: TJpegImage;
  bmp: TBitmap;
begin
  if (FileExists(ParamStr(1))) and
     (LowerCase(ExtractFileExt(ParamStr(1))) = '.bmp') then // gibt auch .BMP
  try
    bmp := TBitmap.Create; // Besser als TImage, muss ja nicht angezeigt werden
    bmp.LoadFromFile(ParamStr(1)); 
    jpg := TJpegImage.Create; 
    jpg.Assign(bmp); 
    jpg.SaveToFile(ChangeFileExt(ParamStr(1), '.jpg')); // Es gibt ja fertige Funktionen...
  finally
    FreeAndNil(bmp); // Aufräumen
    FreeAndNil(jpg);
  end; 
end.

Gruß
xaromz