哪位大虾有,我在CSDN上找到一个,但只有压缩的,没有解压的。55555

解决方案 »

  1.   

    用Zlib的相关方法吧
             ________________________欢迎访问和宣传我的论坛http://hthunter.vicp.net/
      

  2.   

    用zlib压缩后,得到是一个二进制的东东,怎么变成字符串。并且下一次我要再将字符串还原的。
      

  3.   

    http://www.yesky.com/20030311/1656296.shtml  软件开发者不免都要遇到压缩数据的问题!经常使用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 事件。
      

  4.   

    http://www.nssoft.net/showdoc.asp?did=710