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

Delphi中压缩流和解压流的应用2008-02-02冯志强软件开发者不免都要遇到压缩数据的问题！经常使用Delphi的朋友都知道，它为我们提供了两个流类（TCompressionStream和TDecompressionStream）来完成数据的压缩和解压缩，但美中不足的是，该流在Delphi 的帮助中没有详细的说明，使得它们在使用起来有一定得困难。其实在Delphi系统中提供了这两个类的源代码和库。保存在Delphi 光盘的InfoExtraslib Src和InfoExtraslibObj目录中（其中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：目的流，用于存放压缩过的数据。