出版日期：1998-11-16　总期号：777　本年期号：87

本期导读 综合消息 硬件 软件 电脑工作室

用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。 　　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′); 　　 //从文件f:\forest.jpg中装载图像， 　　 //视实际情况改变此处的文件名 　　image1.picture.graphic:=jpegimage; 　　//赋值，使image1显示jpeg图像 　　 finally 　　jpegimage.free; //释放对象 　　 end; 　　end; 　　4. 类tjpegimage定义在单元jpeg.pas中，因此必须在本单元（即单元unit1）的uses 子句中包括单元jpeg。 　　5.运行本程序，进行测试。 　　以上程序在delphi 3.0下调试通过。