当前位置: 首页 > 图文教程 > 开发语言 > Delphi > Delphi 中压缩流和解压流的应用

Delphi
在线播放器DIY
关于VisiBroker For Delphi的使用（3）
关于VisiBroker For Delphi的使用（2）
关于VisiBroker For Delphi的使用（1）
Delphi的两个实用技巧(2)巧用Windows的API函数
Delphi的两个实用技巧(1)播放Flash
delphi学习:两种方法使用xml文档
Delphi与Word之间的融合技术
Delphi中动态链接库(DLL)的建立和使用
Delphi基础:Window 消息大全使用详解下
Delphi基础:Window 消息大全使用详解上
教你在DELPHI中如何调用系统对话框
Delphi开发单机瘦小数据库程序要点
用Delphi + DirectX开发简单RPG游戏
Delphi7从入门到精通之认识Delphi编辑器
Delphi7从入门到精通之历数Delphi七个版本
Delphi学习:图像放大漫游攻略
用编程来实现24小时制到12小时制的转换
一个实际的OLE服务器的开发
Delphi一点通:如何将源代码学好

No. « 8 9 10 11 »

技术文章搜索

关键字

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

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

　　一、 类的说明

　　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 事件。