【下载】API压缩数据

阿杰

1. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
   
2. Private Declare Function InitDecompression Lib "gzip.dll" () As Long
   
3. Private Declare Function CreateDecompression Lib "gzip.dll" (ByRef context As Long, ByVal Flags As Long) As Long
   
4. Private Declare Function DestroyDecompression Lib "gzip.dll" (ByRef context As Long) As Long
   
5. 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
   
6. Private Const OFFSET As Long = &H8
   
7. 
   
8. '解压缩数组
   
9. Public Function UnCompressByte(ByteArray() As Byte) As Boolean
   
10. Dim BufferSize As Long
    
11. Dim buffer() As Byte
    
12. Dim lReturn As Long
    
13. Dim outUsed As Long
    
14. Dim inUsed As Long
    
15.     '创建解压缩后的缓存
    
16.     CopyMemory BufferSize, ByteArray(0), OFFSET
    
17.     BufferSize = BufferSize + (BufferSize * 0.01) + 12
    
18.     ReDim buffer(BufferSize) As Byte
    
19.     '创建解压缩进程
    
20.     Dim contextHandle As Long: InitDecompression
    
21.     CreateDecompression contextHandle, 1    '创建
    
22.     '解压缩数据
    
23.     lReturn = Decompress(ByVal contextHandle, ByteArray(0), UBound(ByteArray) + 1, buffer(0), BufferSize, inUsed, outUsed)
    
24.     DestroyDecompression contextHandle
    
25.     '删除重复的数据
    
26.     ReDim Preserve ByteArray(0 To outUsed - 1)
    
27.     CopyMemory ByteArray(0), buffer(0), outUsed
    
28. End Function
    

复制代码

马大哈

以下是引用魏滔序的文章 http://blog.csdn.net/Modest/archive/2006/04/13/662072.aspx：

1. Option Explicit
   
2. 'Declares
   
3. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
   
4. Private Declare Function Compress Lib "zlibwapi.dll" Alias "compress" (dest As Any, destLen As Any, src As Any, ByVal srcLen As Long) As Long
   
5. Private Declare Function uncompress Lib "zlibwapi.dll" (dest As Any, destLen As Any, src As Any, ByVal srcLen As Long) As Long
   
6. Private Const OFFSET As Long = &H8
   
7. '压缩数组
   
8. Public Function CompressByte(ByteArray() As Byte) As Boolean
   
9.     Dim BufferSize As Long
   
10.     Dim TempBuffer() As Byte
    
11.     'Create a buffer to hold the compressed data
    
12.     BufferSize = UBound(ByteArray) + 1
    
13.     BufferSize = BufferSize + (BufferSize * 0.01) + 12
    
14.     ReDim TempBuffer(BufferSize)
    
15.     'Compress byte array (data)
    
16.     CompressByte = (Compress(TempBuffer(0), BufferSize, ByteArray(0), UBound(ByteArray) + 1) = 0)
    
17.     'Add the size of the original data
    
18.     Call CopyMemory(ByteArray(0), CLng(UBound(ByteArray) + 1), OFFSET)
    
19.     'Remove redundant data
    
20.     ReDim Preserve ByteArray(0 To BufferSize + OFFSET - 1)
    
21.     CopyMemory ByteArray(OFFSET), TempBuffer(0), BufferSize
    
22. End Function
    
23. '解压缩数组
    
24. Public Function UnCompressByte(ByteArray() As Byte) As Boolean
    
25.     Dim OrigLen As Long
    
26.     Dim BufferSize As Long
    
27.     Dim TempBuffer() As Byte
    
28.     'Get the original size
    
29.     Call CopyMemory(OrigLen, ByteArray(0), OFFSET)
    
30.     'Create a buffer to hold the uncompressed data
    
31.     BufferSize = OrigLen
    
32.     BufferSize = BufferSize + (BufferSize * 0.01) + 12
    
33.     ReDim TempBuffer(BufferSize)
    
34.     'Decompress data
    
35.     UnCompressByte = (uncompress(TempBuffer(0), BufferSize, ByteArray(OFFSET), UBound(ByteArray) - OFFSET + 1) = 0)
    
36.     'Remove redundant data
    
37.     ReDim Preserve ByteArray(0 To BufferSize - 1)
    
38.     CopyMemory ByteArray(0), TempBuffer(0), BufferSize
    
39. End Function

复制代码

加个压缩的就全了,嘿嘿.

gcyun

那是不同的 zlibwapi gzip 系统好像没有这两个

upring

真的好厉害