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

Previous  Top  Next

    
 

 

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

 

Code:

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;

 

©Drkb::03791

Автор советов: Даниил Карапетян

e-mail: delphi4all@narod.ru

 

Автор справки: Алексей Денисов

e-mail: aleksey@sch103.krasnoyarsk.su