如何用Delphi顯示JPEG格式的圖像

Delphi中的TImage控件直接支持位圖格式的圖像文件(。bmp)、圖標格式(。ico)和圖元文件格式(。電動勢或。wmf)。在Delphi的設計窗口中，可以將這三種格式的文件賦給TImage控件的Picture屬性。TImage控件還可以顯示其他格式的圖像，例如JPEG圖像。但是不能直接把文件名賦給圖片屬性，需要把圖像對象賦給屬性圖片的圖形屬性。Delphi 3.0提供了tjpegmage類來支持JPEG圖像。您可以通過調用tjpegmage的方法從文件中加載JPEG圖像。所以顯示JPEG圖像還是比較容易的。下面是壹個測試程序的制作過程:

1.創建新的應用程序。表單名稱為Form1，對應的單元名稱為Unit1。

2.在窗體中放置壹個名為Image1的TImage控件，並將其AutoSize屬性設置為True。

3.在窗體中放置壹個按鈕(即TButton控件)，命名為Button1，並將其標題更改為“加載圖像”。在Button1的OnClick事件中，添加以下代碼:

程序TForm1。Button1Click(發件人:to object)；

var JPEGImage:TJPEGImage；

開始

JPEGImage:=TJPEGImage。創建；

//創建JPEG圖像對象

嘗試

JPEGImage。LoadFromFile(′F:\ forest . jpg align = left′)；

//從文件F:\forest.jpg align=left加載圖片。

//根據實際情況在這裏更改文件名

Image1。picture . Graphic:= JPEGImage；

//賦值，以便Image1顯示JPEG圖像。

最後

JPEGImage。免費；//釋放對象

結束；

結束；

4.TjpegImage類是在單元jpeg.pas中定義的，所以單元jpeg必須包含在這個單元的uses子句中(即Unit1)。

5.運行此程序進行測試。

上一篇:VB中輸出斐波那契數列的前20項

下一篇:室內設計這個專業好不好？