Z zywcd Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-05 #3 应该可以吧,有这样一个过程 function ZipFromStream( theStream: TStream; FName: String ): Integer;
L liyinwei Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-07 #6 自己加个接口函数把。 你进去它的源代码看看就会明白,它也是用压缩流的方式压缩数据的。