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