home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / compress / addzip / addzip16.bas < prev    next >
Encoding:
BASIC Source File  |  1996-05-19  |  4.9 KB  |  106 lines
  1. ' Visual Basic 3.0 declares file for
  2. '
  3. '     azip16.dll    addZIP 16-bit compression library
  4. '     aunzip16.dll  addUNZIP 16-bit decompression library
  5. '
  6. ' Copyright ⌐ 1996, Stephen Darlington. All rights reserved.
  7. ' Written by Stephen Darlington                  May 1996
  8.  
  9. ' compression functions
  10. Declare Function addZIP Lib "azip16.dll" () As Integer
  11. Declare Function addZIP_ArchiveName Lib "azip16.dll" (ByVal lpFile As String) As Integer
  12. Declare Function addZIP_Encrypt Lib "azip16.dll" (ByVal lpPassword As String) As Integer
  13. Declare Function addZIP_Exclude Lib "azip16.dll" (ByVal lpFiles As String) As Integer
  14. Declare Function addZIP_ExcludeListFile Lib "azip16.dll" (ByVal lpFile As String) As Integer
  15. Declare Function addZIP_Include Lib "azip16.dll" (ByVal lpFiles As String) As Integer
  16. Declare Function addZIP_IncludeListFile Lib "azip16.dll" (ByVal lpFile As String) As Integer
  17. Declare Function addZIP_Overwrite Lib "azip16.dll" (ByVal iFlag As Integer) As Integer
  18. Declare Function addZIP_Recurse Lib "azip16.dll" (ByVal iFlag As Integer) As Integer
  19. 'Declare Function addZIP_Register Lib "azip16.dll" (??????) As Integer
  20. Declare Function addZIP_SaveStructure Lib "azip16.dll" (ByVal iFlag As Integer) As Integer
  21. Declare Function addZIP_SetCompressionLevel Lib "azip16.dll" (ByVal iFlag As Integer) As Integer
  22. Declare Function addZIP_SetWindowHandle Lib "azip16.dll" (ByVal hwnd As Integer) As Integer
  23. Declare Function addZIP_SetParentWindowHandle Lib "azip16.dll" (ByVal hwnd As Integer) As Integer
  24. Declare Function addZIP_View Lib "azip16.dll" (ByVal bFlag As Integer) As Integer
  25.  
  26. ' decompression functions
  27. Declare Function addUNZIP Lib "aunzip16.dll" () As Integer
  28. Declare Function addUNZIP_ArchiveName Lib "aunzip16.dll" (ByVal lpFile As String) As Integer
  29. Declare Function addUNZIP_Decrypt Lib "aunzip16.dll" (ByVal lpPassword As String) As Integer
  30. Declare Function addUNZIP_Exclude Lib "aunzip16.dll" (ByVal lpFiles As String) As Integer
  31. Declare Function addUNZIP_ExcludeListFile Lib "aunzip16.dll" (ByVal lpFile As String) As Integer
  32. Declare Function addUNZIP_ExtractTo Lib "aunzip16.dll" (ByVal lpPath As String) As Integer
  33. Declare Function addUNZIP_Freshen Lib "aunzip16.dll" (ByVal bFlag As Integer) As Integer
  34. Declare Function addUNZIP_Include Lib "aunzip16.dll" (ByVal lpFiles As String) As Integer
  35. Declare Function addUNZIP_IncludeListFile Lib "aunzip16.dll" (ByVal lpFile As String) As Integer
  36. Declare Function addUNZIP_Overwrite Lib "aunzip16.dll" (ByVal iFlag As Integer) As Integer
  37. 'Declare Function addUNZIP_Register Lib "aunzip16.dll" (??????) As Integer
  38. Declare Function addUNZIP_RestoreStructure Lib "aunzip16.dll" (ByVal bFlag As Integer) As Integer
  39. Declare Function addUNZIP_SetParentWindowHandle Lib "aunzip16.dll" (ByVal hwnd As Integer) As Integer
  40. Declare Function addUNZIP_SetWindowHandle Lib "aunzip16.dll" (ByVal hwnd As Integer) As Integer
  41. Declare Function addUNZIP_Test Lib "aunzip16.dll" (ByVal bFlag As Integer) As Integer
  42. Declare Function addUNZIP_Update Lib "aunzip16.dll" (ByVal bFlag As Integer) As Integer
  43. Declare Function addUNZIP_View Lib "aunzip16.dll" (ByVal bFlag As Integer) As Integer
  44.  
  45. ' global constants for addZIP_Overwrite and addUNZIP_Overwrite
  46. Global Const OVERWRITE_QUERY = 10
  47. Global Const OVERWRITE_ALL = 11
  48. Global Const OVERWRITE_NONE = 12
  49.  
  50. ' global constants for addZIP_SetCompressionLevel
  51. Global Const COMPRESSION_NONE = 0
  52. Global Const COMPRESSION_MINIMUM = 1
  53. Global Const COMPRESSION_NORMAL = 2
  54. Global Const COMPRESSION_MAXIMUM = 3
  55.  
  56. ' global constants for addZIP_SaveStructure
  57. Global Const SAVE_FILENAME_ONLY = 0
  58. Global Const SAVE_RELATIVE_PATH = 1
  59. Global Const SAVE_ABSOLUTE_PATH = 2
  60.  
  61. Function GetFileCompressedSize (cFrom As String) As Long
  62.     GetFileCompressedSize = Val(GetPiece(cFrom, "|", 7))
  63. End Function
  64.  
  65. Function GetFileCompressionRatio (cFrom As String) As Integer
  66.     GetFileCompressionRatio = Val(GetPiece(cFrom, "|", 8))
  67. End Function
  68.  
  69. Function GetFileName (cFrom As String) As String
  70.     GetFileName = GetPiece(cFrom, "|", 5)
  71. End Function
  72.  
  73. Function GetFileOriginalSize (cFrom As String) As Long
  74.     GetFileOriginalSize = Val(GetPiece(cFrom, "|", 6))
  75.     Debug.Print Val(GetPiece(cFrom, "|", 6))
  76. End Function
  77.  
  78. Function GetFilePath (cFrom As String) As String
  79.     GetFilePath = GetPiece(cFrom, "|", 4)
  80. End Function
  81.  
  82. Function GetPiece (from As String, delim As String, Index As Integer) As String
  83.     Dim temp$
  84.     Dim Count As Integer
  85.     Dim Where As Integer
  86.     '
  87.     temp$ = from & delim
  88.     Where = InStr(temp$, delim)
  89.     Count = 0
  90.     Do While (Where > 0)
  91.         Count = Count + 1
  92.         If (Count = Index) Then
  93.             GetPiece = Left$(temp$, Where - 1)
  94.             Exit Function
  95.         End If
  96.         temp$ = Right$(temp$, Len(temp$) - Where)
  97.         Where = InStr(temp$, delim)
  98.     Loop
  99.     If (Count = 0) Then
  100.         GetPiece = from
  101.     Else
  102.         GetPiece = ""
  103.     End If
  104. End Function
  105.  
  106.