diff options
Diffstat (limited to 'contrib/delphi/zlibdef.pas')
-rw-r--r-- | contrib/delphi/zlibdef.pas | 169 |
1 files changed, 0 insertions, 169 deletions
diff --git a/contrib/delphi/zlibdef.pas b/contrib/delphi/zlibdef.pas deleted file mode 100644 index 4f96b7d..0000000 --- a/contrib/delphi/zlibdef.pas +++ /dev/null | |||
@@ -1,169 +0,0 @@ | |||
1 | unit zlibdef; | ||
2 | |||
3 | interface | ||
4 | |||
5 | uses | ||
6 | Windows; | ||
7 | |||
8 | const | ||
9 | ZLIB_VERSION = '1.1.3'; | ||
10 | |||
11 | type | ||
12 | voidpf = Pointer; | ||
13 | int = Integer; | ||
14 | uInt = Cardinal; | ||
15 | pBytef = PChar; | ||
16 | uLong = Cardinal; | ||
17 | |||
18 | alloc_func = function(opaque: voidpf; items, size: uInt): voidpf; | ||
19 | stdcall; | ||
20 | free_func = procedure(opaque, address: voidpf); | ||
21 | stdcall; | ||
22 | |||
23 | internal_state = Pointer; | ||
24 | |||
25 | z_streamp = ^z_stream; | ||
26 | z_stream = packed record | ||
27 | next_in: pBytef; // next input byte | ||
28 | avail_in: uInt; // number of bytes available at next_in | ||
29 | total_in: uLong; // total nb of input bytes read so far | ||
30 | |||
31 | next_out: pBytef; // next output byte should be put there | ||
32 | avail_out: uInt; // remaining free space at next_out | ||
33 | total_out: uLong; // total nb of bytes output so far | ||
34 | |||
35 | msg: PChar; // last error message, NULL if no error | ||
36 | state: internal_state; // not visible by applications | ||
37 | |||
38 | zalloc: alloc_func; // used to allocate the internal state | ||
39 | zfree: free_func; // used to free the internal state | ||
40 | opaque: voidpf; // private data object passed to zalloc and zfree | ||
41 | |||
42 | data_type: int; // best guess about the data type: ascii or binary | ||
43 | adler: uLong; // adler32 value of the uncompressed data | ||
44 | reserved: uLong; // reserved for future use | ||
45 | end; | ||
46 | |||
47 | const | ||
48 | Z_NO_FLUSH = 0; | ||
49 | Z_SYNC_FLUSH = 2; | ||
50 | Z_FULL_FLUSH = 3; | ||
51 | Z_FINISH = 4; | ||
52 | |||
53 | Z_OK = 0; | ||
54 | Z_STREAM_END = 1; | ||
55 | |||
56 | Z_NO_COMPRESSION = 0; | ||
57 | Z_BEST_SPEED = 1; | ||
58 | Z_BEST_COMPRESSION = 9; | ||
59 | Z_DEFAULT_COMPRESSION = -1; | ||
60 | |||
61 | Z_FILTERED = 1; | ||
62 | Z_HUFFMAN_ONLY = 2; | ||
63 | Z_DEFAULT_STRATEGY = 0; | ||
64 | |||
65 | Z_BINARY = 0; | ||
66 | Z_ASCII = 1; | ||
67 | Z_UNKNOWN = 2; | ||
68 | |||
69 | Z_DEFLATED = 8; | ||
70 | |||
71 | MAX_MEM_LEVEL = 9; | ||
72 | |||
73 | function adler32(adler: uLong; const buf: pBytef; len: uInt): uLong; | ||
74 | stdcall; | ||
75 | function crc32(crc: uLong; const buf: pBytef; len: uInt): uLong; | ||
76 | stdcall; | ||
77 | function deflate(strm: z_streamp; flush: int): int; | ||
78 | stdcall; | ||
79 | function deflateCopy(dest, source: z_streamp): int; | ||
80 | stdcall; | ||
81 | function deflateEnd(strm: z_streamp): int; | ||
82 | stdcall; | ||
83 | function deflateInit2_(strm: z_streamp; level, method, | ||
84 | windowBits, memLevel, strategy: int; | ||
85 | const version: PChar; stream_size: int): int; | ||
86 | stdcall; | ||
87 | function deflateInit_(strm: z_streamp; level: int; | ||
88 | const version: PChar; stream_size: int): int; | ||
89 | stdcall; | ||
90 | function deflateParams(strm: z_streamp; level, strategy: int): int; | ||
91 | stdcall; | ||
92 | function deflateReset(strm: z_streamp): int; | ||
93 | stdcall; | ||
94 | function deflateSetDictionary(strm: z_streamp; | ||
95 | const dictionary: pBytef; | ||
96 | dictLength: uInt): int; | ||
97 | stdcall; | ||
98 | function inflate(strm: z_streamp; flush: int): int; | ||
99 | stdcall; | ||
100 | function inflateEnd(strm: z_streamp): int; | ||
101 | stdcall; | ||
102 | function inflateInit2_(strm: z_streamp; windowBits: int; | ||
103 | const version: PChar; stream_size: int): int; | ||
104 | stdcall; | ||
105 | function inflateInit_(strm: z_streamp; const version: PChar; | ||
106 | stream_size: int): int; | ||
107 | stdcall; | ||
108 | function inflateReset(strm: z_streamp): int; | ||
109 | stdcall; | ||
110 | function inflateSetDictionary(strm: z_streamp; | ||
111 | const dictionary: pBytef; | ||
112 | dictLength: uInt): int; | ||
113 | stdcall; | ||
114 | function inflateSync(strm: z_streamp): int; | ||
115 | stdcall; | ||
116 | |||
117 | function deflateInit(strm: z_streamp; level: int): int; | ||
118 | function deflateInit2(strm: z_streamp; level, method, windowBits, | ||
119 | memLevel, strategy: int): int; | ||
120 | function inflateInit(strm: z_streamp): int; | ||
121 | function inflateInit2(strm: z_streamp; windowBits: int): int; | ||
122 | |||
123 | implementation | ||
124 | |||
125 | function deflateInit(strm: z_streamp; level: int): int; | ||
126 | begin | ||
127 | Result := deflateInit_(strm, level, ZLIB_VERSION, sizeof(z_stream)); | ||
128 | end; | ||
129 | |||
130 | function deflateInit2(strm: z_streamp; level, method, windowBits, | ||
131 | memLevel, strategy: int): int; | ||
132 | begin | ||
133 | Result := deflateInit2_(strm, level, method, windowBits, memLevel, | ||
134 | strategy, ZLIB_VERSION, sizeof(z_stream)); | ||
135 | end; | ||
136 | |||
137 | function inflateInit(strm: z_streamp): int; | ||
138 | begin | ||
139 | Result := inflateInit_(strm, ZLIB_VERSION, sizeof(z_stream)); | ||
140 | end; | ||
141 | |||
142 | function inflateInit2(strm: z_streamp; windowBits: int): int; | ||
143 | begin | ||
144 | Result := inflateInit2_(strm, windowBits, ZLIB_VERSION, | ||
145 | sizeof(z_stream)); | ||
146 | end; | ||
147 | |||
148 | const | ||
149 | zlibDLL = 'png32bd.dll'; | ||
150 | |||
151 | function adler32; external zlibDLL; | ||
152 | function crc32; external zlibDLL; | ||
153 | function deflate; external zlibDLL; | ||
154 | function deflateCopy; external zlibDLL; | ||
155 | function deflateEnd; external zlibDLL; | ||
156 | function deflateInit2_; external zlibDLL; | ||
157 | function deflateInit_; external zlibDLL; | ||
158 | function deflateParams; external zlibDLL; | ||
159 | function deflateReset; external zlibDLL; | ||
160 | function deflateSetDictionary; external zlibDLL; | ||
161 | function inflate; external zlibDLL; | ||
162 | function inflateEnd; external zlibDLL; | ||
163 | function inflateInit2_; external zlibDLL; | ||
164 | function inflateInit_; external zlibDLL; | ||
165 | function inflateReset; external zlibDLL; | ||
166 | function inflateSetDictionary; external zlibDLL; | ||
167 | function inflateSync; external zlibDLL; | ||
168 | |||
169 | end. | ||