[ Pobierz całość w formacie PDF ]
.See below some functions declarations for Visual Basic.Frequently Asked Question:Q: Each time I use the compress function I get the -5 error (not enoughroom in the output buffer).A: Make sure that the length of the compressed buffer is passed byreference ("as any"), not by value ("as long").Also check thatbefore the call of compress this length is equal to the total size ofthe compressed buffer and not zero.From: "Jon Caruana"Subject: Re: How to port zlib declares to vb?Date: Mon, 28 Oct 1996 18:33:03 -0600Got the answer! (I haven't had time to check this but it's what I got, andlooks correct):He has the following routines working:compressuncompressgzopengzwritegzreadgzcloseDeclares follow: (Quoted from Carlos Rios , in Vb4 form)#If Win16 Then 'Use Win16 calls.Declare Function compress Lib "ZLIB.DLL" (ByVal compr AsString, comprLen As Any, ByVal buf As String, ByVal buflenAs Long) As IntegerDeclare Function uncompress Lib "ZLIB.DLL" (ByVal uncomprAs String, uncomprLen As Any, ByVal compr As String, ByVallcompr As Long) As IntegerDeclare Function gzopen Lib "ZLIB.DLL" (ByVal filePath AsString, ByVal mode As String) As LongDeclare Function gzread Lib "ZLIB.DLL" (ByVal file AsLong, ByVal uncompr As String, ByVal uncomprLen As Integer)As IntegerDeclare Function gzwrite Lib "ZLIB.DLL" (ByVal file AsLong, ByVal uncompr As String, ByVal uncomprLen As Integer)As IntegerDeclare Function gzclose Lib "ZLIB.DLL" (ByVal file AsLong) As Integer#ElseDeclare Function compress Lib "ZLIB32.DLL"(ByVal compr As String, comprLen As Any, ByVal buf AsString, ByVal buflen As Long) As IntegerDeclare Function uncompress Lib "ZLIB32.DLL"(ByVal uncompr As String, uncomprLen As Any, ByVal compr AsString, ByVal lcompr As Long) As LongDeclare Function gzopen Lib "ZLIB32.DLL"(ByVal file As String, ByVal mode As String) As LongDeclare Function gzread Lib "ZLIB32.DLL"(ByVal file As Long, ByVal uncompr As String, ByValuncomprLen As Long) As LongDeclare Function gzwrite Lib "ZLIB32.DLL"(ByVal file As Long, ByVal uncompr As String, ByValuncomprLen As Long) As LongDeclare Function gzclose Lib "ZLIB32.DLL"(ByVal file As Long) As Long#End If-Jon Caruanajon-net@usa.netMicrosoft Sitebuilder Network Level 1 Member - HTML Writer's Guild Member [ Pobierz całość w formacie PDF ]