当前位置: 首页 > 图文教程 > 开发语言 > Delphi > 用Delphi实现JPEG格式图像的显示

Delphi
Delphi在网络数据库中的应用
组件技术在Delphi中的实现(1)
如何在Delphi中操作Excel
巧用Delphi制作溅射屏幕
如何在Delphi中实现ASP编程
用Delphi编写可以断开Internet连接的程序
在DELPHI中利用API实现网格内组件的嵌入
你的大写数字规范吗
用Delphi实现打印功能
Delphi控件,我们也可以(4)
Delphi控件,我们也可以(3)
Delphi控件,我们也可以(2)
Delphi控件,我们也可以(1)
Delphi让你发送Flash电子邮件(2)
Delphi让你发送Flash电子邮件(1)
Delphi实现随时随刻知道自己的IP
从问题到结果 ――EXE2SWF的开发手记
用Delphi 6编程实现自动标注汉语拼音
在窗口标题区添加按钮
Delphi让你发送Flash电子邮件

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-10-30   浏览: 57 ::
收藏到网摘: n/a

 

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下调试通过。