VBA解压缩ZIP文件09——解压-静态Huffman

Private Function InitFixedHuffmanTree()    Dim i As Long    Dim arr() As Long        ReDim arr(287) As Long        For i = 0 To 143        arr(i) = 8    Next        For i = 144 To 255        arr(i) = 9    Next        For i = 256 To 279        arr(i) = 7    Next        For i = 280 To 287        arr(i) = 8    Next        Set hFixed = CreateHuffman(arr)        Erase arrEnd Functio

解压过程：
'静态Huffman
Private Function InflateByFixedHuffman(ByRef cpByte() As Byte, ByRef uncpByte() As Byte, ByRef bitIndex As Long, ByRef pUncp As Long)
    Dim ilen As Long
    Dim iDistance As Long
    Dim i As Long
    
    Dim bValue As Long
    
    '按hFixed解码一个数字
    bValue = hFixed.GetLeafKey(cpByte, bitIndex)
    Do Until bValue = 256
    
        If bValue < 256 Then
            uncpByte(pUncp) = bValue
            pUncp = pUncp + 1
        Else
            ilen = bValue - 257
            ilen = ExtraValue(ilen, LengthCode, cpByte, bitIndex)
            'Distance来说，需要对Code=0-29的数进行编码，则直接采用5比特表示
            iDistance = GetBitsRev(cpByte, bitIndex, 5)
            bitIndex = bitIndex + 5
            iDistance = ExtraValue(iDistance, DistanceCode, cpByte, bitIndex)
                        
            '根据长度和距离复制数据
            For i = 1 To ilen
                uncpByte(pUncp) = uncpByte(pUncp - iDistance)
'                Debug.Print pUncp, VBA.Hex(uncpByte(pUncp))

                pUncp = pUncp + 1
            Next
            
        End If
        
        bValue = hFixed.GetLeafKey(cpByte, bitIndex)
    Loop
End Function