• Home
  • Raw
  • Download

Lines Matching refs:As

32 Declare Function compress Lib "ZLIB.DLL" (ByVal compr As
33 String, comprLen As Any, ByVal buf As String, ByVal buflen
34 As Long) As Integer
36 As String, uncomprLen As Any, ByVal compr As String, ByVal
37 lcompr As Long) As Integer
38 Declare Function gzopen Lib "ZLIB.DLL" (ByVal filePath As
39 String, ByVal mode As String) As Long
40 Declare Function gzread Lib "ZLIB.DLL" (ByVal file As
41 Long, ByVal uncompr As String, ByVal uncomprLen As Integer)
42 As Integer
43 Declare Function gzwrite Lib "ZLIB.DLL" (ByVal file As
44 Long, ByVal uncompr As String, ByVal uncomprLen As Integer)
45 As Integer
46 Declare Function gzclose Lib "ZLIB.DLL" (ByVal file As
47 Long) As Integer
50 (ByVal compr As String, comprLen As Any, ByVal buf As
51 String, ByVal buflen As Long) As Integer
53 (ByVal uncompr As String, uncomprLen As Any, ByVal compr As
54 String, ByVal lcompr As Long) As Long
56 (ByVal file As String, ByVal mode As String) As Long
58 (ByVal file As Long, ByVal uncompr As String, ByVal
59 uncomprLen As Long) As Long
61 (ByVal file As Long, ByVal uncompr As String, ByVal
62 uncomprLen As Long) As Long
64 (ByVal file As Long) As Long
83 Private lngpvtPcnSml As Long 'Stores value for 'lngPercentSmaller'
84 Private Const SUCCESS As Long = 0
85 Private Const strFilExt As String = ".cpr"
87 dest As Any, ByRef destLen As Any, ByRef src As Any, ByVal srcLen As Long,
88 ByVal level As Integer) As Long
90 dest As Any, ByRef destLen As Any, ByRef src As Any, ByVal srcLen As Long)
91 As Long
93 Public Sub subCompressFile(ByVal strargOriFilPth As String, Optional ByVal
94 strargCprFilPth As String, Optional ByVal intLvl As Integer = 9)
95 Dim strCprPth As String
96 Dim lngOriSiz As Long
97 Dim lngCprSiz As Long
98 Dim bytaryOri() As Byte
99 Dim bytaryCpr() As Byte
102 Open strargOriFilPth For Binary Access Read As #1
116 Open strCprPth For Binary Access Write As #1
128 Public Sub subUncompressFile(ByVal strargFilPth As String)
129 Dim bytaryCpr() As Byte
130 Dim bytaryOri() As Byte
131 Dim lngOriSiz As Long
132 Dim lngCprSiz As Long
133 Dim strOriPth As String
136 Open strargFilPth For Binary Access Read As #1
149 Open strOriPth For Binary Access Write As #1
158 Public Property Get lngPercentSmaller() As Long