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下調試通過。