← Back to branch summary

~ubuntu-branches/ubuntu/lucid/perl-tk/lucid

« back to all changes in this revision

Viewing changes to PNG/zlib/contrib/visual-basic.txt

  • Committer: Bazaar Package Importer
  • Author(s): Colin Tuckley
  • Date: 2008-02-15 13:56:59 UTC
  • mfrom: (1.1.3 upstream) (4.1.1 hardy)
  • Revision ID: james.westby@ubuntu.com-20080215135659-ru2oqlykuju20fav
Tags: 1:804.028-1
http://bugs.debian.org/463080
http://bugs.debian.org/411129
* New Upstream Release (Closes: #463080).
* Update to Debhelper v5.
* Build with XFT=1 (Closes: #411129).

Show diffs side-by-side

added added

removed removed

Lines of Context:
PNG/zlib/contrib/visual-basic.txt
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