谁知道Windows里面自带的Gzip.dll的函数声明及使用方法？

[288794]

用inet控制获取的网页是gzip编码的，不知道怎么还原为原始的编码，需要用gzip.dll里面的函数，可是不知道怎么声明和使用，求gzip解压缩的方法。

[嗷嗷叫的老马]

http://www.google.cn/search?hl=zh-CN&q=VB+GZIP&meta=&aq=f

GOOGLE一下你就省了这20分了.

[288794]

有那么好我也不用花这20分了。

[yinweihong]

我倒是有GZIP.DLL里面的方法的声明,但是只是在.NET下测试通过了,VB6却没有...~

[yinweihong]

http://www.google.com/codesearch?hl=en&q=show:IQaFsxIyO24:OxRSJga7rN0:kHBOK1EXgjc&sa=N&ct=rd&cs_p=http://lolsws.tripod.com&cs_f=/0321113594_ch06lev1sec1.html-002&start=1


楼主可以参考一下

[yinweihong]

一般来说实现GZIP的还是用ZLIB.DLL多

[288794]

[Quote=引用 3 楼 yinweihong 的回复:]
我倒是有GZIP.DLL里面的方法的声明,但是只是在.NET下测试通过了,VB6却没有...~
[/Quote]

声明是一样的，怎么声明？

[东方之珠]

up

[迈克揉索芙特]

http://www.example-code.com/vb/vb6-gzip-file.asp

[嗷嗷叫的老马]

结帖吧:)

[迈克揉索芙特]

晕，竟然与我的文章有异曲同工之妙。
http://blog.csdn.net/Modest/archive/2006/04/13/662072.aspx

[288794]

问题解决，谢谢大家！！！

Option Explicit


Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
Private Declare Function InitDecompression Lib "gzip.dll" () As Long
Private Declare Function CreateDecompression Lib "gzip.dll" (ByRef context As Long, ByVal Flags As Long) As Long
Private Declare Function DestroyDecompression Lib "gzip.dll" (ByRef context As Long) As Long
Private Declare Function Decompress Lib "gzip.dll" (ByVal context As Long, inBytes As Any, ByVal input_size As Long, outBytes As Any, ByVal output_size As Long, ByRef input_used As Long, ByRef output_used As Long) As Long

Private Const OFFSET As Long = &H8


'解压缩数组
Public Function UnCompressByte(ByteArray() As Byte) As Boolean

Dim BufferSize As Long
Dim buffer() As Byte
Dim lReturn As Long

Dim outUsed As Long
Dim inUsed As Long

'创建解压缩后的缓存
CopyMemory BufferSize, ByteArray(0), OFFSET
BufferSize = BufferSize + (BufferSize * 0.01) + 12
ReDim buffer(BufferSize) As Byte

'创建解压缩进程
Dim contextHandle As Long: InitDecompression
CreateDecompression contextHandle, 1 '创建

'解压缩数据
lReturn = Decompress(ByVal contextHandle, ByteArray(0), UBound(ByteArray) + 1, buffer(0), BufferSize, inUsed, outUsed)

DestroyDecompression contextHandle

'删除重复的数据
ReDim Preserve ByteArray(0 To outUsed - 1)
CopyMemory ByteArray(0), buffer(0), outUsed

End Function