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

　其中：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中调试通

查看本文来源