home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Web_Based_2066535202007.psc / CompressionWizard / Compressions.bas
BASIC Source File  |  2007-05-19  |  998b  |  43 lines
  1. Attribute VB_Name = "Compressions"
  2. Option Explicit
  3.  
  4. Public Enum CompressMethods
  5.     RLE = 1
  6.     RLE_Loop = 2
  7.     LZW = 3
  8. End Enum
  9. #If False Then
  10. Private RLE, RLE_Loop, LZW
  11. #End If
  12.  
  13. Private CompressArray() As Byte
  14. Private PosStream() As Byte
  15. Private DistStream() As Byte
  16. Private ContStream() As Byte
  17. Private LengthStream() As Byte
  18. Private OutStream() As Byte
  19. Private OutPos As Long
  20. Private PosPos As Long
  21. Private DistPos As Long
  22. Private ReadBitPos As Integer
  23. Private CntPos As Long
  24. Private CntByteBuf As Integer
  25. Private CntBitCount As Integer
  26. Private LengthPos As Long
  27.  
  28. Private Dict() As String
  29. Private AddDict As Integer
  30. Private addDictPos As Integer
  31. Private MaxDictBitPos As Integer
  32. Private MaxDict As Integer
  33. Private NowBitLength As Integer
  34. Private UsedDicts As Integer
  35. Private Const DictionarySize As Long = 3
  36.  
  37. Private Dep eam() As Byte
  38. Private LengthStream() As Byte
  39. Private OutStream() As BAs Long = 3
  40.  
  41. PrivatedDicts As Int1am() As BAs LCg = 3
  42.  
  43. Privat