基于Zlib的压缩/解压缩组件
DimstrAsString
Dimpacked_bytesAsVariant
Dimunpacked_bytesAsVariant
str="随便测试一个相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长的字符串"
'压缩
packed_bytes=StrConv(str,vbFromUnicode)
MsgBox"压缩前字节数:"&LenB(packed_bytes)
CallPackStream(packed
用户评论
mingtian56785 2020-05-18 05:19:55
vb的,有乱码,下这个不如下这个http://download.csdn.net/detail/unsigned/713355 ,它是这个的超集