Deflate压缩与解压缩的控件

通过deflate压缩字符串，然后提供给PHP中的gzdeflate函数解压。
不知道有没有现成这样的控件，因为使用的VB6，VB6调用zlib不可以调用deflate进行压缩。
这儿有篇参考资料：
http://bbs.scut.edu.cn/classic/threadContent.jsp?threadID=355858
查了一下资料，Delphi可以直接使用zlibex库进行deflate进行压缩与解压缩，不知道有没有人肯帮忙封装一个控件进行调用。

scizip