Vba解压GZIP流，网页数据下载的 “WinHttp” 方法

最新推荐文章于 2021-06-23 16:19:41 发布

蓝天630902

最新推荐文章于 2021-06-23 16:19:41 发布

阅读量8.3k

点赞数

分类专栏： vba 文章标签： WinHttp VBA gzip Excel 下载

本文链接：https://blog.csdn.net/a814153a/article/details/9248175

版权

本文介绍了如何在VBA中利用WinHttp组件处理GZIP压缩的网页数据，通过引入gzip.dll文件，实现数据的解压和下载。提供了一个下载gzip.dll的链接，并给出了模块代码示例。

摘要由CSDN通过智能技术生成

需要“gzip.dll”文件，下载地址：　http://pan.baidu.com/s/1ta939

模块代码：

Public Const OFFSET As Long = &H8
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
Public Declare Function InitDecompression Lib "gzip.dll" () As Long
Public Declare Function CreateDecompression Lib "gzip.dll" (ByRef context As Long, ByVal Flags As Long) As Long
Public Declare Function DestroyDecompression Lib "gzip.dll" (ByRef context As Long) As Long
Public 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
Public Declare Function MultiByteToWideChar Lib