开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 压缩解压 > 查看源码
visual-basic.txt
资源名称：zlib.zip　[点击查看]
上传用户：zlt_tm
上传日期：2007-01-06
资源大小：214k
文件大小：3k
源码类别：

压缩解压

开发平台：

WINDOWS

visual-basic.txt：源码内容
  1. See below some functions declarations for Visual Basic.
  3. Frequently Asked Question:
  5. Q: Each time I use the compress function I get the -5 error (not enough
  6.    room in the output buffer).
  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.
  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
  18. Got the answer! (I haven't had time to check this but it's what I got, and
  19. looks correct):
  21. He has the following routines working:
  22.         compress
  23.         uncompress
  24.         gzopen
  25.         gzwrite
  26.         gzread
  27.         gzclose
  29. Declares follow: (Quoted from Carlos Rios <c_rios@sonda.cl>, in Vb4 form)
  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
  67. -Jon Caruana
  68. jon-net@usa.net
  69. Microsoft Sitebuilder Network Level 1 Member - HTML Writer's Guild Member