БОЛЬШОЙ FAQ ПО DELPHI



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

Компьютеpщик говоpит девушке:
-Ты мне сегодня во сне пpиснилась!
-В эpотическом?
-Hет, в обычном.
-А как ты их вообще pазличаешь?
-А у эpотических pасшиpение *.JPG

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




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ