diff options
Diffstat (limited to 'contrib/visual-basic.txt')
-rw-r--r-- | contrib/visual-basic.txt | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/contrib/visual-basic.txt b/contrib/visual-basic.txt new file mode 100644 index 0000000..18aa084 --- /dev/null +++ b/contrib/visual-basic.txt | |||
@@ -0,0 +1,57 @@ | |||
1 | From: "Jon Caruana" <jon-net@usa.net> | ||
2 | To: "Jean-loup Gailly" <gzip@prep.ai.mit.edu> | ||
3 | Subject: Re: How to port zlib declares to vb? | ||
4 | Date: Mon, 28 Oct 1996 18:33:03 -0600 | ||
5 | |||
6 | Got the answer! (I haven't had time to check this but it's what I got, and | ||
7 | looks correct): | ||
8 | |||
9 | He has the following routines working: | ||
10 | compress | ||
11 | uncompress | ||
12 | gzopen | ||
13 | gzwrite | ||
14 | gzread | ||
15 | gzclose | ||
16 | |||
17 | Declares follow: (Quoted from Carlos Rios <c_rios@sonda.cl>, in Vb4 form) | ||
18 | |||
19 | #If Win16 Then 'Use Win16 calls. | ||
20 | Declare Function compress Lib "ZLIB.DLL" (ByVal compr As | ||
21 | String, comprLen As Any, ByVal buf As String, ByVal buflen | ||
22 | As Long) As Integer | ||
23 | Declare Function uncompress Lib "ZLIB.DLL" (ByVal uncompr | ||
24 | As String, uncomprLen As Any, ByVal compr As String, ByVal | ||
25 | lcompr As Long) As Integer | ||
26 | Declare Function gzopen Lib "ZLIB.DLL" (ByVal filePath As | ||
27 | String, ByVal mode As String) As Long | ||
28 | Declare Function gzread Lib "ZLIB.DLL" (ByVal file As | ||
29 | Long, ByVal uncompr As String, ByVal uncomprLen As Integer) | ||
30 | As Integer | ||
31 | Declare Function gzwrite Lib "ZLIB.DLL" (ByVal file As | ||
32 | Long, ByVal uncompr As String, ByVal uncomprLen As Integer) | ||
33 | As Integer | ||
34 | Declare Function gzclose Lib "ZLIB.DLL" (ByVal file As | ||
35 | Long) As Integer | ||
36 | #Else | ||
37 | Declare Function compress Lib "ZLIB32.DLL" | ||
38 | (ByVal compr As String, comprLen As Any, ByVal buf As | ||
39 | String, ByVal buflen As Long) As Integer | ||
40 | Declare Function uncompress Lib "ZLIB32.DLL" | ||
41 | (ByVal uncompr As String, uncomprLen As Any, ByVal compr As | ||
42 | String, ByVal lcompr As Long) As Long | ||
43 | Declare Function gzopen Lib "ZLIB32.DLL" | ||
44 | (ByVal file As String, ByVal mode As String) As Long | ||
45 | Declare Function gzread Lib "ZLIB32.DLL" | ||
46 | (ByVal file As Long, ByVal uncompr As String, ByVal | ||
47 | uncomprLen As Long) As Long | ||
48 | Declare Function gzwrite Lib "ZLIB32.DLL" | ||
49 | (ByVal file As Long, ByVal uncompr As String, ByVal | ||
50 | uncomprLen As Long) As Long | ||
51 | Declare Function gzclose Lib "ZLIB32.DLL" | ||
52 | (ByVal file As Long) As Long | ||
53 | #End If | ||
54 | |||
55 | -Jon Caruana | ||
56 | jon-net@usa.net | ||
57 | Microsoft Sitebuilder Network Level 1 Member - HTML Writer's Guild Member | ||