Открыть файл JPEG

Delphi , Графика и Игры , JPEG

В комплект поставки Delphi входит модуль JPEG. Он позволяет работать с изображениями в формате JPEG. Эта программа открывает выбранный файл и выводит изображение на форму.

uses Jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var
  JpegIm: TJpegImage;
  bm: TBitMap;
begin
  if OpenDialog1.Execute = false then
    Exit;
  bm := TBitMap.Create;
  JpegIm := TJpegImage.Create;
  JpegIm.LoadFromFile(OpenDialog1.FileName);
  bm.Assign(JpegIm);
  Form1.Canvas.Draw(0, 0, bm);
  bm.Destroy;
  JpegIm.Destroy;
end;

В статье описывается пример программирования на языке Delphi, который позволяет открывать и выводить изображения в формате JPEG с помощью модуля JPEG из комплекта поставки Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: JPEG ::