Конвертировать Jpeg В Bmp

[Sascha]

Недавно мне пришлось конвертировать jpeg изображение в bmp. Эту задачу я решил при помощи следующей процедуры

procedure Convert(fileN: string);
var
  jpg: TJPEGImage;
  bmp: TBitmap;
begin
  try
    jpg := TJPEGImage.Create;
    bmp := TBitmap.Create;
    jpg.CompressionQuality := 100;
    jpg.Compress;
    jpg.LoadFromFile(fileN);
    bmp.Assign(jpg);
    bmp.SaveToFile(ExtractFilePath(application.ExeName) +
      ChangeFileExt('Temp', '.bmp'));
    FreeAndNil(jpg);
    FreeAndNil(bmp);
  except
    on e: Exception do
    begin
      FreeAndNil(jpg);
      FreeAndNil(bmp);
    end;
  end;
end;

Процедура на входе получает расположение файла и в результате своей работы создает новое изображение в каталоге программы с расширением bmp, под именем Temp.