怎样可以把流进行压缩？

Question

可以用Delphi5自带的压缩流，放在ZLib单元中
用法如下：
sIn,                  //你传进去的流
sOut: TMemoryStream;  //你传出来的流
sCompress: TCompressionStream；//压缩流      sCompress := TCompressionStream.Create(clFastest, sOut);
      try
        sCompress.CopyFrom(sIn, 0);
      finally
        sCompress.Free;
      end;OK
同样的，解压缩的流是TDecompressionStream