内存中压缩数组的二种办法

最新推荐文章于 2022-09-11 11:39:45 发布

jf110

最新推荐文章于 2022-09-11 11:39:45 发布

阅读量1.6k

点赞数

分类专栏： VB 文章标签： function byte buffer exe dll 算法

本文链接：https://blog.csdn.net/jf110/article/details/1825725

版权

这篇博客介绍了如何在内存中使用zlibwapi.dll库来压缩和解压缩VBA中的字节数组。提供了两个函数CompressByte和UnCompressByte，分别用于压缩和解压缩操作。代码示例展示了如何通过DLL调用来实现压缩和解压缩，并在过程中处理原始数据的大小和冗余数据。

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

到底压缩数组有什么好处我就不多说了，直接看代码吧

1 利用zlibwapi.dll（网上到处都有下载的，还有C的源码）
注：利用代码转自“http://blog.csdn.net/modest/archive/2006/04/13/662072.aspx”
魏滔序原创
提示：DLL记得要先注册哦
'-------------------------------------------代码如下------------------------------------------------------------

Option Explicit
'Declares
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
Private Declare Function Compress Lib "zlibwapi.dll" Alias "compress" (dest As Any, destLen As Any, src As Any, ByVal srcLen As Long) As Long
Private Declare Function uncompress Lib "zlibwapi.dll" (dest As Any, destLen As Any, src As Any, ByVal srcLen As Long) As Long

Private Const OFFSET As Long = &H8

'压缩数组
Public Function CompressByte(ByteArray() As Byte) As Boolean
Dim BufferSize As Long