Программирование на Delphi и не только Как преобразовать картинку JPEG в BMP? | Программирование на Delphi и не только

Delphi FAQ >> Графика

Для преобразования изображений из формата 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;


Часто на вакансии типа «работа программист php» откликаются начинающие программисты, из-за простоты освоения PHP.