首页 | 社区 | 博客 | 招聘 | 文章 | 新闻 | 下载 | 读书 | 代码
亲,您未登录哦! 登录 | 注册

利用Delphi的TJPEGImage控件把BMP转化成JPEG

打印文章

分享到:
在工作过程中我经常使用到两种图象——网页上的JPEG图象和杂志题目的BMP图象。一般来说我把原始的BMP图象保存在CD中,然后用Delphi应用程序把它们转化成JPEG文件。这篇文章我将介绍如何利用Delphi应用程序把BMP图象转化成JPEG图象及反之转化。如果要查看图象格式信息,请点击 这里.

TJPEGImage

在Delphi 3中,Delphi控件库中的Timage控件能显示不同格式的文件,如BMP, ICO, WMF/EMF, and JPEG文件。然后,能够显示文件格式并不等于能够进行文件格式之间的转化。Timage控件中的LoadFromFile和SaveToFile事件能保存一个BMP文件,但如果你保存JPG文件,你也只能采用BMP格式存放。

幸运的是,Delphi 3中的TJPEGImage控件能很好地解决了上面的问题,这一控件没有直接存放在控件库中,它均以JPEB形式声明和说明。如果你想找到这一控件的例程源代码,请点击Dehphi目录下的Info\Extras\JPEG路径(不要告诉我你从没打开这一目录,这里有很多好东东)。

TJPEGImage控件从Tgraphic控件引申出来,所以它与Tbitmap控件相兼容,如Listing A如示。你可以利用TJPEGImage控件写出一个把BMP转化成JPEG的例子。

注意到Tbitmap使用LoadFromFile事件传入文件,但是你必需只能利用TJPEGImage的SaveToStream事件保存JPEG图象到文件,后者没有如SaveToFile的事件。这一过程包括了文件压缩质量的百分比,缺省值是100%。

例如,我把44,280字节的Handshak.bmp文件从Common Files\Borland Shared\Images\Splash\256Color目录下转化为12种JPEG文件,这一过程采用100%,95%,90%,85%,80%,75%,70%,65%,60%,55%,50%,0%的压缩质量百分比,如Table A所示。在50%下,图象不再有很好的质量。100%压缩质量比结果是文件变大。事实上,当我采用75%以上的压缩质量百分比时,图象都保持很好的效果。

Compression quality percentage
Resulting JPEG file size

100%
57,477

95%
32,247

90%
23,037

85%
18,325

80%
15,489

75%
13,551

70%
12,190

65%
11,129

60%
10,257

55%
9,562

50%
8,960

0%
1,813


从JPEG转化为BMP
把JPEG图象转化为BMP图象能够节省很大的存储空间,但是这一过程要丢失一些图象性质。在很多情况下人们都是存储BMP文件而不是JPEG文件。

幸运的是,从JPEG转化到BMP是非常的容易,你无需使用压缩质量的方式。但是你应该记住,BMP文件是不能压缩的,所认BMP的压缩设置对最后的文件大小没有任何的影响。

Delphi JPG2BMP工程的源代码位于Listing B。这一程序演示了以上所说的内容。

非常容易地转化
这里的代码片段演示了如何转化BMP到JPEG及如何返之转化。即使你还关注转化的质量和文件大小,Delphi的TJPEGImage控件也能让你很容易地完成这一操作。

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

编程爱好者论坛

本栏最新文章