使用zlibwapi.dll压缩和解压缩VBA字节数组-优快云博客

本文链接：https://blog.youkuaiyun.com/jf110/article/details/1825725

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

1 利用zlibwapi.dll（网上到处都有下载的，还有C的源码）
注：利用代码转自“http://blog.youkuaiyun.com/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
    Dim TempBuffer() As Byte
    'Create a buffer to hold the compressed data
    BufferSize = UBound(ByteArray) + 1
    BufferSize = BufferSize + (BufferSize * 0.01) + 12
    ReDim TempBuffer(BufferSize)

'Compress byte array (data)
CompressByte = (Compress(TempBuffer(0), BufferSize, ByteArray(0), UBound(ByteArray) + 1) = 0)

'Add the size of the original data
Call CopyMemory(ByteArray(0), CLng(UBound(ByteArray) + 1), OFFSET)

    'Remove redundant data
    ReDim Preserve ByteArray(0 To BufferSize + OFFSET - 1)
    CopyMemory ByteArray(OFFSET), TempBuffer(0), BufferSize
End Function

'解压缩数组
Public Function UnCompressByte(ByteArray() As Byte) As Boolean
    Dim OrigLen As Long
    Dim BufferSize As Long
    Dim TempBuffer() As Byte
    'Get the original size
    Call CopyMemory(OrigLen, ByteArray(0), OFFSET)

    'Create a buffer to hold the uncompressed data
    BufferSize = OrigLen
    BufferSize = BufferSize + (BufferSize * 0.01) + 12
    ReDim TempBuffer(BufferSize)

'Decompress data
UnCompressByte = (uncompress(TempBuffer(0), BufferSize, ByteArray(OFFSET), UBound(ByteArray) - OFFSET + 1) = 0)

    'Remove redundant data
    ReDim Preserve ByteArray(0 To BufferSize - 1)
    CopyMemory ByteArray(0), TempBuffer(0), BufferSize
End Function

'-----------------------------------------------------------------------------------------------------------------------------

2 改良一个俄罗斯的算法,是一位优快云的朋友改的，我偶然得之。
效率一般，速度可以接受，唯一的缺点是不支持已压缩或加壳的EXE，处理单纯的BYTE()肯定是没问题

'-------------------------------------------代码如下------------------------------------------------------------