visual-basic.txt
上传用户:zhongxx05
上传日期:2007-06-06
资源大小:33641k
文件大小:3k
源码类别:

Symbian

开发平台:

C/C++

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