2010-10-06 修正解压缩代码 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; var N: Longint; Buffer: array[0..4095] of Byte; begin //增加“断言”以防止输入参数有误 Assert(Src <> Nil); Assert(Dst <> Nil); DecompStream := TDecompressionStream.Create(Src); try //NewSize := Src.Size; //将源数据的偏移转到首部 NewSize := 0; Dst.Seek(0, soFromBeginning); DecompStream.Seek(0,soFromBeginning); repeat N := DecompStream.Read(Buffer[0],4096); Dst.WriteBuffer(Buffer,N); NewSize := NewSize + N; until N <> 4096; 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; uses zlib; //将Src使用Zlib 你的当前访问异常,请进行认证后继续阅读剩余内容。 提交