VB如何编字典压缩程序?

发布网友发布时间：2022-05-23 02:39

共1个回答

热心网友时间：2023-10-10 17:57

待压缩的文件在 http://202.99.99.42/read/frmfcus.frx 压缩算法的代码很长我就不贴了vb6中用zlib.dll实现压缩/解压缩字节数组 http://www.chenoe.com/blog/article.asp?id=2046 转贴请注明出处作者：塞北雪貂 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 rendant 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 rendant data ReDim Preserve ByteArray(0 To BufferSize - 1) CopyMemory ByteArray(0), TempBuffer(0), BufferSize End Function