Как преобразовать картинку JPEG в BMP?

Для преобразования изображений из формата JPEG в формат BitMap можно воспользоваться модулем JPEG. Ниже приведена функция на языке программирования Delphi, которая делает такое преобразование. При успешном преобразовании функция возвращает значение True (Истина), при неудаче — False (Ложь):

uses JPEG;
...
//преобразование файла fname из формата JPEG в BMP
function Jpg2Bmp(JpgFname: TFileName): Boolean;
var
  jpg_obj: TJPEGImage;
  bmp_obj: TBitmap;
  BmpFname: TFileName;
begin
  result := false;
  //создание объекта TJPEGImage
  jpg_obj := TJPEGImage.Create;
  try
    //загрузка файла fname
    jpg_obj.LoadFromFile(JpgFname);
    //создание объекта TBitmap
    bmp_obj := TBitmap.Create;
    try
      //загружаем в bmp_obj изображение объекта jpg_obj
      bmp_obj.Assign(jpg_obj);
      //имя файла для Битмапа получаем из jpg путем замены расширения на bmp
      BmpFname := ChangeFileExt(JpgFname, '.bmp');
      //сохраняем Bitmap в файл
      bmp_obj.SaveTofile(BmpFname);
    finally
      //освобождаем память под объект bmp_obj
      bmp_obj.Free
    end;
  finally
    //освобождаем память под объект jpg_obj
    jpg_obj.Free
  end;
  //если все прошло удачно
  result := true;
end;

 

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *