摘要： usesZlib; //压缩 procedureDoCompress(varCompressedStream:TMemoryStream); var SourceStream:TCompressionStream; DestStream:TMemoryStream; Count:int64; Begin CompressedStream.Position:=0; Count:=CompressedStream.Size; ifCount=0then//错误 Exit; DestStream:=TMemoryStream.Create; SourceStream:=TCompressionStr 阅读全文