用Delphi实现JPEG格式图像的显示

源代码网整理以下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。

软件开发网 www.mscto.com

源代码网整理以下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下调试通过。