Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007

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

Автор: Даниил Карапетян (delphi4all@narod.ru)

Автор справки: Алексей Денисов (aleksey@sch103.krasnoyarsk.su)