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

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

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