Delphi压缩流和解压流的应用

　　软件开发者 未免都要遇到压缩数据的问题！ 时常 使用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： 目标流，用于 存放压缩过的数据 。

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

　　二、 类的 使用

　　通过类TCompressionStream和TdecompressionStream的配合 使用，我们 可以十分容易地 实现数据的压缩和解压，下面便是本人在编写屏幕拷贝程序中的 使用例子：

Procedure TClientForm.GetScreen;

　Var

　　SourceDC,DestDC:HDC;

　　Bhandle:HBITMAP;

　　BitMap:TBitMap;

　　BmpStream,Deststream:TMemoryStream;

　　SourceStream:TCompressionStream;

　　Count:Integer;

　Begin

　　SourceDC:=CreateDC('display','','',nil);

　　{得到屏幕的 DC}

　　DestDC:=CreateCompatibleDC(SourceDC);

　　{ 构建暂时 DC}

　　Bhandle:=CreateCompatibleBitmap(SourceDC,Screen.Width, Screen.Height);

　　{ 构建位图}

　　SelectObject(DestDC,Bhandle);

　　{ 取舍位图DC}

　　BitBlt(DestDC,0,0,Screen.Width, Screen.Height,SourceDC,0,0,SRCCOPY);

　　{拷贝整个屏幕}

　　BitMap:=TBitMap.Create;

　　BitMap.Handle := Bhandle;

　　{ 保留屏幕位图到 BitMap中}

　　BmpStream:=TMemoryStream.Create;

　　BitMap.SaveToStream(BmpStream);

　　{ 构建位图数据的内存流}

　　count:=BmpStream.Size;

　　{ 保留位图的大小}

　　DestStream:=TMemoryStream.Create;

　　{ 指标流， 保留压缩数据}

　　SourceStream:=TCompressionStream.Create(clMax, DestStream);

　　{构建压缩流，采纳最大化压缩，并 保留到 指标流中}

　　try

　　　BmpStream.SaveToStream(SourceStream);

　　　　{压缩位图流}

　　　SourceStream.Free;

　　　　{ 实现压缩， 开释压缩流}

　　　BmpStream.Clear;

　　　　{清空原来位图流}

　　　BmpStream.WriteBuffer(Count, Sizeof(Count));

　　　　{将原来位图的大小 保留到新的位图流中，以便 使用}

　　　BmpStream.CopyFrom(DestStream, 0);

　　　　{将压缩数据附加到新的位图流后面}

　　　BmpStream.Position := 0;

　　　NMStrm.PostIt(BmpStream);

　　　　{发送位图流}

　　finally

　　　DestStream.Free;

　　　BmpStream.Destroy ;

　　　BitMap.Destroy;

　　　DeleteDC(SourceDC);

　　　ReleaseDC(Bhandle,SourceDC);

　　end;　

　{ 开释有关资源}

End;

　　该过程得到整个屏幕的图象拷贝，并利用压缩流SourceStream和内存流 Deststream将位图压缩，并再一次把位图大小和压缩数据流 保留到位图流中，发送出去，发送位图大小的 目标是在解压前来确定需求的内存空间 。

procedure TServerForm.NMStrmServMSG(Sender: TComponent;

const sFrom: String; strm: TStream);

　Var

　　StreamStr,DestStream:TMemoryStream;

　　SourceStream:TDecompressionStream;

　　count:Integer;

　　buffer:pointer;

　begin

　　ScreenImage.Picture.Bitmap:=nil;

　　If Strm Is TMemoryStream Then

　　　StreamStr := Strm AS TMemoryStream

　　Else

　　　Exit;

　　StreamStr.Position := 0;

　　StreamStr.ReadBuffer(Count, Sizeof(Count));

　　　{得到位图的大小}

　　GetMem(Buffer,Count);

　　　{申请数据空间}

　　DestStream := TMemoryStream.Create;

　　SourceStream := TDecompressionStream.Create(StreamStr);

　　　{构建解压流，压缩数据由StreamStr 流得到}

　　StatusBar.SimpleText := '正在 解决图象';

　　Try

　　　SourceStream.ReadBuffer(Buffer^,Count);

　　　　{读出解压数据}

　　　DestStream.WriteBuffer(Buffer^,Count);

　　　　{ 保留到位图流中}

　　　DestStream.Position := 0;

　　　ScreenImage.Picture.Bitmap.LoadFromStream(DestStream);

　　　　{显示到屏幕上}

　　Finally

　　　FreeMem(Buffer);

　　　DestStream.Destroy;

　　　SourceStream.Destroy;

　　End;

end;

　　该过程首先从得到的数据流中 获得位图大小，并申请内存空间， 而后 构建解压流，并将解压数据 保留到位图流中， 而后显示到屏幕上 。

　　本文程序在Delphi6.0中调试通过 。