home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 January / Chip_2001-01_cd1.bin / tema / mysql / mysql-3.23.28g-win-source.exe / zlib / contrib / visual-basic.txt
Internet Message Format  |  1999-10-12  |  2KB
  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
  58.