bmp2jpeg

[jfheins]

Probiers mal so in der Art:

Delphi-Quellcode:

program bmp2jpeg; 

uses 
  Forms, SysUtils, Jpeg, ExtCtrls; // k.A., was du davon brauchst, aber:

{$APPTYPE CONSOLE} 

var 
  jpg: TJpegImage; 
  img: TImage; // Warum nicht TBitmap ?
  i: Integer; 
  temp: string; 
begin 
  Application.Initialize; //Brauchst du nicht > weg damit
  if (FileExists(ParamStr(1))) and (ExtractFileExt(ParamStr(1)) = '.bmp') then //ParamStr ist in SysUtils 
  try 
    temp := ''; 
    for i := 1 to Length(ExtractFileName(ParamStr(1))) - Length(ExtractFileExt(ParamStr(1))) do 
      temp := temp + ExtractFileName(ParamStr(1))[i]; 
    img := TImage.Create(Application); //kannst auch nil nehmen; oder ein Bitmap
    img.Picture.LoadFromFile(ParamStr(1)); 
    jpg := TJpegImage.Create; 
    jpg.Assign(img.Picture.Bitmap); 
    jpg.SaveToFile(ExtractFileDir(ParamStr(1))+'\'+temp+'.jpg'); 
  except 
  end; 
  Application.Run; //Brauchst du nicht > weg damit
end.