Delphi使用Zlib

uses 
  zlib; 

//将Src使用Zlib压缩后存入Dst当中 
procedure PackStream(const Src:TStream; Dst:TStream); 
var 
  CompStream: TCompressionStream; 
begin 
  //增加“断言”以防止输入参数有误 
  Assert(Src <> Nil); 
  Assert(Dst <> Nil); 

  CompStream := TCompressionStream.Create(clDefault,Dst); 
  try 
    //将源数据的偏移转到首部 
    Src.Seek(0,soFromBeginning); 
    //使用CopyFrom将源数据输入到压缩流，以实现压缩 
    CompStream.CopyFrom(Src,0); 
  finally 
    CompStream.Free; 
  end; 
end; 

//将以zlib压缩的Src解压缩后存入Dst当中 
procedure UnpackStream(const Src:TStream; Dst:TStream); 
var 
  DecompStream: TDecompressionStream; 
  NewSize: Int64; 
begin 
  //增加“断言”以防止输入参数有误 
  Assert(Src <> Nil); 
  Assert(Dst <> Nil); 

  DecompStream:= TDecompressionStream.Create(Src); 
  try 
    //将源数据的偏移转到首部 
    NewSize := Src.Seek(0, soFromEnd); 
    Src.Seek(0, soFromBeginning); 
    //使用CopyFrom将源数据输入到解压缩流，以实现解压缩 
    //并得到实际解压缩后的数据大小(NewSize) 
    //内部会使用AllocMem(System单元定义)对Dst进行内存重新分配 
    //所以，Dst的内存管理必须兼容AllocMem进行内存分配 
    NewSize := Dst.CopyFrom(DecompStream,NewSize); 
    //重新设置Dst的实际大小(已经在解压缩过程当中进行重新分配) 
    Dst.Size := NewSize; 
  finally 
    DecompStream.Free; 
  end; 
end; 

//测试代码 
procedure Test; 
var 
  SrcStream,PackedStream,UnpackedStream:TMemoryStream; 
begin 
  SrcStream := TMemoryStream.Create; 
  try 
    SrcStream.LoadFromFile('c:\test.xml'); 
    PackedStream := TMemoryStream.Create; 
    try 
      //压缩 
      PackStream(SrcStream, PackedStream); 

      PackedStream.Seek(0, soFromBeginning); 
      PackedStream.SaveToFile('c:\test_xml.pk'); 
      UnpackedStream := TMemoryStream.Create; 
      try 
        //解压缩 
        UnpackStream(PackedStream, UnpackedStream); 

        UnpackedStream.Seek(0, soFromBeginning); 
        UnpackedStream.SaveToFile('c:\test_xml.xml'); 
      finally 
        UnpackedStream.Free; 
      end; 
    finally 
      PackedStream.Free; 
    end; 
  finally 
    SrcStream.Free; 
  end; 
end;