Huffman with Short dictionary压缩算法（VB.NET Source）

Huffman with Short dictionary压缩算法（VB.NET Source）

on Strict Off

Option Explicit On

<System.Runtime.InteropServices.ProgId("Compress_NET.Compress")> Public Class Compress

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Byte, ByRef source As Byte, ByVal Length As Integer)

Private BitVal() As Integer

Private CharVal() As Integer

Public Function Compress(ByRef FileArray() As Byte) As Byte

Dim X As Integer

Dim Y As Integer

Dim Z As Integer

Dim Char_Renamed As Short

Dim Bitlen As Short

Dim FileLen_Renamed As Integer

Dim TelBits As Integer

Dim TotBits As Integer

Dim OutStream() As Byte

Dim TreeNodes(511, 4) As Integer

Dim BitValue(7) As Byte

Dim ByteValue As Byte

Dim ByteBuff As String