Открыть файл 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