]>
Commit | Line | Data |
---|---|---|
1 | unit pngdef; | |
2 | ||
3 | // Caution: this file has fallen out of date since version 1.0.5. Write to | |
4 | // png-implement@ccrc.wustl.edu or to randeg@alum.rpi.edu about volunteering | |
5 | // to it up to date. | |
6 | ||
7 | interface | |
8 | ||
9 | const | |
10 | PNG_LIBPNG_VER_STRING = '1.2.4'; | |
11 | PNG_LIBPNG_VER = 10204; | |
12 | ||
13 | type | |
14 | png_uint_32 = Cardinal; | |
15 | png_int_32 = Longint; | |
16 | png_uint_16 = Word; | |
17 | png_int_16 = Smallint; | |
18 | png_byte = Byte; | |
19 | png_size_t = png_uint_32; | |
20 | png_charpp = ^png_charp; | |
21 | png_charp = PChar; | |
22 | float = single; | |
23 | int = Integer; | |
24 | png_bytepp = ^png_bytep; | |
25 | png_bytep = ^png_byte; | |
26 | png_uint_16p = ^png_uint_16; | |
27 | png_uint_16pp = ^png_uint_16p; | |
28 | png_voidp = pointer; | |
29 | time_t = Longint; | |
30 | png_doublep = ^png_double; | |
31 | png_double = double; | |
32 | ||
33 | user_error_ptr = Pointer; | |
34 | png_error_ptrp = ^png_error_ptr; | |
35 | png_error_ptr = procedure(png_ptr: Pointer; msg: Pointer); | |
36 | stdcall; | |
37 | png_rw_ptrp = ^png_rw_ptr; | |
38 | png_rw_ptr = procedure(png_ptr: Pointer; data: Pointer; | |
39 | length: png_size_t); | |
40 | stdcall; | |
41 | png_flush_ptrp = ^png_flush_ptr; | |
42 | png_flush_ptr = procedure(png_ptr: Pointer); | |
43 | stdcall; | |
44 | png_progressive_info_ptrp = ^png_progressive_info_ptr; | |
45 | png_progressive_info_ptr = procedure(png_ptr: Pointer; | |
46 | info_ptr: Pointer); | |
47 | stdcall; | |
48 | png_progressive_end_ptrp = ^png_progressive_end_ptr; | |
49 | png_progressive_end_ptr = procedure(png_ptr: Pointer; | |
50 | info_ptr: Pointer); | |
51 | stdcall; | |
52 | png_progressive_row_ptrp = ^png_progressive_row_ptr; | |
53 | png_progressive_row_ptr = procedure(png_ptr: Pointer; | |
54 | data: Pointer; length: png_uint_32; | |
55 | count: int); | |
56 | stdcall; | |
57 | png_read_status_ptr = procedure(png_ptr: Pointer; | |
58 | row_number: png_uint_32; pass: int); | |
59 | stdcall; | |
60 | png_write_status_ptr = procedure(png_ptr: Pointer; | |
61 | row_number: png_uint_32; pass: int); | |
62 | stdcall; | |
63 | png_user_chunk_ptr = procedure(png_ptr: Pointer; | |
64 | data: png_unknown_chunkp); | |
65 | stdcall; | |
66 | png_user_transform_ptr = procedure(png_ptr: Pointer; | |
67 | row_info: Pointer; data: png_bytep); | |
68 | stdcall; | |
69 | ||
70 | png_colorpp = ^png_colorp; | |
71 | png_colorp = ^png_color; | |
72 | png_color = packed record | |
73 | red, green, blue: png_byte; | |
74 | end; | |
75 | ||
76 | png_color_16pp = ^png_color_16p; | |
77 | png_color_16p = ^png_color_16; | |
78 | png_color_16 = packed record | |
79 | index: png_byte; //used for palette files | |
80 | red, green, blue: png_uint_16; //for use in red green blue files | |
81 | gray: png_uint_16; //for use in grayscale files | |
82 | end; | |
83 | ||
84 | png_color_8pp = ^png_color_8p; | |
85 | png_color_8p = ^png_color_8; | |
86 | png_color_8 = packed record | |
87 | red, green, blue: png_byte; //for use in red green blue files | |
88 | gray: png_byte; //for use in grayscale files | |
89 | alpha: png_byte; //for alpha channel files | |
90 | end; | |
91 | ||
92 | png_textpp = ^png_textp; | |
93 | png_textp = ^png_text; | |
94 | png_text = packed record | |
95 | compression: int; //compression value | |
96 | key: png_charp; //keyword, 1-79 character description of "text" | |
97 | text: png_charp; //comment, may be empty ("") | |
98 | text_length: png_size_t; //length of text field | |
99 | end; | |
100 | ||
101 | png_timepp = ^png_timep; | |
102 | png_timep = ^png_time; | |
103 | png_time = packed record | |
104 | year: png_uint_16; //yyyy | |
105 | month: png_byte; //1..12 | |
106 | day: png_byte; //1..31 | |
107 | hour: png_byte; //0..23 | |
108 | minute: png_byte; //0..59 | |
109 | second: png_byte; //0..60 (leap seconds) | |
110 | end; | |
111 | ||
112 | png_infopp = ^png_infop; | |
113 | png_infop = Pointer; | |
114 | ||
115 | png_row_infopp = ^png_row_infop; | |
116 | png_row_infop = ^png_row_info; | |
117 | png_row_info = packed record | |
118 | width: png_uint_32; //width of row | |
119 | rowbytes: png_size_t; //number of bytes in row | |
120 | color_type: png_byte; //color type of row | |
121 | bit_depth: png_byte; //bit depth of row | |
122 | channels: png_byte; //number of channels (1, 2, 3, or 4) | |
123 | pixel_depth: png_byte; //bits per pixel (depth * channels) | |
124 | end; | |
125 | ||
126 | png_structpp = ^png_structp; | |
127 | png_structp = Pointer; | |
128 | ||
129 | const | |
130 | ||
131 | // Supported compression types for text in PNG files (tEXt, and zTXt). | |
132 | // The values of the PNG_TEXT_COMPRESSION_ defines should NOT be changed. | |
133 | ||
134 | PNG_TEXT_COMPRESSION_NONE_WR = -3; | |
135 | PNG_TEXT_COMPRESSION_zTXt_WR = -2; | |
136 | PNG_TEXT_COMPRESSION_NONE = -1; | |
137 | PNG_TEXT_COMPRESSION_zTXt = 0; | |
138 | ||
139 | // These describe the color_type field in png_info. | |
140 | // color type masks | |
141 | ||
142 | PNG_COLOR_MASK_PALETTE = 1; | |
143 | PNG_COLOR_MASK_COLOR = 2; | |
144 | PNG_COLOR_MASK_ALPHA = 4; | |
145 | ||
146 | // color types. Note that not all combinations are legal | |
147 | ||
148 | PNG_COLOR_TYPE_GRAY = 0; | |
149 | PNG_COLOR_TYPE_PALETTE = PNG_COLOR_MASK_COLOR or | |
150 | PNG_COLOR_MASK_PALETTE; | |
151 | PNG_COLOR_TYPE_RGB = PNG_COLOR_MASK_COLOR; | |
152 | PNG_COLOR_TYPE_RGB_ALPHA = PNG_COLOR_MASK_COLOR or | |
153 | PNG_COLOR_MASK_ALPHA; | |
154 | PNG_COLOR_TYPE_GRAY_ALPHA = PNG_COLOR_MASK_ALPHA; | |
155 | ||
156 | // This is for compression type. PNG 1.0 only defines the single type. | |
157 | ||
158 | PNG_COMPRESSION_TYPE_BASE = 0; // Deflate method 8, 32K window | |
159 | PNG_COMPRESSION_TYPE_DEFAULT = PNG_COMPRESSION_TYPE_BASE; | |
160 | ||
161 | // This is for filter type. PNG 1.0 only defines the single type. | |
162 | ||
163 | PNG_FILTER_TYPE_BASE = 0; // Single row per-byte filtering | |
164 | PNG_FILTER_TYPE_DEFAULT = PNG_FILTER_TYPE_BASE; | |
165 | ||
166 | // These are for the interlacing type. These values should NOT be changed. | |
167 | ||
168 | PNG_INTERLACE_NONE = 0; // Non-interlaced image | |
169 | PNG_INTERLACE_ADAM7 = 1; // Adam7 interlacing | |
170 | ||
171 | // These are for the oFFs chunk. These values should NOT be changed. | |
172 | ||
173 | PNG_OFFSET_PIXEL = 0; // Offset in pixels | |
174 | PNG_OFFSET_MICROMETER = 1; // Offset in micrometers (1/10^6 meter) | |
175 | ||
176 | // These are for the pCAL chunk. These values should NOT be changed. | |
177 | ||
178 | PNG_EQUATION_LINEAR = 0; // Linear transformation | |
179 | PNG_EQUATION_BASE_E = 1; // Exponential base e transform | |
180 | PNG_EQUATION_ARBITRARY = 2; // Arbitrary base exponential transform | |
181 | PNG_EQUATION_HYPERBOLIC = 3; // Hyperbolic sine transformation | |
182 | ||
183 | // These are for the pHYs chunk. These values should NOT be changed. | |
184 | ||
185 | PNG_RESOLUTION_UNKNOWN = 0; // pixels/unknown unit (aspect ratio) | |
186 | PNG_RESOLUTION_METER = 1; // pixels/meter | |
187 | ||
188 | // These are for the sRGB chunk. These values should NOT be changed. | |
189 | PNG_sRGB_INTENT_PERCEPTUAL = 0; | |
190 | PNG_sRGB_INTENT_RELATIVE = 1; | |
191 | PNG_sRGB_INTENT_SATURATION = 2; | |
192 | PNG_sRGB_INTENT_ABSOLUTE = 3; | |
193 | ||
194 | // Handle alpha and tRNS by replacing with a background color. | |
195 | PNG_BACKGROUND_GAMMA_UNKNOWN = 0; | |
196 | PNG_BACKGROUND_GAMMA_SCREEN = 1; | |
197 | PNG_BACKGROUND_GAMMA_FILE = 2; | |
198 | PNG_BACKGROUND_GAMMA_UNIQUE = 3; | |
199 | ||
200 | // Values for png_set_crc_action() to say how to handle CRC errors in | |
201 | // ancillary and critical chunks, and whether to use the data contained | |
202 | // therein. Note that it is impossible to "discard" data in a critical | |
203 | // chunk. For versions prior to 0.90, the action was always error/quit, | |
204 | // whereas in version 0.90 and later, the action for CRC errors in ancillary | |
205 | // chunks is warn/discard. These values should NOT be changed. | |
206 | ||
207 | // value action:critical action:ancillary | |
208 | ||
209 | PNG_CRC_DEFAULT = 0; // error/quit warn/discard data | |
210 | PNG_CRC_ERROR_QUIT = 1; // error/quit error/quit | |
211 | PNG_CRC_WARN_DISCARD = 2; // (INVALID) warn/discard data | |
212 | PNG_CRC_WARN_USE = 3; // warn/use data warn/use data | |
213 | PNG_CRC_QUIET_USE = 4; // quiet/use data quiet/use data | |
214 | PNG_CRC_NO_CHANGE = 5; // use current value use current value | |
215 | ||
216 | // Flags for png_set_filter() to say which filters to use. The flags | |
217 | // are chosen so that they don't conflict with real filter types | |
218 | // below, in case they are supplied instead of the #defined constants. | |
219 | // These values should NOT be changed. | |
220 | ||
221 | PNG_NO_FILTERS = $00; | |
222 | PNG_FILTER_NONE = $08; | |
223 | PNG_FILTER_SUB = $10; | |
224 | PNG_FILTER_UP = $20; | |
225 | PNG_FILTER_AVG = $40; | |
226 | PNG_FILTER_PAETH = $80; | |
227 | PNG_ALL_FILTERS = PNG_FILTER_NONE or PNG_FILTER_SUB or | |
228 | PNG_FILTER_UP or PNG_FILTER_AVG or | |
229 | PNG_FILTER_PAETH; | |
230 | ||
231 | // Filter values (not flags) - used in pngwrite.c, pngwutil.c for now. | |
232 | // These defines should NOT be changed. | |
233 | ||
234 | PNG_FILTER_VALUE_NONE = 0; | |
235 | PNG_FILTER_VALUE_SUB = 1; | |
236 | PNG_FILTER_VALUE_UP = 2; | |
237 | PNG_FILTER_VALUE_AVG = 3; | |
238 | PNG_FILTER_VALUE_PAETH = 4; | |
239 | ||
240 | // Heuristic used for row filter selection. These defines should NOT be | |
241 | // changed. | |
242 | ||
243 | PNG_FILTER_HEURISTIC_DEFAULT = 0; // Currently "UNWEIGHTED" | |
244 | PNG_FILTER_HEURISTIC_UNWEIGHTED = 1; // Used by libpng < 0.95 | |
245 | PNG_FILTER_HEURISTIC_WEIGHTED = 2; // Experimental feature | |
246 | PNG_FILTER_HEURISTIC_LAST = 3; // Not a valid value | |
247 | ||
248 | procedure png_build_grayscale_palette(bit_depth: int; palette: png_colorp); | |
249 | stdcall; | |
250 | function png_check_sig(sig: png_bytep; num: int): int; | |
251 | stdcall; | |
252 | procedure png_chunk_error(png_ptr: png_structp; | |
253 | const mess: png_charp); | |
254 | stdcall; | |
255 | procedure png_chunk_warning(png_ptr: png_structp; | |
256 | const mess: png_charp); | |
257 | stdcall; | |
258 | procedure png_convert_from_time_t(ptime: png_timep; ttime: time_t); | |
259 | stdcall; | |
260 | function png_convert_to_rfc1123(png_ptr: png_structp; ptime: png_timep): | |
261 | png_charp; | |
262 | stdcall; | |
263 | function png_create_info_struct(png_ptr: png_structp): png_infop; | |
264 | stdcall; | |
265 | function png_create_read_struct(user_png_ver: png_charp; | |
266 | error_ptr: user_error_ptr; error_fn: png_error_ptr; | |
267 | warn_fn: png_error_ptr): png_structp; | |
268 | stdcall; | |
269 | function png_get_copyright(png_ptr: png_structp): png_charp; | |
270 | stdcall; | |
271 | function png_get_header_ver(png_ptr: png_structp): png_charp; | |
272 | stdcall; | |
273 | function png_get_header_version(png_ptr: png_structp): png_charp; | |
274 | stdcall; | |
275 | function png_get_libpng_ver(png_ptr: png_structp): png_charp; | |
276 | stdcall; | |
277 | function png_create_write_struct(user_png_ver: png_charp; | |
278 | error_ptr: user_error_ptr; error_fn: png_error_ptr; | |
279 | warn_fn: png_error_ptr): png_structp; | |
280 | stdcall; | |
281 | procedure png_destroy_info_struct(png_ptr: png_structp; | |
282 | info_ptr_ptr: png_infopp); | |
283 | stdcall; | |
284 | procedure png_destroy_read_struct(png_ptr_ptr: png_structpp; | |
285 | info_ptr_ptr, end_info_ptr_ptr: png_infopp); | |
286 | stdcall; | |
287 | procedure png_destroy_write_struct(png_ptr_ptr: png_structpp; | |
288 | info_ptr_ptr: png_infopp); | |
289 | stdcall; | |
290 | function png_get_IHDR(png_ptr: png_structp; info_ptr: png_infop; | |
291 | var width, height: png_uint_32; var bit_depth, | |
292 | color_type, interlace_type, compression_type, | |
293 | filter_type: int): png_uint_32; | |
294 | stdcall; | |
295 | function png_get_PLTE(png_ptr: png_structp; info_ptr: png_infop; | |
296 | var palette: png_colorp; var num_palette: int): | |
297 | png_uint_32; | |
298 | stdcall; | |
299 | function png_get_bKGD(png_ptr: png_structp; info_ptr: png_infop; | |
300 | var background: png_color_16p): png_uint_32; | |
301 | stdcall; | |
302 | function png_get_bit_depth(png_ptr: png_structp; info_ptr: png_infop): | |
303 | png_byte; | |
304 | stdcall; | |
305 | function png_get_cHRM(png_ptr: png_structp; info_ptr: png_infop; | |
306 | var white_x, white_y, red_x, red_y, green_x, green_y, | |
307 | blue_x, blue_y: double): png_uint_32; | |
308 | stdcall; | |
309 | function png_get_channels(png_ptr: png_structp; info_ptr: png_infop): | |
310 | png_byte; | |
311 | stdcall; | |
312 | function png_get_color_type(png_ptr: png_structp; info_ptr: png_infop): | |
313 | png_byte; | |
314 | stdcall; | |
315 | function png_get_compression_type(png_ptr: png_structp; | |
316 | info_ptr: png_infop): png_byte; | |
317 | stdcall; | |
318 | function png_get_error_ptr(png_ptr: png_structp): png_voidp; | |
319 | stdcall; | |
320 | function png_get_filter_type(png_ptr: png_structp; info_ptr: png_infop): | |
321 | png_byte; | |
322 | stdcall; | |
323 | function png_get_gAMA(png_ptr: png_structp; info_ptr: png_infop; | |
324 | var file_gamma: double): png_uint_32; | |
325 | stdcall; | |
326 | function png_get_hIST(png_ptr: png_structp; info_ptr: png_infop; | |
327 | var hist: png_uint_16p): png_uint_32; | |
328 | stdcall; | |
329 | function png_get_image_height(png_ptr: png_structp; info_ptr: png_infop): | |
330 | png_uint_32; | |
331 | stdcall; | |
332 | function png_get_image_width(png_ptr: png_structp; info_ptr: png_infop): | |
333 | png_uint_32; | |
334 | stdcall; | |
335 | function png_get_interlace_type(png_ptr: png_structp; | |
336 | info_ptr: png_infop): png_byte; | |
337 | stdcall; | |
338 | function png_get_io_ptr(png_ptr: png_structp): png_voidp; | |
339 | stdcall; | |
340 | function png_get_oFFs(png_ptr: png_structp; info_ptr: png_infop; | |
341 | var offset_x, offset_y: png_uint_32; | |
342 | var unit_type: int): png_uint_32; | |
343 | stdcall; | |
344 | function png_get_sCAL(png_ptr: png_structp; info_ptr: png_infop; | |
345 | var unit:int; var width: png_uint_32; height: png_uint_32): | |
346 | png_uint_32; | |
347 | stdcall | |
348 | function png_get_pCAL(png_ptr: png_structp; info_ptr: png_infop; | |
349 | var purpose: png_charp; var X0, X1: png_int_32; | |
350 | var typ, nparams: int; var units: png_charp; | |
351 | var params: png_charpp): png_uint_32; | |
352 | stdcall; | |
353 | function png_get_pHYs(png_ptr: png_structp; info_ptr: png_infop; | |
354 | var res_x, res_y: png_uint_32; var unit_type: int): | |
355 | png_uint_32; | |
356 | stdcall; | |
357 | function png_get_pixel_aspect_ratio(png_ptr: png_structp; | |
358 | info_ptr: png_infop): float; | |
359 | stdcall; | |
360 | function png_get_pixels_per_meter(png_ptr: png_structp; | |
361 | info_ptr: png_infop): png_uint_32; | |
362 | stdcall; | |
363 | function png_get_progressive_ptr(png_ptr: png_structp): png_voidp; | |
364 | stdcall; | |
365 | function png_get_rgb_to_gray_status(png_ptr: png_structp); | |
366 | stdcall; | |
367 | function png_get_rowbytes(png_ptr: png_structp; info_ptr: png_infop): | |
368 | png_uint_32; | |
369 | stdcall; | |
370 | function png_get_rows(png_ptr: png_structp; info_ptr: png_infop): | |
371 | png_bytepp; | |
372 | stdcall; | |
373 | function png_get_sBIT(png_ptr: png_structp; info_ptr: png_infop; | |
374 | var sig_bits: png_color_8p): png_uint_32; | |
375 | stdcall; | |
376 | function png_get_sRGB(png_ptr: png_structp; info_ptr: png_infop; | |
377 | var file_srgb_intent: int): png_uint_32; | |
378 | stdcall; | |
379 | function png_get_signature(png_ptr: png_structp; info_ptr: png_infop): | |
380 | png_bytep; | |
381 | stdcall; | |
382 | function png_get_tIME(png_ptr: png_structp; info_ptr: png_infop; | |
383 | var mod_time: png_timep): png_uint_32; | |
384 | stdcall; | |
385 | function png_get_tRNS(png_ptr: png_structp; info_ptr: png_infop; | |
386 | var trans: png_bytep; var num_trans: int; | |
387 | var trans_values: png_color_16p): png_uint_32; | |
388 | stdcall; | |
389 | function png_get_text(png_ptr: png_structp; info_ptr: png_infop; | |
390 | var text_ptr: png_textp; var num_text: int): | |
391 | png_uint_32; | |
392 | stdcall; | |
393 | function png_get_user_chunk_ptr(png_ptr: png_structp): | |
394 | png_voidp; | |
395 | stdcall; | |
396 | function png_get_valid(png_ptr: png_structp; info_ptr: png_infop; | |
397 | flag: png_uint_32): png_uint_32; | |
398 | stdcall; | |
399 | function png_get_x_offset_microns(png_ptr: png_structp; | |
400 | info_ptr: png_infop): png_uint_32; | |
401 | stdcall; | |
402 | function png_get_x_offset_pixels(png_ptr: png_structp; | |
403 | info_ptr: png_infop): png_uint_32; | |
404 | stdcall; | |
405 | function png_get_x_pixels_per_meter(png_ptr: png_structp; | |
406 | info_ptr: png_infop): png_uint_32; | |
407 | stdcall; | |
408 | function png_get_y_offset_microns(png_ptr: png_structp; | |
409 | info_ptr: png_infop): png_uint_32; | |
410 | stdcall; | |
411 | function png_get_y_offset_pixels(png_ptr: png_structp; | |
412 | info_ptr: png_infop): png_uint_32; | |
413 | stdcall; | |
414 | function png_get_y_pixels_per_meter(png_ptr: png_structp; | |
415 | info_ptr: png_infop): png_uint_32; | |
416 | stdcall; | |
417 | procedure png_process_data(png_ptr: png_structp; info_ptr: png_infop; | |
418 | buffer: png_bytep; buffer_size: png_size_t); | |
419 | stdcall; | |
420 | procedure png_progressive_combine_row(png_ptr: png_structp; | |
421 | old_row, new_row: png_bytep); | |
422 | stdcall; | |
423 | procedure png_read_end(png_ptr: png_structp; info_ptr: png_infop); | |
424 | stdcall; | |
425 | procedure png_read_image(png_ptr: png_structp; image: png_bytepp); | |
426 | stdcall; | |
427 | procedure png_read_info(png_ptr: png_structp; info_ptr: png_infop); | |
428 | stdcall; | |
429 | procedure png_read_row(png_ptr: png_structp; row, dsp_row: png_bytep); | |
430 | stdcall; | |
431 | procedure png_read_rows(png_ptr: png_structp; row, display_row: | |
432 | png_bytepp; num_rows: png_uint_32); | |
433 | stdcall; | |
434 | procedure png_read_update_info(png_ptr: png_structp; info_ptr: png_infop); | |
435 | stdcall; | |
436 | procedure png_set_IHDR(png_ptr: png_structp; info_ptr: png_infop; | |
437 | width, height: png_uint_32; bit_depth, color_type, | |
438 | interlace_type, compression_type, filter_type: int); | |
439 | stdcall; | |
440 | procedure png_set_PLTE(png_ptr: png_structp; info_ptr: png_infop; | |
441 | palette: png_colorp; num_palette: int); | |
442 | stdcall; | |
443 | procedure png_set_bKGD(png_ptr: png_structp; info_ptr: png_infop; | |
444 | background: png_color_16p); | |
445 | stdcall; | |
446 | procedure png_set_background(png_ptr: png_structp; | |
447 | background_color: png_color_16p; | |
448 | background_gamma_code, need_expand: int; | |
449 | background_gamma: double); | |
450 | stdcall; | |
451 | procedure png_set_bgr(png_ptr: png_structp); | |
452 | stdcall; | |
453 | procedure png_set_cHRM(png_ptr: png_structp; info_ptr: png_infop; | |
454 | white_x, white_y, red_x, red_y, green_x, green_y, | |
455 | blue_x, blue_y: double); | |
456 | stdcall; | |
457 | procedure png_set_cHRM_fixed(png_ptr: png_structp; info_ptr: png_infop; | |
458 | white_x, white_y, red_x, red_y, green_x, green_y, | |
459 | blue_x, blue_y: png_fixed_point); | |
460 | stdcall; | |
461 | procedure png_set_compression_level(png_ptr: png_structp; level: int); | |
462 | stdcall; | |
463 | procedure png_set_compression_mem_level(png_ptr: png_structp; | |
464 | mem_level: int); | |
465 | stdcall; | |
466 | procedure png_set_compression_method(png_ptr: png_structp; method: int); | |
467 | stdcall; | |
468 | procedure png_set_compression_strategy(png_ptr: png_structp; | |
469 | strategy: int); | |
470 | stdcall; | |
471 | procedure png_set_compression_window_bits(png_ptr: png_structp; | |
472 | window_bits: int); | |
473 | stdcall; | |
474 | procedure png_set_crc_action(png_ptr: png_structp; | |
475 | crit_action, ancil_action: int); | |
476 | stdcall; | |
477 | procedure png_set_dither(png_ptr: png_structp; plaette: png_colorp; | |
478 | num_palette, maximum_colors: int; | |
479 | histogram: png_uint_16p; full_dither: int); | |
480 | stdcall; | |
481 | procedure png_set_error_fn(png_ptr: png_structp; error_ptr: png_voidp; | |
482 | error_fn, warning_fn: png_error_ptr); | |
483 | stdcall; | |
484 | procedure png_set_expand(png_ptr: png_structp); | |
485 | stdcall; | |
486 | procedure png_set_filler(png_ptr: png_structp; filler: png_uint_32; | |
487 | filler_loc: int); | |
488 | stdcall; | |
489 | procedure png_set_filter(png_ptr: png_structp; method, filters: int); | |
490 | stdcall; | |
491 | procedure png_set_filter_heuristics(png_ptr: png_structp; | |
492 | heuristic_method, num_weights: int; | |
493 | filter_weights, filter_costs: png_doublep); | |
494 | stdcall; | |
495 | procedure png_set_flush(png_ptr: png_structp; nrows: int); | |
496 | stdcall; | |
497 | procedure png_set_gAMA(png_ptr: png_structp; info_ptr: png_infop; | |
498 | file_gamma: double); | |
499 | stdcall; | |
500 | procedure png_set_gAMA_fixed(png_ptr: png_structp; info_ptr: png_infop; | |
501 | file_gamma: png_fixed_point); | |
502 | stdcall; | |
503 | procedure png_set_gamma(png_ptr: png_structp; screen_gamma, | |
504 | default_file_gamma: double); | |
505 | stdcall; | |
506 | procedure png_set_gray_1_2_4_to_8(png_ptr: png_structp); | |
507 | stdcall; | |
508 | procedure png_set_gray_to_rgb(png_ptr: png_structp); | |
509 | stdcall; | |
510 | procedure png_set_hIST(png_ptr: png_structp; info_ptr: png_infop; | |
511 | hist: png_uint_16p); | |
512 | stdcall; | |
513 | function png_set_interlace_handling(png_ptr: png_structp): int; | |
514 | stdcall; | |
515 | procedure png_set_invalid(png_ptr: png_structp; info_ptr:png_infop; | |
516 | mask: int); | |
517 | stdcall; | |
518 | procedure png_set_invert_alpha(png_ptr: png_structp); | |
519 | stdcall; | |
520 | procedure png_set_invert_mono(png_ptr: png_structp); | |
521 | stdcall; | |
522 | procedure png_set_oFFs(png_ptr: png_structp; info_ptr: png_infop; | |
523 | offset_x, offset_y: png_uint_32; unit_type: int); | |
524 | stdcall; | |
525 | procedure png_set_palette_to_rgb(png_ptr: png_structp); | |
526 | stdcall; | |
527 | procedure png_set_pCAL(png_ptr: png_structp; info_ptr: png_infop; | |
528 | purpose: png_charp; X0, X1: png_int_32; | |
529 | typ, nparams: int; units: png_charp; | |
530 | params: png_charpp); | |
531 | stdcall; | |
532 | procedure png_set_pHYs(png_ptr: png_structp; info_ptr: png_infop; | |
533 | res_x, res_y: png_uint_32; unit_type: int); | |
534 | stdcall; | |
535 | procedure png_set_packing(png_ptr: png_structp); | |
536 | stdcall; | |
537 | procedure png_set_packswap(png_ptr: png_structp); | |
538 | stdcall; | |
539 | procedure png_set_progressive_read_fn(png_ptr: png_structp; | |
540 | progressive_ptr: png_voidp; | |
541 | info_fn: png_progressive_info_ptr; | |
542 | row_fn: png_progressive_row_ptr; | |
543 | end_fn: png_progressive_end_ptr); | |
544 | stdcall; | |
545 | procedure png_set_read_fn(png_ptr: png_structp; | |
546 | io_ptr: png_voidp; read_data_fn: png_rw_ptr); | |
547 | stdcall; | |
548 | procedure png_set_read_status_fn(png_ptr: png_structp; | |
549 | read_row_fn: png_read_status_ptr); | |
550 | stdcall; | |
551 | procedure png_set_read_user_chunk_fn(png_ptr: png_structp; | |
552 | read_user_chunk_fn: png_user_chunk_ptr); | |
553 | stdcall; | |
554 | procedure png_set_read_user_transform_fn(png_ptr: png_structp; | |
555 | read_user_transform_fn: png_user_transform_ptr); | |
556 | stdcall; | |
557 | procedure png_set_rgb_to_gray(png_ptr: png_structp; int: error_action; | |
558 | red_weight, green_weight: double); | |
559 | stdcall; | |
560 | procedure png_set_rgb_to_gray_fixed(png_ptr: png_structp; int: error_action; | |
561 | red_weight, green_weight: png_fixed_point); | |
562 | stdcall; | |
563 | procedure png_set_rows(png_ptr: png_structp; info_ptr: png_infop; | |
564 | row_pointers: png_bytepp); | |
565 | stdcall; | |
566 | procedure png_set_sBIT(png_ptr: png_structp; info_ptr: png_infop; | |
567 | sig_bits: png_color_8p); | |
568 | stdcall; | |
569 | procedure png_set_sRGB(png_ptr: png_structp; info_ptr: png_infop; | |
570 | intent: int); | |
571 | stdcall; | |
572 | procedure png_set_sRGB_gAMA_and_cHRM(png_ptr: png_structp; | |
573 | info_ptr: png_infop; intent: int); | |
574 | stdcall; | |
575 | procedure png_set_shift(png_ptr: png_structp; true_bits: png_color_8p); | |
576 | stdcall; | |
577 | procedure png_set_sig_bytes(png_ptr: png_structp; num_bytes: int); | |
578 | stdcall; | |
579 | procedure png_set_strip_16(png_ptr: png_structp); | |
580 | stdcall; | |
581 | procedure png_set_strip_alpha(png_ptr: png_structp); | |
582 | stdcall; | |
583 | procedure png_set_swap(png_ptr: png_structp); | |
584 | stdcall; | |
585 | procedure png_set_swap_alpha(png_ptr: png_structp); | |
586 | stdcall; | |
587 | procedure png_set_tIME(png_ptr: png_structp; info_ptr: png_infop; | |
588 | mod_time: png_timep); | |
589 | stdcall; | |
590 | procedure png_set_tRNS(png_ptr: png_structp; info_ptr: png_infop; | |
591 | trans: png_bytep; num_trans: int; | |
592 | trans_values: png_color_16p); | |
593 | stdcall; | |
594 | procedure png_set_tRNS_to_alpha(png_ptr: png_structp); | |
595 | stdcall; | |
596 | procedure png_set_text(png_ptr: png_structp; info_ptr: png_infop; | |
597 | text_ptr: png_textp; num_text: int); | |
598 | stdcall; | |
599 | procedure png_set_write_fn(png_ptr: png_structp; | |
600 | io_ptr: png_voidp; write_data_fn: png_rw_ptr; | |
601 | output_flush_fn: png_flush_ptr); | |
602 | stdcall; | |
603 | procedure png_set_write_status_fn(png_ptr: png_structp; | |
604 | write_row_fn: png_write_status_ptr); | |
605 | stdcall; | |
606 | procedure png_set_write_user_transform_fn(png_ptr: png_structp; | |
607 | write_user_transform_fn: png_user_transform_ptr); | |
608 | stdcall; | |
609 | function png_sig_cmp(sig: png_bytep; start, num_to_check: png_size_t): | |
610 | int; | |
611 | stdcall; | |
612 | procedure png_start_read_image(png_ptr: png_structp); | |
613 | stdcall; | |
614 | procedure png_write_chunk(png_ptr: png_structp; | |
615 | chunk_name, data: png_bytep; length: png_size_t); | |
616 | stdcall; | |
617 | procedure png_write_chunk_data(png_ptr: png_structp; | |
618 | data: png_bytep; length: png_size_t); | |
619 | stdcall; | |
620 | procedure png_write_chunk_end(png_ptr: png_structp); | |
621 | stdcall; | |
622 | procedure png_write_chunk_start(png_ptr: png_structp; | |
623 | chunk_name: png_bytep; length: png_uint_32); | |
624 | stdcall; | |
625 | procedure png_write_end(png_ptr: png_structp; info_ptr: png_infop); | |
626 | stdcall; | |
627 | procedure png_write_flush(png_ptr: png_structp); | |
628 | stdcall; | |
629 | procedure png_write_image(png_ptr: png_structp; image: png_bytepp); | |
630 | stdcall; | |
631 | procedure png_write_info(png_ptr: png_structp; info_ptr: png_infop); | |
632 | stdcall; | |
633 | procedure png_write_info_before_PLTE(png_ptr: png_structp; info_ptr: png_infop); | |
634 | stdcall; | |
635 | procedure png_write_row(png_ptr: png_structp; row: png_bytep); | |
636 | stdcall; | |
637 | procedure png_write_rows(png_ptr: png_structp; row: png_bytepp; | |
638 | num_rows: png_uint_32); | |
639 | stdcall; | |
640 | procedure png_get_iCCP(png_ptr: png_structp; info_ptr: png_infop; | |
641 | name: png_charpp; compression_type: int *; profile: png_charpp; | |
642 | proflen: png_int_32): png_bytep; | |
643 | stdcall; | |
644 | procedure png_get_sPLT(png_ptr: png_structp; | |
645 | info_ptr: png_infop; entries: png_spalette_pp): png_uint_32; | |
646 | stdcall; | |
647 | procedure png_set_iCCP(png_ptr: png_structp; info_ptr: png_infop; | |
648 | name: png_charp; compression_type: int; profile: png_charp; | |
649 | proflen: int); | |
650 | stdcall; | |
651 | procedure png_free_data(png_ptr: png_structp; info_ptr: png_infop; num: int); | |
652 | stdcall; | |
653 | procedure png_set_sPLT(png_ptr: png_structp; info_ptr: png_infop; | |
654 | entries: png_spalette_p; nentries: int); | |
655 | stdcall; | |
656 | ||
657 | implementation | |
658 | ||
659 | const | |
660 | pngDLL = 'png32bd.dll'; | |
661 | ||
662 | procedure png_build_grayscale_palette; external pngDLL; | |
663 | function png_check_sig; external pngDLL; | |
664 | procedure png_chunk_error; external pngDLL; | |
665 | procedure png_chunk_warning; external pngDLL; | |
666 | procedure png_convert_from_time_t; external pngDLL; | |
667 | function png_convert_to_rfc1123; external pngDLL; | |
668 | function png_create_info_struct; external pngDLL; | |
669 | function png_create_read_struct; external pngDLL; | |
670 | function png_create_write_struct; external pngDLL; | |
671 | procedure png_destroy_info_struct; external pngDLL; | |
672 | procedure png_destroy_read_struct; external pngDLL; | |
673 | procedure png_destroy_write_struct; external pngDLL; | |
674 | function png_get_IHDR; external pngDLL; | |
675 | function png_get_PLTE; external pngDLL; | |
676 | function png_get_bKGD; external pngDLL; | |
677 | function png_get_bit_depth; external pngDLL; | |
678 | function png_get_cHRM; external pngDLL; | |
679 | function png_get_channels; external pngDLL; | |
680 | function png_get_color_type; external pngDLL; | |
681 | function png_get_compression_type; external pngDLL; | |
682 | function png_get_error_ptr; external pngDLL; | |
683 | function png_get_filter_type; external pngDLL; | |
684 | function png_get_gAMA; external pngDLL; | |
685 | function png_get_hIST; external pngDLL; | |
686 | function png_get_image_height; external pngDLL; | |
687 | function png_get_image_width; external pngDLL; | |
688 | function png_get_interlace_type; external pngDLL; | |
689 | function png_get_io_ptr; external pngDLL; | |
690 | function png_get_oFFs; external pngDLL; | |
691 | function png_get_pCAL; external pngDLL; | |
692 | function png_get_pHYs; external pngDLL; | |
693 | function png_get_pixel_aspect_ratio; external pngDLL; | |
694 | function png_get_pixels_per_meter; external pngDLL; | |
695 | function png_get_progressive_ptr; external pngDLL; | |
696 | function png_get_rowbytes; external pngDLL; | |
697 | function png_get_rows; external pngDLL; | |
698 | function png_get_sBIT; external pngDLL; | |
699 | function png_get_sRGB; external pngDLL; | |
700 | function png_get_signature; external pngDLL; | |
701 | function png_get_tIME; external pngDLL; | |
702 | function png_get_tRNS; external pngDLL; | |
703 | function png_get_text; external pngDLL; | |
704 | function png_get_user_chunk_ptr; external pngDLL; | |
705 | function png_get_valid; external pngDLL; | |
706 | function png_get_x_offset_microns; external pngDLL; | |
707 | function png_get_x_offset_pixels; external pngDLL; | |
708 | function png_get_x_pixels_per_meter; external pngDLL; | |
709 | function png_get_y_offset_microns; external pngDLL; | |
710 | function png_get_y_offset_pixels; external pngDLL; | |
711 | function png_get_y_pixels_per_meter; external pngDLL; | |
712 | procedure png_process_data; external pngDLL; | |
713 | procedure png_progressive_combine_row; external pngDLL; | |
714 | procedure png_read_end; external pngDLL; | |
715 | procedure png_read_image; external pngDLL; | |
716 | procedure png_read_info; external pngDLL; | |
717 | procedure png_read_row; external pngDLL; | |
718 | procedure png_read_rows; external pngDLL; | |
719 | procedure png_read_update_info; external pngDLL; | |
720 | procedure png_set_IHDR; external pngDLL; | |
721 | procedure png_set_PLTE; external pngDLL; | |
722 | procedure png_set_bKGD; external pngDLL; | |
723 | procedure png_set_background; external pngDLL; | |
724 | procedure png_set_bgr; external pngDLL; | |
725 | procedure png_set_cHRM; external pngDLL; | |
726 | procedure png_set_cHRM_fixed; external pngDLL; | |
727 | procedure png_set_compression_level; external pngDLL; | |
728 | procedure png_set_compression_mem_level; external pngDLL; | |
729 | procedure png_set_compression_method; external pngDLL; | |
730 | procedure png_set_compression_strategy; external pngDLL; | |
731 | procedure png_set_compression_window_bits; external pngDLL; | |
732 | procedure png_set_crc_action; external pngDLL; | |
733 | procedure png_set_dither; external pngDLL; | |
734 | procedure png_set_error_fn; external pngDLL; | |
735 | procedure png_set_expand; external pngDLL; | |
736 | procedure png_set_filler; external pngDLL; | |
737 | procedure png_set_filter; external pngDLL; | |
738 | procedure png_set_filter_heuristics; external pngDLL; | |
739 | procedure png_set_flush; external pngDLL; | |
740 | procedure png_set_gAMA; external pngDLL; | |
741 | procedure png_set_gAMA_fixed; external pngDLL; | |
742 | procedure png_set_gamma; external pngDLL; | |
743 | procedure png_set_gray_to_rgb; external pngDLL; | |
744 | procedure png_set_hIST; external pngDLL; | |
745 | function png_set_interlace_handling; external pngDLL; | |
746 | procedure png_set_invert_alpha; external pngDLL; | |
747 | procedure png_set_invert_mono; external pngDLL; | |
748 | procedure png_set_oFFs; external pngDLL; | |
749 | procedure png_set_pCAL; external pngDLL; | |
750 | procedure png_set_pHYs; external pngDLL; | |
751 | procedure png_set_packing; external pngDLL; | |
752 | procedure png_set_packswap; external pngDLL; | |
753 | procedure png_set_progressive_read_fn; external pngDLL; | |
754 | procedure png_set_read_fn; external pngDLL; | |
755 | procedure png_set_read_status_fn; external pngDLL; | |
756 | procedure png_set_read_user_transform_fn; external pngDLL; | |
757 | procedure png_set_rgb_to_gray; external pngDLL; | |
758 | procedure png_set_rgb_to_gray_fixed; external pngDLL; | |
759 | procedure png_set_rows; external pngDLL; | |
760 | procedure png_set_sBIT; external pngDLL; | |
761 | procedure png_set_sRGB; external pngDLL; | |
762 | procedure png_set_sRGB_gAMA_and_cHRM; external pngDLL; | |
763 | procedure png_set_shift; external pngDLL; | |
764 | procedure png_set_sig_bytes; external pngDLL; | |
765 | procedure png_set_strip_16; external pngDLL; | |
766 | procedure png_set_strip_alpha; external pngDLL; | |
767 | procedure png_set_swap; external pngDLL; | |
768 | procedure png_set_swap_alpha; external pngDLL; | |
769 | procedure png_set_tIME; external pngDLL; | |
770 | procedure png_set_tRNS; external pngDLL; | |
771 | procedure png_set_text; external pngDLL; | |
772 | procedure png_set_user_chunk_fn; external pngDLL; | |
773 | procedure png_set_write_fn; external pngDLL; | |
774 | procedure png_set_write_status_fn; external pngDLL; | |
775 | procedure png_set_write_user_transform_fn; external pngDLL; | |
776 | function png_sig_cmp; external pngDLL; | |
777 | procedure png_start_read_image; external pngDLL; | |
778 | procedure png_write_chunk; external pngDLL; | |
779 | procedure png_write_chunk_data; external pngDLL; | |
780 | procedure png_write_chunk_end; external pngDLL; | |
781 | procedure png_write_chunk_start; external pngDLL; | |
782 | procedure png_write_end; external pngDLL; | |
783 | procedure png_write_flush; external pngDLL; | |
784 | procedure png_write_image; external pngDLL; | |
785 | procedure png_write_info; external pngDLL; | |
786 | procedure png_write_info_before_PLTE; external pngDLL; | |
787 | procedure png_write_row; external pngDLL; | |
788 | procedure png_write_rows; external pngDLL; | |
789 | procedure png_get_iCCP; external pngDLL; | |
790 | procedure png_get_sPLT; external pngDLL; | |
791 | procedure png_set_iCCP; external pngDLL; | |
792 | procedure png_set_sPLT; external pngDLL; | |
793 | procedure png_free_data; external pngDLL; | |
794 | ||
795 | end. |