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

软件开发者不免都要遇到压缩数据的问题！经常使用

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);