| 1 | See below some functions declarations for Visual Basic.
|
|---|
| 2 |
|
|---|
| 3 | Frequently Asked Question:
|
|---|
| 4 |
|
|---|
| 5 | Q: Each time I use the compress function I get the -5 error (not enough
|
|---|
| 6 | room in the output buffer).
|
|---|
| 7 |
|
|---|
| 8 | A: Make sure that the length of the compressed buffer is passed by
|
|---|
| 9 | reference ("as any"), not by value ("as long"). Also check that
|
|---|
| 10 | before the call of compress this length is equal to the total size of
|
|---|
| 11 | the compressed buffer and not zero.
|
|---|
| 12 |
|
|---|
| 13 |
|
|---|
| 14 | From: "Jon Caruana" <jon-net@usa.net>
|
|---|
| 15 | Subject: Re: How to port zlib declares to vb?
|
|---|
| 16 | Date: Mon, 28 Oct 1996 18:33:03 -0600
|
|---|
| 17 |
|
|---|
| 18 | Got the answer! (I haven't had time to check this but it's what I got, and
|
|---|
| 19 | looks correct):
|
|---|
| 20 |
|
|---|
| 21 | He has the following routines working:
|
|---|
| 22 | compress
|
|---|
| 23 | uncompress
|
|---|
| 24 | gzopen
|
|---|
| 25 | gzwrite
|
|---|
| 26 | gzread
|
|---|
| 27 | gzclose
|
|---|
| 28 |
|
|---|
| 29 | Declares follow: (Quoted from Carlos Rios <c_rios@sonda.cl>, in Vb4 form)
|
|---|
| 30 |
|
|---|
| 31 | #If Win16 Then 'Use Win16 calls.
|
|---|
| 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
|
|---|
| 35 | Declare Function uncompress Lib "ZLIB.DLL" (ByVal uncompr
|
|---|
| 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
|
|---|
| 48 | #Else
|
|---|
| 49 | Declare Function compress Lib "ZLIB32.DLL"
|
|---|
| 50 | (ByVal compr As String, comprLen As Any, ByVal buf As
|
|---|
| 51 | String, ByVal buflen As Long) As Integer
|
|---|
| 52 | Declare Function uncompress Lib "ZLIB32.DLL"
|
|---|
| 53 | (ByVal uncompr As String, uncomprLen As Any, ByVal compr As
|
|---|
| 54 | String, ByVal lcompr As Long) As Long
|
|---|
| 55 | Declare Function gzopen Lib "ZLIB32.DLL"
|
|---|
| 56 | (ByVal file As String, ByVal mode As String) As Long
|
|---|
| 57 | Declare Function gzread Lib "ZLIB32.DLL"
|
|---|
| 58 | (ByVal file As Long, ByVal uncompr As String, ByVal
|
|---|
| 59 | uncomprLen As Long) As Long
|
|---|
| 60 | Declare Function gzwrite Lib "ZLIB32.DLL"
|
|---|
| 61 | (ByVal file As Long, ByVal uncompr As String, ByVal
|
|---|
| 62 | uncomprLen As Long) As Long
|
|---|
| 63 | Declare Function gzclose Lib "ZLIB32.DLL"
|
|---|
| 64 | (ByVal file As Long) As Long
|
|---|
| 65 | #End If
|
|---|
| 66 |
|
|---|
| 67 | -Jon Caruana
|
|---|
| 68 | jon-net@usa.net
|
|---|
| 69 | Microsoft Sitebuilder Network Level 1 Member - HTML Writer's Guild Member
|
|---|
