Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Открыть файл JPEG

Автор: Poseidon 19.5.2005, 00:57

В комплект поставки 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;