軟件開發(fā)者不免都要遇到壓縮數據的問題！經常使用Delphi的朋友都知道，它為我們提供了兩個流類（TCompressionStream和TDecompressionStream）來完成數據的壓縮和解壓縮，但美中不足的是，該流在Delphi 的幫助中沒有詳細的說明，使得它們在使用起來有一定得困難。其實在Delphi系統中提供了這兩個類的源代碼和庫。保存在Delphi 光盤的\Info\Extras\Zlib\ Src和\Info\Extras\Zlib\Obj目錄中（其中OBJ目錄中保存的是庫，Src目錄中保存的是源代碼，感興趣的朋友可以看看）。本人在使用的過程中，對它們有了一定的了解。
    一、 類的說明
    1、 基類 TCustomZlibStream：類TCustomZlibStream 是類TCompressionStream和TDecompressionStream 類的基類，它主要有一個屬性： OnProgress，在類進行壓縮或解壓縮的過程中會發(fā)生這個的事件 ，它的定義如下：
    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: 需要壓縮的數據的字節(jié)數；
    函數返回寫入流的字節(jié)數。
    壓縮類TCompressionStream的數據只能是寫入的，如果試圖從其內部讀取數據，將發(fā)生一個"Error "異常。需要壓縮的數據通過方法 Write寫入流中，在寫入的過程中就被壓縮，并保存在由構造函數提供的內存流（TmemoryStream）中,同時觸發(fā) OnProcess 事件。
    3、 解壓縮類 TDecompressionStream :和壓縮類TcompressionStream 相反，它的數據是只能讀出的，如果試圖往其內部寫數據，將發(fā)生一個"Error "異常。它的幾個重要方法定義如下：
    構造函數：Constructor Create(Source: TStream);
    其中：Source 是保存著壓縮數據的流；
    Function Read(var Buffer; Count: Longint): Longint;
    數據讀出函數，Buffer： 存數據緩沖區(qū)；
    Count: 緩沖區(qū)的大??；
    函數返回讀出的字節(jié)數。
    數據在讀出的過程中，數據被解壓縮，并觸發(fā) OnProcess 事件。