程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 用Delphi實現JPEG格式圖像的顯示

用Delphi實現JPEG格式圖像的顯示

編輯:Delphi

Delphi中的TImage控件直接支持Bitmap格式(.bmp)、 Icon格式(.ico)和Metafile格式(.emf or .wmf)的圖像文件。在Delphi的設計窗口中可以把這三種格式的文件賦給TImage控件的Picture屬性。TImage控件還能顯示其他格式的圖像,如JPEG格式的圖像。但不能直接把文件名賦值給Picture屬性,而需要把圖像對象賦值給屬性Picture的Graphic屬性。Delphi 3.0 提供了TJPEGImage類來支持JPEG圖像,調用TJPEGImage的方法LoadFromFile可以從文件中裝載JPEG圖像。因此顯示JPEG格式的圖像,實現起來相對容易一些。以下是一個測試程序的制作過程:

1.建立一個新的應用程序,窗體(Form)的名字為Form1,對應的單元名為Unit1。

2.在窗體中放置一個TImage控件,名字為Image1,將其AutoSize屬性設為True。

3.在窗體中放入一個按鈕(即TButton控件),取名為Button1,把其屬性Caption改為“裝載圖像”,在Button1的OnClick事件中,加入代碼後如下:

procedure TForm1.Button1Click(Sender: TObject);

var JPEGImage:TJPEGImage;

begin

 JPEGImage:=TJPEGImage.Create;

//創建JPEG圖像對象

 try

JPEGImage.LoadFromFile(′F:forest.jpg align=left′);

 //從文件F:forest.jpg align=left中裝載圖像,

 //視實際情況改變此處的文件名

Image1.Picture.Graphic:=JPEGImage;

//賦值,使Image1顯示JPEG圖像

 finally

JPEGImage.Free;  //釋放對象

 end;

end;

4. 類TJPEGImage定義在單元jpeg.pas中,因此必須在本單元(即單元Unit1)的uses 子句中包括單元jpeg。

5.運行本程序,進行測試。

以上程序在Delphi 3.0下調試通過。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved