Delphi 中压缩流和解压流的应用_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

Delphi 中压缩流和解压流的应用

作者：闵涛文章来源：闵涛的学习笔记点击数：638 更新时间：2009/4/23 18:24:59

　　软件开发者不免都要遇到压缩数据的问题！经常使用Delphi的朋友都知道，它为我们提供了两个流类（TCompressionStream和TDecompressionStream）来完成数据的压缩和解压缩，但美中不足的是，该流在Delphi 的帮助中没有详细的说明，使得它们在使用起来有一定得困难。其实在Delphi系统中提供了这两个类的源代码和库。保存在Delphi 光盘的\Info\Extras\Zlib\ Src和\Info\Extras\Zlib\Obj目录中（其中OBJ目录中保存的是库，Src目录中保存的是源代码，感兴趣的朋友可以看看）。本人在使用的过程中，对它们有了一定的了解。

　　一、类的说明

　　1、基类 TCustomZlibStream：类TCustomZlibStream 是类TCompressionStream和TDecompressionStream 类的基类，它主要有一个属性： OnProgress，在类进行压缩或解压缩的过程中会发生这个的事件，它的定义如下：

　　　Procedure OnProgress (Sender: TObject); dynamic;

　　2、压缩类TCompressionStream：类TCompressionStream除了继承了基类的 OnProgress 属性外，又增加了一个属性：CompressionRate，它的定义如下：

　　　Property CompressionRate: Single read GetCompressionRate;通过这个属性，可以得到压缩比。

　　它的几个重要的方法定义如下：

　　　Constructor TCompressionStream.Create (CompressionLevel: TCompressionLevel; Dest: TStream);

　　其中：TcompressionLevel（压缩类型），它由如下几个定义：

　　　①、 clNone ：不进行数据压缩；

　　　②、 clFastest：进行快速压缩，牺牲压缩效率；

　　　③、 clDefault：进行正常压缩；

　　　④、 clMax：进行最大化压缩，牺牲速度；

　　　Dest：目的流，用于存放压缩过的数据。

　　Function TCompressionStream.Write (const Buffer; Count: Longint): Longint;

　　其中：Buffer：需要压缩的数据；

　　　Count: 需要压缩的数据的字节数；

　　　函数返回写入流的字节数。

　　压缩类TCompressionStream的数据只能是写入的，如果试图从其内部读取数据，将发生一个"Error "异常。需要压缩的数据通过方法 Write写入流中，在写入的过程中就被压缩，并保存在由构造函数提供的内存流（TmemoryStream）中,同时触发 OnProcess 事件。

　　3、解压缩类 TDecompressionStream :和压缩类TcompressionStream 相反，它的数据是只能读出的，如果试图往其内部写数据，将发生一个"Error "异常。它的几个重要方法定义如下：

　　　构造函数：Constructor Create(Source: TStream);

　　　其中：Source 是保存着压缩数据的流；

　　　　Function Read(var Buffer; Count: Longint): Longint;

　　　数据读出函数，Buffer：存数据缓冲区；

　　　Count: 缓冲区的大小；

　　　函数返回读出的字节数。

　　　数据在读出的过程中，数据被解压缩，并触发 OnProcess 事件。

[系统软件]InstallShield Express for delphi制作安装程序定…  [常用软件]InstallShield Express制作Delphi数据库安装程序
[Delphi程序]为什么选择Delphi.Net ？  [Delphi程序]《关于VisiBroker For Delphi的使用》(4)
[Delphi程序]Delphi 程序员代码编写标准指南  [Delphi程序]转贴：Conversion to Delphi 6: Missing unit Pro…
[Delphi程序]Borland Delphi 9 的新特性  [Delphi程序]Delphi 键盘码表
[Delphi程序]Chuck Jazdzewski的离开意味着Delphi的终结吗？  [Delphi程序]Delphi Access violations 问题的解决之道

教程录入：mintao 责任编辑：mintao

上一篇教程： Delphi控制并行端口位操作

下一篇教程：用Delphi制作以浏览器为界面的应用程序

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……