From b27d9f24bbef8b8ac6a32b2811b67e723692f6b8 Mon Sep 17 00:00:00 2001 From: tobigun Date: Sun, 6 Apr 2008 12:57:28 +0000 Subject: import of external variables does not work in fpc (why?) git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1008 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/lib/libpng/png.pas | 1949 +++++++++++++++++++++--------------------- 1 file changed, 969 insertions(+), 980 deletions(-) (limited to 'Game') diff --git a/Game/Code/lib/libpng/png.pas b/Game/Code/lib/libpng/png.pas index f4424a2a..0d784140 100644 --- a/Game/Code/lib/libpng/png.pas +++ b/Game/Code/lib/libpng/png.pas @@ -1,980 +1,969 @@ -(* - * libpng pascal headers - * Version: 1.2.12 - *) - -{$IFDEF FPC} - {$ifndef NO_SMART_LINK} - {$smartlink on} - {$endif} -{$ENDIF} -unit png; - -interface - -{$IFDEF FPC} - {$MODE DELPHI} - {$PACKRECORDS C} -{$ENDIF} - -uses - {$IFDEF MSWINDOWS} - Windows, - {$ENDIF} - {$IFDEF UNIX} - baseunix, - {$ENDIF} - zlib; - -const -{$ifdef MSWINDOWS} - // use libpng12-0 (Version 1.2.18), delivered wih SDL_Image - LibPng = 'libpng12-0'; // 'libpng13'; - // matching lib version for libpng13.dll, needed for initialization - PNG_LIBPNG_VER_STRING='1.2.12'; - // define the compiler that was used to built the DLL (necessary for jmp_buf) - // SDL_Image was compiled with GCC - //{$define MSVC_DLL} // MS Visual C++ - {$define GCC_DLL} // GCC -{$else} - LibPng = 'png'; - // matching lib version for libpng, needed for initialization - PNG_LIBPNG_VER_STRING='1.2.12'; -{$endif} - - -{$ifdef MSWINDOWS} -const - // JB_LEN (#elements in jmp_buf) depends on the compiler used to compile the DLL - // MSVC++: 16 (x86/AMD64), GCC: 52 - {$if Defined(MSVC_DLL)} - JB_LEN = 16; - {$elseif Defined(GCC_DLL)} - JB_LEN = 52; - {$else} - JB_LEN = 0; - {$ifend} -{$endif} - -type - {$IFNDEF FPC} - // defines for Delphi - size_t = longword; - {$ENDIF} - - {$ifdef MSWINDOWS} - {$if JB_LEN > 0} - jmp_buf = array[0..JB_LEN-1] of integer; - // the png_struct cannot be accessed if the size of jmp_buf is unknown - {$define UsePngStruct} - {$ifend} - // Do NOT use time_t on windows! It might be 32 or 64bit, depending on the compiler and system. - // MSVS-2005 starts using 64bit for time_t on x86 by default, but GCC uses just 32bit. - //time_t = longint; - {$endif} - - z_stream = TZStream; - - png_uint_32 = dword; - png_int_32 = longint; - png_uint_16 = word; - png_int_16 = smallint; - png_byte = byte; - ppng_uint_32 = ^png_uint_32; - ppng_int_32 = ^png_int_32; - ppng_uint_16 = ^png_uint_16; - ppng_int_16 = ^png_int_16; - ppng_byte = ^png_byte; - pppng_uint_32 = ^ppng_uint_32; - pppng_int_32 = ^ppng_int_32; - pppng_uint_16 = ^ppng_uint_16; - pppng_int_16 = ^ppng_int_16; - pppng_byte = ^ppng_byte; - png_size_t = size_t; - png_fixed_point = png_int_32; - ppng_fixed_point = ^png_fixed_point; - pppng_fixed_point = ^ppng_fixed_point; - png_voidp = pointer; - png_bytep = Ppng_byte; - ppng_bytep = ^png_bytep; - png_uint_32p = Ppng_uint_32; - png_int_32p = Ppng_int_32; - png_uint_16p = Ppng_uint_16; - ppng_uint_16p = ^png_uint_16p; - png_int_16p = Ppng_int_16; - png_const_charp = {const} Pchar; - png_charp = Pchar; - ppng_charp = ^png_charp; - png_fixed_point_p = Ppng_fixed_point; - png_FILE_p = Pointer; - png_doublep = Pdouble; - png_bytepp = PPpng_byte; - png_uint_32pp = PPpng_uint_32; - png_int_32pp = PPpng_int_32; - png_uint_16pp = PPpng_uint_16; - png_int_16pp = PPpng_int_16; - png_const_charpp = {const} PPchar; - png_charpp = PPchar; - ppng_charpp = ^png_charpp; - png_fixed_point_pp = PPpng_fixed_point; - PPDouble = ^PDouble; - png_doublepp = PPdouble; - PPPChar = ^PPCHar; - png_charppp = PPPchar; - Pcharf = Pchar; - PPcharf = ^Pcharf; - png_zcharp = Pcharf; - png_zcharpp = PPcharf; - png_zstreamp = Pzstream; - -const - (* Maximum positive integer used in PNG is (2^31)-1 *) - PNG_UINT_31_MAX = (png_uint_32($7fffffff)); - PNG_UINT_32_MAX = (png_uint_32(-1)); - PNG_SIZE_MAX = (png_size_t(-1)); - {$if defined(PNG_1_0_X) or defined (PNG_1_2_X)} - (* PNG_MAX_UINT is deprecated; use PNG_UINT_31_MAX instead. *) - PNG_MAX_UINT = PNG_UINT_31_MAX; - {$ifend} - - (* These describe the color_type field in png_info. *) - (* color type masks *) - PNG_COLOR_MASK_PALETTE = 1; - PNG_COLOR_MASK_COLOR = 2; - PNG_COLOR_MASK_ALPHA = 4; - - (* color types. Note that not all combinations are legal *) - PNG_COLOR_TYPE_GRAY = 0; - PNG_COLOR_TYPE_PALETTE = (PNG_COLOR_MASK_COLOR or PNG_COLOR_MASK_PALETTE); - PNG_COLOR_TYPE_RGB = (PNG_COLOR_MASK_COLOR); - PNG_COLOR_TYPE_RGB_ALPHA = (PNG_COLOR_MASK_COLOR or PNG_COLOR_MASK_ALPHA); - PNG_COLOR_TYPE_GRAY_ALPHA = (PNG_COLOR_MASK_ALPHA); - (* aliases *) - PNG_COLOR_TYPE_RGBA = PNG_COLOR_TYPE_RGB_ALPHA; - PNG_COLOR_TYPE_GA = PNG_COLOR_TYPE_GRAY_ALPHA; - - (* This is for compression type. PNG 1.0-1.2 only define the single type. *) - PNG_COMPRESSION_TYPE_BASE = 0; (* Deflate method 8, 32K window *) - PNG_COMPRESSION_TYPE_DEFAULT = PNG_COMPRESSION_TYPE_BASE; - - (* This is for filter type. PNG 1.0-1.2 only define the single type. *) - PNG_FILTER_TYPE_BASE = 0; (* Single row per-byte filtering *) - PNG_INTRAPIXEL_DIFFERENCING = 64; (* Used only in MNG datastreams *) - PNG_FILTER_TYPE_DEFAULT = PNG_FILTER_TYPE_BASE; - - (* These are for the interlacing type. These values should NOT be changed. *) - PNG_INTERLACE_NONE = 0; (* Non-interlaced image *) - PNG_INTERLACE_ADAM7 = 1; (* Adam7 interlacing *) - PNG_INTERLACE_LAST = 2; (* Not a valid value *) - - (* These are for the oFFs chunk. These values should NOT be changed. *) - PNG_OFFSET_PIXEL = 0; (* Offset in pixels *) - PNG_OFFSET_MICROMETER = 1; (* Offset in micrometers (1/10^6 meter) *) - PNG_OFFSET_LAST = 2; (* Not a valid value *) - - (* These are for the pCAL chunk. These values should NOT be changed. *) - PNG_EQUATION_LINEAR = 0; (* Linear transformation *) - PNG_EQUATION_BASE_E = 1; (* Exponential base e transform *) - PNG_EQUATION_ARBITRARY = 2; (* Arbitrary base exponential transform *) - PNG_EQUATION_HYPERBOLIC = 3; (* Hyperbolic sine transformation *) - PNG_EQUATION_LAST = 4; (* Not a valid value *) - - (* These are for the sCAL chunk. These values should NOT be changed. *) - PNG_SCALE_UNKNOWN = 0; (* unknown unit (image scale) *) - PNG_SCALE_METER = 1; (* meters per pixel *) - PNG_SCALE_RADIAN = 2; (* radians per pixel *) - PNG_SCALE_LAST = 3; (* Not a valid value *) - - (* These are for the pHYs chunk. These values should NOT be changed. *) - PNG_RESOLUTION_UNKNOWN = 0; (* pixels/unknown unit (aspect ratio) *) - PNG_RESOLUTION_METER = 1; (* pixels/meter *) - PNG_RESOLUTION_LAST = 2; (* Not a valid value *) - - (* These are for the sRGB chunk. These values should NOT be changed. *) - PNG_sRGB_INTENT_PERCEPTUAL = 0; - PNG_sRGB_INTENT_RELATIVE = 1; - PNG_sRGB_INTENT_SATURATION = 2; - PNG_sRGB_INTENT_ABSOLUTE = 3; - PNG_sRGB_INTENT_LAST = 4; (* Not a valid value *) - - (* This is for text chunks *) - PNG_KEYWORD_MAX_LENGTH = 79; - - (* Maximum number of entries in PLTE/sPLT/tRNS arrays *) - PNG_MAX_PALETTE_LENGTH = 256; - - (* These determine if an ancillary chunk's data has been successfully read - * from the PNG header, or if the application has filled in the corresponding - * data in the info_struct to be written into the output file. The values - * of the PNG_INFO_ defines should NOT be changed. - *) - PNG_INFO_gAMA = $0001; - PNG_INFO_sBIT = $0002; - PNG_INFO_cHRM = $0004; - PNG_INFO_PLTE = $0008; - PNG_INFO_tRNS = $0010; - PNG_INFO_bKGD = $0020; - PNG_INFO_hIST = $0040; - PNG_INFO_pHYs = $0080; - PNG_INFO_oFFs = $0100; - PNG_INFO_tIME = $0200; - PNG_INFO_pCAL = $0400; - PNG_INFO_sRGB = $0800; (* GR-P, 0.96a *) - PNG_INFO_iCCP = $1000; (* ESR, 1.0.6 *) - PNG_INFO_sPLT = $2000; (* ESR, 1.0.6 *) - PNG_INFO_sCAL = $4000; (* ESR, 1.0.6 *) - PNG_INFO_IDAT = $8000; (* ESR, 1.0.6 *) - - -{$IFDEF FPC} -{$IF Defined(Linux)} -var - png_libpng_ver : array[0..11] of char; cvar; external; - png_pass_start : array[0..6] of integer; cvar; external; - png_pass_inc : array[0..6] of integer; cvar; external; - png_pass_ystart : array[0..6] of integer; cvar; external; - png_pass_yinc : array[0..6] of integer; cvar; external; - png_pass_mask : array[0..6] of integer; cvar; external; - png_pass_dsp_mask : array[0..6] of integer; cvar; external; -{$ELSEIF Defined(Darwin)} -var - png_libpng_ver : array[0..11] of char; external LibPng name 'png_libpng_ver'; - png_pass_start : array[0..6] of integer; external LibPng name 'png_pass_start'; - png_pass_inc : array[0..6] of integer; external LibPng name 'png_pass_inc'; - png_pass_ystart : array[0..6] of integer; external LibPng name 'png_pass_ystart'; - png_pass_yinc : array[0..6] of integer; external LibPng name 'png_pass_yinc'; - png_pass_mask : array[0..6] of integer; external LibPng name 'png_pass_mask'; - png_pass_dsp_mask : array[0..6] of integer; external LibPng name 'png_pass_dsp_mask'; -{$IFEND} -{$ENDIF} - -type - (* Three color definitions. The order of the red, green, and blue, (and the - * exact size) is not important, although the size of the fields need to - * be png_byte or png_uint_16 (as defined below). - *) - png_color = record - red : png_byte; - green : png_byte; - blue : png_byte; - end; - ppng_color = ^png_color; - pppng_color = ^ppng_color; - png_color_struct = png_color; - png_colorp = Ppng_color; - ppng_colorp = ^png_colorp; - png_colorpp = PPpng_color; - - png_color_16 = record - index : png_byte; (* used for palette files *) - red : png_uint_16; (* for use in red green blue files *) - green : png_uint_16; - blue : png_uint_16; - gray : png_uint_16; (* for use in grayscale files *) - end; - ppng_color_16 = ^png_color_16 ; - pppng_color_16 = ^ppng_color_16 ; - png_color_16_struct = png_color_16; - png_color_16p = Ppng_color_16; - ppng_color_16p = ^png_color_16p; - png_color_16pp = PPpng_color_16; - - png_color_8 = record - red : png_byte; (* for use in red green blue files *) - green : png_byte; - blue : png_byte; - gray : png_byte; (* for use in grayscale files *) - alpha : png_byte; (* for alpha channel files *) - end; - ppng_color_8 = ^png_color_8; - pppng_color_8 = ^ppng_color_8; - png_color_8_struct = png_color_8; - png_color_8p = Ppng_color_8; - ppng_color_8p = ^png_color_8p; - png_color_8pp = PPpng_color_8; - - (* - * The following two structures are used for the in-core representation - * of sPLT chunks. - *) - png_sPLT_entry = record - red : png_uint_16; - green : png_uint_16; - blue : png_uint_16; - alpha : png_uint_16; - frequency : png_uint_16; - end; - ppng_sPLT_entry = ^png_sPLT_entry; - pppng_sPLT_entry = ^ppng_sPLT_entry; - png_sPLT_entry_struct = png_sPLT_entry; - png_sPLT_entryp = Ppng_sPLT_entry; - png_sPLT_entrypp = PPpng_sPLT_entry; - - (* When the depth of the sPLT palette is 8 bits, the color and alpha samples - * occupy the LSB of their respective members, and the MSB of each member - * is zero-filled. The frequency member always occupies the full 16 bits. - *) - - png_sPLT_t = record - name : png_charp; (* palette name *) - depth : png_byte; (* depth of palette samples *) - entries : png_sPLT_entryp; (* palette entries *) - nentries : png_int_32; (* number of palette entries *) - end; - ppng_sPLT_t = ^png_sPLT_t; - pppng_sPLT_t = ^ppng_sPLT_t; - png_sPLT_struct = png_sPLT_t; - png_sPLT_tp = Ppng_sPLT_t; - png_sPLT_tpp = PPpng_sPLT_t; - - (* png_text holds the contents of a text/ztxt/itxt chunk in a PNG file, - * and whether that contents is compressed or not. The "key" field - * points to a regular zero-terminated C string. The "text", "lang", and - * "lang_key" fields can be regular C strings, empty strings, or NULL pointers. - * However, the * structure returned by png_get_text() will always contain - * regular zero-terminated C strings (possibly empty), never NULL pointers, - * so they can be safely used in printf() and other string-handling functions. - *) - png_text = record - compression : integer; (* compression value: - -1: tEXt, none - 0: zTXt, deflate - 1: iTXt, none - 2: iTXt, deflate *) - key : png_charp; (* keyword, 1-79 character description of "text" *) - text : png_charp; (* comment, may be an empty string (ie "") - or a NULL pointer *) - text_length : png_size_t; (* length of the text string *) - end; - ppng_text = ^png_text; - pppng_text = ^ppng_text; - png_text_struct = png_text; - png_textp = Ppng_text; - ppng_textp = ^png_textp; - png_textpp = PPpng_text; - - (* png_time is a way to hold the time in an machine independent way. - * Two conversions are provided, both from time_t and struct tm. There - * is no portable way to convert to either of these structures, as far - * as I know. If you know of a portable way, send it to me. As a side - * note - PNG has always been Year 2000 compliant! - *) - png_time = record - year : png_uint_16; (* full year, as in, 1995 *) - month : png_byte; (* month of year, 1 - 12 *) - day : png_byte; (* day of month, 1 - 31 *) - hour : png_byte; (* hour of day, 0 - 23 *) - minute : png_byte; (* minute of hour, 0 - 59 *) - second : png_byte; (* second of minute, 0 - 60 (for leap seconds) *) - end; - ppng_time = ^png_time; - pppng_time = ^ppng_time; - png_time_struct = png_time; - png_timep = Ppng_time; - PPNG_TIMEP = ^PNG_TIMEP; - png_timepp = PPpng_time; - -const - PNG_CHUNK_NAME_LENGTH = 5; -type - (* png_unknown_chunk is a structure to hold queued chunks for which there is - * no specific support. The idea is that we can use this to queue - * up private chunks for output even though the library doesn't actually - * know about their semantics. - *) - png_unknown_chunk = record - name : array[0..PNG_CHUNK_NAME_LENGTH-1] of png_byte; - data : Ppng_byte; - size : png_size_t; - - (* libpng-using applications should NOT directly modify this byte. *) - location : png_byte; (* mode of operation at read time *) - end; - ppng_unknown_chunk = ^png_unknown_chunk; - pppng_unknown_chunk = ^ppng_unknown_chunk; - png_unknown_chunk_t = png_unknown_chunk; - png_unknown_chunkp = Ppng_unknown_chunk; - png_unknown_chunkpp = PPpng_unknown_chunk; - - (* png_info is a structure that holds the information in a PNG file so - * that the application can find out the characteristics of the image. - * If you are reading the file, this structure will tell you what is - * in the PNG file. If you are writing the file, fill in the information - * you want to put into the PNG file, then call png_write_info(). - * The names chosen should be very close to the PNG specification, so - * consult that document for information about the meaning of each field. - * - * With libpng < 0.95, it was only possible to directly set and read the - * the values in the png_info_struct, which meant that the contents and - * order of the values had to remain fixed. With libpng 0.95 and later, - * however, there are now functions that abstract the contents of - * png_info_struct from the application, so this makes it easier to use - * libpng with dynamic libraries, and even makes it possible to use - * libraries that don't have all of the libpng ancillary chunk-handing - * functionality. - * - * In any case, the order of the parameters in png_info_struct should NOT - * be changed for as long as possible to keep compatibility with applications - * that use the old direct-access method with png_info_struct. - * - * The following members may have allocated storage attached that should be - * cleaned up before the structure is discarded: palette, trans, text, - * pcal_purpose, pcal_units, pcal_params, hist, iccp_name, iccp_profile, - * splt_palettes, scal_unit, row_pointers, and unknowns. By default, these - * are automatically freed when the info structure is deallocated, if they were - * allocated internally by libpng. This behavior can be changed by means - * of the png_data_freer() function. - * - * More allocation details: all the chunk-reading functions that - * change these members go through the corresponding png_set_* - * functions. A function to clear these members is available: see - * png_free_data(). The png_set_* functions do not depend on being - * able to point info structure members to any of the storage they are - * passed (they make their own copies), EXCEPT that the png_set_text - * functions use the same storage passed to them in the text_ptr or - * itxt_ptr structure argument, and the png_set_rows and png_set_unknowns - * functions do not make their own copies. - *) - png_info = record - width : png_uint_32; (* width of image in pixels (from IHDR) *) - height : png_uint_32; (* height of image in pixels (from IHDR) *) - valid : png_uint_32; (* valid chunk data (see PNG_INFO_ below) *) - rowbytes : png_uint_32; (* bytes needed to hold an untransformed row *) - palette : png_colorp; (* array of color values (valid & PNG_INFO_PLTE) *) - num_palette : png_uint_16; (* number of color entries in "palette" (PLTE) *) - num_trans : png_uint_16; (* number of transparent palette color (tRNS) *) - bit_depth : png_byte; (* 1, 2, 4, 8, or 16 bits/channel (from IHDR) *) - color_type : png_byte; (* see PNG_COLOR_TYPE_ below (from IHDR) *) - (* The following three should have been named *_method not *_type *) - compression_type : png_byte; (* must be PNG_COMPRESSION_TYPE_BASE (IHDR) *) - filter_type : png_byte; (* must be PNG_FILTER_TYPE_BASE (from IHDR) *) - interlace_type : png_byte; (* One of PNG_INTERLACE_NONE, PNG_INTERLACE_ADAM7 *) - - (* The following is informational only on read, and not used on writes. *) - channels : png_byte; (* number of data channels per pixel (1, 2, 3, 4) *) - pixel_depth : png_byte; (* number of bits per pixel *) - spare_byte : png_byte; (* to align the data, and for future use *) - signature : array[0..7] of png_byte; (* magic bytes read by libpng from start of file *) - - (* The rest of the data is optional. If you are reading, check the - * valid field to see if the information in these are valid. If you - * are writing, set the valid field to those chunks you want written, - * and initialize the appropriate fields below. - *) - - gamma : single; - srgb_intent : png_byte; - num_text : integer; - max_text : integer; - text : png_textp; - mod_time : png_time; - sig_bit : png_color_8; - trans : png_bytep; - trans_values : png_color_16; - background : png_color_16; - x_offset : png_int_32; - y_offset : png_int_32; - offset_unit_type : png_byte; - x_pixels_per_unit : png_uint_32; - y_pixels_per_unit : png_uint_32; - phys_unit_type : png_byte; - hist : png_uint_16p; - x_white : single; - y_white : single; - x_red : single; - y_red : single; - x_green : single; - y_green : single; - x_blue : single; - y_blue : single; - pcal_purpose : png_charp; - pcal_X0 : png_int_32; - pcal_X1 : png_int_32; - pcal_units : png_charp; - pcal_params : png_charpp; - pcal_type : png_byte; - pcal_nparams : png_byte; - free_me : png_uint_32; - unknown_chunks : png_unknown_chunkp; - unknown_chunks_num : png_size_t; - iccp_name : png_charp; - iccp_profile : png_charp; - iccp_proflen : png_uint_32; - iccp_compression : png_byte; - splt_palettes : png_sPLT_tp; - splt_palettes_num : png_uint_32; - scal_unit : png_byte; - scal_pixel_width : double; - scal_pixel_height : double; - scal_s_width : png_charp; - scal_s_height : png_charp; - row_pointers : png_bytepp; - int_gamma : png_fixed_point; - int_x_white : png_fixed_point; - int_y_white : png_fixed_point; - int_x_red : png_fixed_point; - int_y_red : png_fixed_point; - int_x_green : png_fixed_point; - int_y_green : png_fixed_point; - int_x_blue : png_fixed_point; - int_y_blue : png_fixed_point; - end; - ppng_info = ^png_info; - pppng_info = ^ppng_info; - png_info_struct = png_info; - png_infop = Ppng_info; - png_infopp = PPpng_info; - - (* This is used for the transformation routines, as some of them - * change these values for the row. It also should enable using - * the routines for other purposes. - *) - png_row_info = record - width : png_uint_32; (* width of row *) - rowbytes : png_uint_32; (* number of bytes in row *) - color_type : png_byte; (* color type of row *) - bit_depth : png_byte; (* bit depth of row *) - channels : png_byte; (* number of channels (1, 2, 3, or 4) *) - pixel_depth : png_byte; (* bits per pixel (depth * channels) *) - end; - ppng_row_info = ^png_row_info; - pppng_row_info = ^ppng_row_info; - png_row_info_struct = png_row_info; - png_row_infop = Ppng_row_info; - png_row_infopp = PPpng_row_info; - png_structp = ^png_struct; - - - (* These are the function types for the I/O functions and for the functions - * that allow the user to override the default I/O functions with his or her - * own. The png_error_ptr type should match that of user-supplied warning - * and error functions, while the png_rw_ptr type should match that of the - * user read/write data functions. - *) - png_error_ptr = procedure(Arg1 : png_structp; Arg2 : png_const_charp);cdecl; - png_rw_ptr = procedure(Arg1 : png_structp; Arg2 : png_bytep; Arg3 : png_size_t);cdecl; - png_flush_ptr = procedure (Arg1 : png_structp) ;cdecl; - png_read_status_ptr = procedure (Arg1 : png_structp; Arg2 : png_uint_32; Arg3: integer);cdecl; - png_write_status_ptr = procedure (Arg1 : png_structp; Arg2:png_uint_32;Arg3 : integer) ;cdecl; - png_progressive_info_ptr = procedure (Arg1 : png_structp; Arg2 : png_infop) ;cdecl; - png_progressive_end_ptr = procedure (Arg1 : png_structp; Arg2 : png_infop) ;cdecl; - png_progressive_row_ptr = procedure (Arg1 : png_structp; Arg2 : png_bytep; Arg3 : png_uint_32; Arg4 : integer) ;cdecl; - png_user_transform_ptr = procedure (Arg1 : png_structp; Arg2 : png_row_infop; Arg3 : png_bytep) ;cdecl; - png_user_chunk_ptr = function (Arg1 : png_structp; Arg2 : png_unknown_chunkp): integer;cdecl; - png_unknown_chunk_ptr = procedure (Arg1 : png_structp);cdecl; - png_malloc_ptr = function (Arg1 : png_structp; Arg2 : png_size_t) : png_voidp ;cdecl; - png_free_ptr = procedure (Arg1 : png_structp; Arg2 : png_voidp) ; cdecl; - - png_struct_def = record - {$ifdef UsePngStruct} - jmpbuf : jmp_buf; (* used in png_error *) - error_fn : png_error_ptr; (* function for printing errors and aborting *) - warning_fn : png_error_ptr; (* function for printing warnings *) - error_ptr : png_voidp; (* user supplied struct for error functions *) - write_data_fn : png_rw_ptr; (* function for writing output data *) - read_data_fn : png_rw_ptr; (* function for reading input data *) - io_ptr : png_voidp; (* ptr to application struct for I/O functions *) - - read_user_transform_fn : png_user_transform_ptr; (* user read transform *) - - write_user_transform_fn : png_user_transform_ptr; (* user write transform *) - - (* These were added in libpng-1.0.2 *) - user_transform_ptr : png_voidp; (* user supplied struct for user transform *) - user_transform_depth : png_byte; (* bit depth of user transformed pixels *) - user_transform_channels : png_byte; (* channels in user transformed pixels *) - - mode : png_uint_32; (* tells us where we are in the PNG file *) - flags : png_uint_32; (* flags indicating various things to libpng *) - transformations : png_uint_32; (* which transformations to perform *) - - zstream : z_stream; (* pointer to decompression structure (below) *) - zbuf : png_bytep; (* buffer for zlib *) - zbuf_size : png_size_t; (* size of zbuf *) - zlib_level : integer; (* holds zlib compression level *) - zlib_method : integer; (* holds zlib compression method *) - zlib_window_bits : integer; (* holds zlib compression window bits *) - zlib_mem_level : integer; (* holds zlib compression memory level *) - zlib_strategy : integer; (* holds zlib compression strategy *) - - width : png_uint_32; (* width of image in pixels *) - height : png_uint_32; (* height of image in pixels *) - num_rows : png_uint_32; (* number of rows in current pass *) - usr_width : png_uint_32; (* width of row at start of write *) - rowbytes : png_uint_32; (* size of row in bytes *) - irowbytes : png_uint_32; (* size of current interlaced row in bytes *) - iwidth : png_uint_32; (* width of current interlaced row in pixels *) - row_number : png_uint_32; (* current row in interlace pass *) - prev_row : png_bytep; (* buffer to save previous (unfiltered) row *) - row_buf : png_bytep; (* buffer to save current (unfiltered) row *) - sub_row : png_bytep; (* buffer to save "sub" row when filtering *) - up_row : png_bytep; (* buffer to save "up" row when filtering *) - avg_row : png_bytep; (* buffer to save "avg" row when filtering *) - paeth_row : png_bytep; (* buffer to save "Paeth" row when filtering *) - row_info : png_row_info; (* used for transformation routines *) - - idat_size : png_uint_32; (* current IDAT size for read *) - crc : png_uint_32; (* current chunk CRC value *) - palette : png_colorp; (* palette from the input file *) - num_palette : png_uint_16; (* number of color entries in palette *) - num_trans : png_uint_16; (* number of transparency values *) - chunk_name : array[0..4] of png_byte; (* null-terminated name of current chunk *) - compression : png_byte; (* file compression type (always 0) *) - filter : png_byte; (* file filter type (always 0) *) - interlaced : png_byte; (* PNG_INTERLACE_NONE, PNG_INTERLACE_ADAM7 *) - pass : png_byte; (* current interlace pass (0 - 6) *) - do_filter : png_byte; (* row filter flags (see PNG_FILTER_ below ) *) - color_type : png_byte; (* color type of file *) - bit_depth : png_byte; (* bit depth of file *) - usr_bit_depth : png_byte; (* bit depth of users row *) - pixel_depth : png_byte; (* number of bits per pixel *) - channels : png_byte; (* number of channels in file *) - usr_channels : png_byte; (* channels at start of write *) - sig_bytes : png_byte; (* magic bytes read/written from start of file *) - - filler : png_uint_16; - - background_gamma_type : png_byte; - background_gamma : single; - background : png_color_16; - background_1 : png_color_16; - output_flush_fn : png_flush_ptr; - flush_dist : png_uint_32; - flush_rows : png_uint_32; - gamma_shift : integer; - gamma : single; - screen_gamma : single; - gamma_table : png_bytep; - gamma_from_1 : png_bytep; - gamma_to_1 : png_bytep; - gamma_16_table : png_uint_16pp; - gamma_16_from_1 : png_uint_16pp; - gamma_16_to_1 : png_uint_16pp; - sig_bit : png_color_8; - shift : png_color_8; - trans : png_bytep; - trans_values : png_color_16; - read_row_fn : png_read_status_ptr; - write_row_fn : png_write_status_ptr; - info_fn : png_progressive_info_ptr; - row_fn : png_progressive_row_ptr; - end_fn : png_progressive_end_ptr; - save_buffer_ptr : png_bytep; - save_buffer : png_bytep; - current_buffer_ptr : png_bytep; - current_buffer : png_bytep; - push_length : png_uint_32; - skip_length : png_uint_32; - save_buffer_size : png_size_t; - save_buffer_max : png_size_t; - buffer_size : png_size_t; - current_buffer_size : png_size_t; - process_mode : integer; - cur_palette : integer; - current_text_size : png_size_t; - current_text_left : png_size_t; - current_text : png_charp; - current_text_ptr : png_charp; - palette_lookup : png_bytep; - dither_index : png_bytep; - hist : png_uint_16p; - heuristic_method : png_byte; - num_prev_filters : png_byte; - prev_filters : png_bytep; - filter_weights : png_uint_16p; - inv_filter_weights : png_uint_16p; - filter_costs : png_uint_16p; - inv_filter_costs : png_uint_16p; - time_buffer : png_charp; - free_me : png_uint_32; - user_chunk_ptr : png_voidp; - read_user_chunk_fn : png_user_chunk_ptr; - num_chunk_list : integer; - chunk_list : png_bytep; - rgb_to_gray_status : png_byte; - rgb_to_gray_red_coeff : png_uint_16; - rgb_to_gray_green_coeff : png_uint_16; - rgb_to_gray_blue_coeff : png_uint_16; - empty_plte_permitted : png_byte; - int_gamma : png_fixed_point; - {$endif UsePngStruct} - end; - ppng_struct_def = ^png_struct_def; - pppng_struct_def = ^ppng_struct_def; - png_struct = png_struct_def; - ppng_struct = ^png_struct; - pppng_struct = ^ppng_struct; - - version_1_0_8 = png_structp; - png_structpp = PPpng_struct; - -function png_access_version_number:png_uint_32;cdecl; external LibPng; - -procedure png_set_sig_bytes(png_ptr:png_structp; num_bytes:integer);cdecl; external LibPng; -function png_sig_cmp(sig:png_bytep; start:png_size_t; num_to_check:png_size_t):integer;cdecl; external LibPng; -function png_check_sig(sig:png_bytep; num:integer):integer;cdecl; external LibPng; - -(* Allocate and initialize png_ptr struct for reading, and any other memory. *) -function png_create_read_struct(user_png_ver:png_const_charp; error_ptr:png_voidp; error_fn:png_error_ptr; warn_fn:png_error_ptr):png_structp;cdecl; external LibPng; - -(* Allocate and initialize png_ptr struct for writing, and any other memory *) -function png_create_write_struct(user_png_ver:png_const_charp; error_ptr:png_voidp; error_fn:png_error_ptr; warn_fn:png_error_ptr):png_structp;cdecl; external LibPng; - -function png_get_compression_buffer_size(png_ptr:png_structp):png_uint_32;cdecl; external LibPng; -procedure png_set_compression_buffer_size(png_ptr:png_structp; size:png_uint_32);cdecl; external LibPng; -function png_reset_zstream(png_ptr:png_structp):integer;cdecl; external LibPng; - -procedure png_write_chunk(png_ptr:png_structp; chunk_name:png_bytep; data:png_bytep; length:png_size_t);cdecl; external LibPng; -procedure png_write_chunk_start(png_ptr:png_structp; chunk_name:png_bytep; length:png_uint_32);cdecl; external LibPng; -procedure png_write_chunk_data(png_ptr:png_structp; data:png_bytep; length:png_size_t);cdecl; external LibPng; -procedure png_write_chunk_end(png_ptr:png_structp);cdecl; external LibPng; - -(* Allocate and initialize the info structure *) -function png_create_info_struct(png_ptr:png_structp):png_infop;cdecl; external LibPng; - -(* Initialize the info structure (old interface - DEPRECATED) *) -procedure png_info_init(info_ptr:png_infop);cdecl; external LibPng; - -(* Writes all the PNG information before the image. *) -procedure png_write_info_before_PLTE(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng; -procedure png_write_info(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng; - -(* read the information before the actual image data. *) -procedure png_read_info(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng; - -function png_convert_to_rfc1123(png_ptr:png_structp; ptime:png_timep):png_charp;cdecl; external LibPng; -procedure png_convert_from_struct_tm(ptime:png_timep; ttime:Pointer);cdecl; external LibPng; -{$IFDEF UNIX} -procedure png_convert_from_time_t(ptime:png_timep; ttime:time_t);cdecl; external LibPng; -{$ENDIF} -procedure png_set_expand(png_ptr:png_structp);cdecl; external LibPng; -procedure png_set_gray_1_2_4_to_8(png_ptr:png_structp);cdecl; external LibPng; -procedure png_set_palette_to_rgb(png_ptr:png_structp);cdecl; external LibPng; -procedure png_set_tRNS_to_alpha(png_ptr:png_structp);cdecl; external LibPng; -procedure png_set_bgr(png_ptr:png_structp);cdecl; external LibPng; -procedure png_set_gray_to_rgb(png_ptr:png_structp);cdecl; external LibPng; -procedure png_set_rgb_to_gray(png_ptr:png_structp; error_action:integer; red:double; green:double);cdecl; external LibPng; -procedure png_set_rgb_to_gray_fixed(png_ptr:png_structp; error_action:integer; red:png_fixed_point; green:png_fixed_point);cdecl; external LibPng; -function png_get_rgb_to_gray_status(png_ptr:png_structp):png_byte;cdecl; external LibPng; -procedure png_build_grayscale_palette(bit_depth:integer; palette:png_colorp);cdecl; external LibPng; -procedure png_set_strip_alpha(png_ptr:png_structp);cdecl; external LibPng; -procedure png_set_swap_alpha(png_ptr:png_structp);cdecl; external LibPng; -procedure png_set_invert_alpha(png_ptr:png_structp);cdecl; external LibPng; -procedure png_set_filler(png_ptr:png_structp; filler:png_uint_32; flags:integer);cdecl; external LibPng; -procedure png_set_swap(png_ptr:png_structp);cdecl; external LibPng; -procedure png_set_packing(png_ptr:png_structp);cdecl; external LibPng; -procedure png_set_packswap(png_ptr:png_structp);cdecl; external LibPng; -procedure png_set_shift(png_ptr:png_structp; true_bits:png_color_8p);cdecl; external LibPng; -function png_set_interlace_handling(png_ptr:png_structp):integer;cdecl; external LibPng; -procedure png_set_invert_mono(png_ptr:png_structp);cdecl; external LibPng; -procedure png_set_background(png_ptr:png_structp; background_color:png_color_16p; background_gamma_code:integer; need_expand:integer; background_gamma:double);cdecl; external LibPng; -procedure png_set_strip_16(png_ptr:png_structp);cdecl; external LibPng; -procedure png_set_dither(png_ptr:png_structp; palette:png_colorp; num_palette:integer; maximum_colors:integer; histogram:png_uint_16p; - full_dither:integer);cdecl; external LibPng; -procedure png_set_gamma(png_ptr:png_structp; screen_gamma:double; default_file_gamma:double);cdecl; external LibPng; -procedure png_permit_empty_plte(png_ptr:png_structp; empty_plte_permitted:integer);cdecl; external LibPng; -procedure png_set_flush(png_ptr:png_structp; nrows:integer);cdecl; external LibPng; -procedure png_write_flush(png_ptr:png_structp);cdecl; external LibPng; -procedure png_start_read_image(png_ptr:png_structp);cdecl; external LibPng; -procedure png_read_update_info(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng; - -(* read one or more rows of image data. *) -procedure png_read_rows(png_ptr:png_structp; row:png_bytepp; display_row:png_bytepp; num_rows:png_uint_32);cdecl; external LibPng; - -(* read a row of data. *) -procedure png_read_row(png_ptr:png_structp; row:png_bytep; display_row:png_bytep);cdecl; external LibPng; - -(* read the whole image into memory at once. *) -procedure png_read_image(png_ptr:png_structp; image:png_bytepp);cdecl; external LibPng; - -(* write a row of image data *) -procedure png_write_row(png_ptr:png_structp; row:png_bytep);cdecl; external LibPng; - -(* write a few rows of image data *) -procedure png_write_rows(png_ptr:png_structp; row:png_bytepp; num_rows:png_uint_32);cdecl; external LibPng; - -(* write the image data *) -procedure png_write_image(png_ptr:png_structp; image:png_bytepp);cdecl; external LibPng; - -(* writes the end of the PNG file. *) -procedure png_write_end(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng; - -(* read the end of the PNG file. *) -procedure png_read_end(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng; - -(* free any memory associated with the png_info_struct *) -procedure png_destroy_info_struct(png_ptr:png_structp; info_ptr_ptr:png_infopp);cdecl; external LibPng; - -(* free any memory associated with the png_struct and the png_info_structs *) -procedure png_destroy_read_struct(png_ptr_ptr:png_structpp; info_ptr_ptr:png_infopp; end_info_ptr_ptr:png_infopp);cdecl; external LibPng; - -(* free all memory used by the read (old method - NOT DLL EXPORTED) *) -procedure png_read_destroy(png_ptr:png_structp; info_ptr:png_infop; end_info_ptr:png_infop);cdecl; external LibPng; - -(* free any memory associated with the png_struct and the png_info_structs *) -procedure png_destroy_write_struct(png_ptr_ptr:png_structpp; info_ptr_ptr:png_infopp);cdecl; external LibPng; - -procedure png_write_destroy_info(info_ptr:png_infop);cdecl; external LibPng; -procedure png_write_destroy(png_ptr:png_structp);cdecl; external LibPng; - -procedure png_set_crc_action(png_ptr:png_structp; crit_action:integer; ancil_action:integer);cdecl; external LibPng; - -procedure png_set_filter(png_ptr:png_structp; method:integer; filters:integer);cdecl; external LibPng; -procedure png_set_filter_heuristics(png_ptr:png_structp; heuristic_method:integer; num_weights:integer; filter_weights:png_doublep; filter_costs:png_doublep);cdecl; external LibPng; - -procedure png_set_compression_level(png_ptr:png_structp; level:integer);cdecl; external LibPng; -procedure png_set_compression_mem_level(png_ptr:png_structp; mem_level:integer);cdecl; external LibPng; -procedure png_set_compression_strategy(png_ptr:png_structp; strategy:integer);cdecl; external LibPng; -procedure png_set_compression_window_bits(png_ptr:png_structp; window_bits:integer);cdecl; external LibPng; -procedure png_set_compression_method(png_ptr:png_structp; method:integer);cdecl; external LibPng; - -procedure png_init_io(png_ptr:png_structp; fp:png_FILE_p);cdecl; external LibPng; - -(* Replace the (error and abort), and warning functions with user - * supplied functions. If no messages are to be printed you must still - * write and use replacement functions. The replacement error_fn should - * still do a longjmp to the last setjmp location if you are using this - * method of error handling. If error_fn or warning_fn is NULL, the - * default function will be used. - *) -procedure png_set_error_fn(png_ptr:png_structp; error_ptr:png_voidp; error_fn:png_error_ptr; warning_fn:png_error_ptr);cdecl; external LibPng; - -(* Return the user pointer associated with the error functions *) -function png_get_error_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng; - -(* Replace the default data output functions with a user supplied one(s). - * If buffered output is not used, then output_flush_fn can be set to NULL. - * If PNG_WRITE_FLUSH_SUPPORTED is not defined at libpng compile time - * output_flush_fn will be ignored (and thus can be NULL). - *) -procedure png_set_write_fn(png_ptr:png_structp; io_ptr:png_voidp; write_data_fn:png_rw_ptr; output_flush_fn:png_flush_ptr);cdecl; external LibPng; - -(* Replace the default data input function with a user supplied one. *) -procedure png_set_read_fn(png_ptr:png_structp; io_ptr:png_voidp; read_data_fn:png_rw_ptr);cdecl; external LibPng; - -(* Return the user pointer associated with the I/O functions *) -function png_get_io_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng; - -procedure png_set_read_status_fn(png_ptr:png_structp; read_row_fn:png_read_status_ptr);cdecl; external LibPng; -procedure png_set_write_status_fn(png_ptr:png_structp; write_row_fn:png_write_status_ptr);cdecl; external LibPng; -procedure png_set_read_user_transform_fn(png_ptr:png_structp; read_user_transform_fn:png_user_transform_ptr);cdecl; external LibPng; -procedure png_set_write_user_transform_fn(png_ptr:png_structp; write_user_transform_fn:png_user_transform_ptr);cdecl; external LibPng; -procedure png_set_user_transform_info(png_ptr:png_structp; user_transform_ptr:png_voidp; user_transform_depth:integer; user_transform_channels:integer);cdecl; external LibPng; -function png_get_user_transform_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng; -procedure png_set_read_user_chunk_fn(png_ptr:png_structp; user_chunk_ptr:png_voidp; read_user_chunk_fn:png_user_chunk_ptr);cdecl; external LibPng; -function png_get_user_chunk_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng; -procedure png_set_progressive_read_fn(png_ptr:png_structp; progressive_ptr:png_voidp; info_fn:png_progressive_info_ptr; row_fn:png_progressive_row_ptr; end_fn:png_progressive_end_ptr);cdecl; external LibPng; -function png_get_progressive_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng; -procedure png_process_data(png_ptr:png_structp; info_ptr:png_infop; buffer:png_bytep; buffer_size:png_size_t);cdecl; external LibPng; -procedure png_progressive_combine_row(png_ptr:png_structp; old_row:png_bytep; new_row:png_bytep);cdecl; external LibPng; -function png_malloc(png_ptr:png_structp; size:png_uint_32):png_voidp;cdecl; external LibPng; -procedure png_free(png_ptr:png_structp; ptr:png_voidp);cdecl; external LibPng; -procedure png_free_data(png_ptr:png_structp; info_ptr:png_infop; free_me:png_uint_32; num:integer);cdecl; external LibPng; -procedure png_data_freer(png_ptr:png_structp; info_ptr:png_infop; freer:integer; mask:png_uint_32);cdecl; external LibPng; -function png_memcpy_check(png_ptr:png_structp; s1:png_voidp; s2:png_voidp; size:png_uint_32):png_voidp;cdecl; external LibPng; -function png_memset_check(png_ptr:png_structp; s1:png_voidp; value:integer; size:png_uint_32):png_voidp;cdecl; external LibPng; -procedure png_error(png_ptr:png_structp; error:png_const_charp);cdecl; external LibPng; -procedure png_chunk_error(png_ptr:png_structp; error:png_const_charp);cdecl; external LibPng; -procedure png_warning(png_ptr:png_structp; message:png_const_charp);cdecl; external LibPng; -procedure png_chunk_warning(png_ptr:png_structp; message:png_const_charp);cdecl; external LibPng; -function png_get_valid(png_ptr:png_structp; info_ptr:png_infop; flag:png_uint_32):png_uint_32;cdecl; external LibPng; -function png_get_rowbytes(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng; -function png_get_rows(png_ptr:png_structp; info_ptr:png_infop):png_bytepp;cdecl; external LibPng; -procedure png_set_rows(png_ptr:png_structp; info_ptr:png_infop; row_pointers:png_bytepp);cdecl; external LibPng; -function png_get_channels(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng; -function png_get_image_width(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng; -function png_get_image_height(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng; -function png_get_bit_depth(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng; -function png_get_color_type(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng; -function png_get_filter_type(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng; -function png_get_interlace_type(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng; -function png_get_compression_type(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng; -function png_get_pixels_per_meter(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng; -function png_get_x_pixels_per_meter(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng; -function png_get_y_pixels_per_meter(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng; -function png_get_pixel_aspect_ratio(png_ptr:png_structp; info_ptr:png_infop):single;cdecl; external LibPng; -function png_get_x_offset_pixels(png_ptr:png_structp; info_ptr:png_infop):png_int_32;cdecl; external LibPng; -function png_get_y_offset_pixels(png_ptr:png_structp; info_ptr:png_infop):png_int_32;cdecl; external LibPng; -function png_get_x_offset_microns(png_ptr:png_structp; info_ptr:png_infop):png_int_32;cdecl; external LibPng; -function png_get_y_offset_microns(png_ptr:png_structp; info_ptr:png_infop):png_int_32;cdecl; external LibPng; -function png_get_signature(png_ptr:png_structp; info_ptr:png_infop):png_bytep;cdecl; external LibPng; - -function png_get_bKGD(png_ptr:png_structp; info_ptr:png_infop; background:Ppng_color_16p):png_uint_32;cdecl; external LibPng; -procedure png_set_bKGD(png_ptr:png_structp; info_ptr:png_infop; background:png_color_16p);cdecl; external LibPng; -function png_get_cHRM(png_ptr:png_structp; info_ptr:png_infop; white_x:Pdouble; white_y:Pdouble; red_x:Pdouble; - red_y:Pdouble; green_x:Pdouble; green_y:Pdouble; blue_x:Pdouble; blue_y:Pdouble):png_uint_32;cdecl; external LibPng; -function png_get_cHRM_fixed(png_ptr:png_structp; info_ptr:png_infop; int_white_x:Ppng_fixed_point; int_white_y:Ppng_fixed_point; int_red_x:Ppng_fixed_point; - int_red_y:Ppng_fixed_point; int_green_x:Ppng_fixed_point; int_green_y:Ppng_fixed_point; int_blue_x:Ppng_fixed_point; int_blue_y:Ppng_fixed_point):png_uint_32;cdecl; external LibPng; -procedure png_set_cHRM(png_ptr:png_structp; info_ptr:png_infop; white_x:double; white_y:double; red_x:double; - red_y:double; green_x:double; green_y:double; blue_x:double; blue_y:double);cdecl; external LibPng; -procedure png_set_cHRM_fixed(png_ptr:png_structp; info_ptr:png_infop; int_white_x:png_fixed_point; int_white_y:png_fixed_point; int_red_x:png_fixed_point; - int_red_y:png_fixed_point; int_green_x:png_fixed_point; int_green_y:png_fixed_point; int_blue_x:png_fixed_point; int_blue_y:png_fixed_point);cdecl; external LibPng; -function png_get_gAMA(png_ptr:png_structp; info_ptr:png_infop; file_gamma:Pdouble):png_uint_32;cdecl; external LibPng; -function png_get_gAMA_fixed(png_ptr:png_structp; info_ptr:png_infop; int_file_gamma:Ppng_fixed_point):png_uint_32;cdecl; external LibPng; -procedure png_set_gAMA(png_ptr:png_structp; info_ptr:png_infop; file_gamma:double);cdecl; external LibPng; -procedure png_set_gAMA_fixed(png_ptr:png_structp; info_ptr:png_infop; int_file_gamma:png_fixed_point);cdecl; external LibPng; -function png_get_hIST(png_ptr:png_structp; info_ptr:png_infop; hist:Ppng_uint_16p):png_uint_32;cdecl; external LibPng; -procedure png_set_hIST(png_ptr:png_structp; info_ptr:png_infop; hist:png_uint_16p);cdecl; external LibPng; -function png_get_IHDR(png_ptr:png_structp; info_ptr:png_infop; width:Ppng_uint_32; height:Ppng_uint_32; bit_depth:Pinteger; - color_type:Pinteger; interlace_type:Pinteger; compression_type:Pinteger; filter_type:Pinteger):png_uint_32;cdecl; external LibPng; -procedure png_set_IHDR(png_ptr:png_structp; info_ptr:png_infop; width:png_uint_32; height:png_uint_32; bit_depth:integer; - color_type:integer; interlace_type:integer; compression_type:integer; filter_type:integer);cdecl; external LibPng; -function png_get_oFFs(png_ptr:png_structp; info_ptr:png_infop; offset_x:Ppng_int_32; offset_y:Ppng_int_32; unit_type:Pinteger):png_uint_32;cdecl; external LibPng; -procedure png_set_oFFs(png_ptr:png_structp; info_ptr:png_infop; offset_x:png_int_32; offset_y:png_int_32; unit_type:integer);cdecl; external LibPng; -function png_get_pCAL(png_ptr:png_structp; info_ptr:png_infop; purpose:Ppng_charp; X0:Ppng_int_32; X1:Ppng_int_32; - atype:Pinteger; nparams:Pinteger; units:Ppng_charp; params:Ppng_charpp):png_uint_32;cdecl; external LibPng; -procedure png_set_pCAL(png_ptr:png_structp; info_ptr:png_infop; purpose:png_charp; X0:png_int_32; X1:png_int_32; - atype:integer; nparams:integer; units:png_charp; params:png_charpp);cdecl; external LibPng; -function png_get_pHYs(png_ptr:png_structp; info_ptr:png_infop; res_x:Ppng_uint_32; res_y:Ppng_uint_32; unit_type:Pinteger):png_uint_32;cdecl; external LibPng; -procedure png_set_pHYs(png_ptr:png_structp; info_ptr:png_infop; res_x:png_uint_32; res_y:png_uint_32; unit_type:integer);cdecl; external LibPng; -function png_get_PLTE(png_ptr:png_structp; info_ptr:png_infop; palette:Ppng_colorp; num_palette:Pinteger):png_uint_32;cdecl; external LibPng; -procedure png_set_PLTE(png_ptr:png_structp; info_ptr:png_infop; palette:png_colorp; num_palette:integer);cdecl; external LibPng; -function png_get_sBIT(png_ptr:png_structp; info_ptr:png_infop; sig_bit:Ppng_color_8p):png_uint_32;cdecl; external LibPng; -procedure png_set_sBIT(png_ptr:png_structp; info_ptr:png_infop; sig_bit:png_color_8p);cdecl; external LibPng; -function png_get_sRGB(png_ptr:png_structp; info_ptr:png_infop; intent:Pinteger):png_uint_32;cdecl; external LibPng; -procedure png_set_sRGB(png_ptr:png_structp; info_ptr:png_infop; intent:integer);cdecl; external LibPng; -procedure png_set_sRGB_gAMA_and_cHRM(png_ptr:png_structp; info_ptr:png_infop; intent:integer);cdecl; external LibPng; -function png_get_iCCP(png_ptr:png_structp; info_ptr:png_infop; name:png_charpp; compression_type:Pinteger; profile:png_charpp; - proflen:Ppng_uint_32):png_uint_32;cdecl; external LibPng; -procedure png_set_iCCP(png_ptr:png_structp; info_ptr:png_infop; name:png_charp; compression_type:integer; profile:png_charp; - proflen:png_uint_32);cdecl; external LibPng; -function png_get_sPLT(png_ptr:png_structp; info_ptr:png_infop; entries:png_sPLT_tpp):png_uint_32;cdecl; external LibPng; -procedure png_set_sPLT(png_ptr:png_structp; info_ptr:png_infop; entries:png_sPLT_tp; nentries:integer);cdecl; external LibPng; - -(* png_get_text also returns the number of text chunks in *num_text *) -function png_get_text(png_ptr:png_structp; info_ptr:png_infop; text_ptr:Ppng_textp; num_text:Pinteger):png_uint_32;cdecl; external LibPng; - -(* - * Note while png_set_text() will accept a structure whose text, - * language, and translated keywords are NULL pointers, the structure - * returned by png_get_text will always contain regular - * zero-terminated C strings. They might be empty strings but - * they will never be NULL pointers. - *) -procedure png_set_text(png_ptr:png_structp; info_ptr:png_infop; text_ptr:png_textp; num_text:integer);cdecl; external LibPng; - -function png_get_tIME(png_ptr:png_structp; info_ptr:png_infop; mod_time:Ppng_timep):png_uint_32;cdecl; external LibPng; -procedure png_set_tIME(png_ptr:png_structp; info_ptr:png_infop; mod_time:png_timep);cdecl; external LibPng; -function png_get_tRNS(png_ptr:png_structp; info_ptr:png_infop; trans:Ppng_bytep; num_trans:Pinteger; trans_values:Ppng_color_16p):png_uint_32;cdecl; external LibPng; -procedure png_set_tRNS(png_ptr:png_structp; info_ptr:png_infop; trans:png_bytep; num_trans:integer; trans_values:png_color_16p);cdecl; external LibPng; -function png_get_sCAL(png_ptr:png_structp; info_ptr:png_infop; aunit:Pinteger; width:Pdouble; height:Pdouble):png_uint_32;cdecl; external LibPng; -procedure png_set_sCAL(png_ptr:png_structp; info_ptr:png_infop; aunit:integer; width:double; height:double);cdecl; external LibPng; -procedure png_set_sCAL_s(png_ptr:png_structp; info_ptr:png_infop; aunit:integer; swidth:png_charp; sheight:png_charp);cdecl; external LibPng; - -procedure png_set_keep_unknown_chunks(png_ptr:png_structp; keep:integer; chunk_list:png_bytep; num_chunks:integer);cdecl; external LibPng; -procedure png_set_unknown_chunks(png_ptr:png_structp; info_ptr:png_infop; unknowns:png_unknown_chunkp; num_unknowns:integer);cdecl; external LibPng; -procedure png_set_unknown_chunk_location(png_ptr:png_structp; info_ptr:png_infop; chunk:integer; location:integer);cdecl; external LibPng; -function png_get_unknown_chunks(png_ptr:png_structp; info_ptr:png_infop; entries:png_unknown_chunkpp):png_uint_32;cdecl; external LibPng; - -procedure png_set_invalid(png_ptr:png_structp; info_ptr:png_infop; mask:integer);cdecl; external LibPng; - -procedure png_read_png(png_ptr:png_structp; info_ptr:png_infop; transforms:integer; params:png_voidp);cdecl; external LibPng; -procedure png_write_png(png_ptr:png_structp; info_ptr:png_infop; transforms:integer; params:png_voidp);cdecl; external LibPng; - -function png_get_header_ver(png_ptr:png_structp):png_charp;cdecl; external LibPng; -function png_get_header_version(png_ptr:png_structp):png_charp;cdecl; external LibPng; -function png_get_libpng_ver(png_ptr:png_structp):png_charp;cdecl; external LibPng; - -implementation - -end. +(* + * libpng pascal headers + * Version: 1.2.12 + *) + +{$IFDEF FPC} + {$ifndef NO_SMART_LINK} + {$smartlink on} + {$endif} +{$ENDIF} +unit png; + +interface + +{$IFDEF FPC} + {$MODE DELPHI} + {$PACKRECORDS C} +{$ENDIF} + +uses + {$IFDEF MSWINDOWS} + Windows, + {$ENDIF} + {$IFDEF UNIX} + baseunix, + {$ENDIF} + zlib; + +const +{$ifdef MSWINDOWS} + // use libpng12-0 (Version 1.2.18), delivered wih SDL_Image + LibPng = 'libpng12-0'; // 'libpng13'; + // matching lib version for libpng13.dll, needed for initialization + PNG_LIBPNG_VER_STRING='1.2.12'; + // define the compiler that was used to built the DLL (necessary for jmp_buf) + // SDL_Image was compiled with GCC + //{$define MSVC_DLL} // MS Visual C++ + {$define GCC_DLL} // GCC +{$else} + LibPng = 'png'; + // matching lib version for libpng, needed for initialization + PNG_LIBPNG_VER_STRING='1.2.12'; +{$endif} + + +{$ifdef MSWINDOWS} +const + // JB_LEN (#elements in jmp_buf) depends on the compiler used to compile the DLL + // MSVC++: 16 (x86/AMD64), GCC: 52 + {$if Defined(MSVC_DLL)} + JB_LEN = 16; + {$elseif Defined(GCC_DLL)} + JB_LEN = 52; + {$else} + JB_LEN = 0; + {$ifend} +{$endif} + +type + {$IFNDEF FPC} + // defines for Delphi + size_t = longword; + {$ENDIF} + + {$ifdef MSWINDOWS} + {$if JB_LEN > 0} + jmp_buf = array[0..JB_LEN-1] of integer; + // the png_struct cannot be accessed if the size of jmp_buf is unknown + {$define UsePngStruct} + {$ifend} + // Do NOT use time_t on windows! It might be 32 or 64bit, depending on the compiler and system. + // MSVS-2005 starts using 64bit for time_t on x86 by default, but GCC uses just 32bit. + //time_t = longint; + {$endif} + + z_stream = TZStream; + + png_uint_32 = dword; + png_int_32 = longint; + png_uint_16 = word; + png_int_16 = smallint; + png_byte = byte; + ppng_uint_32 = ^png_uint_32; + ppng_int_32 = ^png_int_32; + ppng_uint_16 = ^png_uint_16; + ppng_int_16 = ^png_int_16; + ppng_byte = ^png_byte; + pppng_uint_32 = ^ppng_uint_32; + pppng_int_32 = ^ppng_int_32; + pppng_uint_16 = ^ppng_uint_16; + pppng_int_16 = ^ppng_int_16; + pppng_byte = ^ppng_byte; + png_size_t = size_t; + png_fixed_point = png_int_32; + ppng_fixed_point = ^png_fixed_point; + pppng_fixed_point = ^ppng_fixed_point; + png_voidp = pointer; + png_bytep = Ppng_byte; + ppng_bytep = ^png_bytep; + png_uint_32p = Ppng_uint_32; + png_int_32p = Ppng_int_32; + png_uint_16p = Ppng_uint_16; + ppng_uint_16p = ^png_uint_16p; + png_int_16p = Ppng_int_16; + png_const_charp = {const} Pchar; + png_charp = Pchar; + ppng_charp = ^png_charp; + png_fixed_point_p = Ppng_fixed_point; + png_FILE_p = Pointer; + png_doublep = Pdouble; + png_bytepp = PPpng_byte; + png_uint_32pp = PPpng_uint_32; + png_int_32pp = PPpng_int_32; + png_uint_16pp = PPpng_uint_16; + png_int_16pp = PPpng_int_16; + png_const_charpp = {const} PPchar; + png_charpp = PPchar; + ppng_charpp = ^png_charpp; + png_fixed_point_pp = PPpng_fixed_point; + PPDouble = ^PDouble; + png_doublepp = PPdouble; + PPPChar = ^PPCHar; + png_charppp = PPPchar; + Pcharf = Pchar; + PPcharf = ^Pcharf; + png_zcharp = Pcharf; + png_zcharpp = PPcharf; + png_zstreamp = Pzstream; + +const + (* Maximum positive integer used in PNG is (2^31)-1 *) + PNG_UINT_31_MAX = (png_uint_32($7fffffff)); + PNG_UINT_32_MAX = (png_uint_32(-1)); + PNG_SIZE_MAX = (png_size_t(-1)); + {$if defined(PNG_1_0_X) or defined (PNG_1_2_X)} + (* PNG_MAX_UINT is deprecated; use PNG_UINT_31_MAX instead. *) + PNG_MAX_UINT = PNG_UINT_31_MAX; + {$ifend} + + (* These describe the color_type field in png_info. *) + (* color type masks *) + PNG_COLOR_MASK_PALETTE = 1; + PNG_COLOR_MASK_COLOR = 2; + PNG_COLOR_MASK_ALPHA = 4; + + (* color types. Note that not all combinations are legal *) + PNG_COLOR_TYPE_GRAY = 0; + PNG_COLOR_TYPE_PALETTE = (PNG_COLOR_MASK_COLOR or PNG_COLOR_MASK_PALETTE); + PNG_COLOR_TYPE_RGB = (PNG_COLOR_MASK_COLOR); + PNG_COLOR_TYPE_RGB_ALPHA = (PNG_COLOR_MASK_COLOR or PNG_COLOR_MASK_ALPHA); + PNG_COLOR_TYPE_GRAY_ALPHA = (PNG_COLOR_MASK_ALPHA); + (* aliases *) + PNG_COLOR_TYPE_RGBA = PNG_COLOR_TYPE_RGB_ALPHA; + PNG_COLOR_TYPE_GA = PNG_COLOR_TYPE_GRAY_ALPHA; + + (* This is for compression type. PNG 1.0-1.2 only define the single type. *) + PNG_COMPRESSION_TYPE_BASE = 0; (* Deflate method 8, 32K window *) + PNG_COMPRESSION_TYPE_DEFAULT = PNG_COMPRESSION_TYPE_BASE; + + (* This is for filter type. PNG 1.0-1.2 only define the single type. *) + PNG_FILTER_TYPE_BASE = 0; (* Single row per-byte filtering *) + PNG_INTRAPIXEL_DIFFERENCING = 64; (* Used only in MNG datastreams *) + PNG_FILTER_TYPE_DEFAULT = PNG_FILTER_TYPE_BASE; + + (* These are for the interlacing type. These values should NOT be changed. *) + PNG_INTERLACE_NONE = 0; (* Non-interlaced image *) + PNG_INTERLACE_ADAM7 = 1; (* Adam7 interlacing *) + PNG_INTERLACE_LAST = 2; (* Not a valid value *) + + (* These are for the oFFs chunk. These values should NOT be changed. *) + PNG_OFFSET_PIXEL = 0; (* Offset in pixels *) + PNG_OFFSET_MICROMETER = 1; (* Offset in micrometers (1/10^6 meter) *) + PNG_OFFSET_LAST = 2; (* Not a valid value *) + + (* These are for the pCAL chunk. These values should NOT be changed. *) + PNG_EQUATION_LINEAR = 0; (* Linear transformation *) + PNG_EQUATION_BASE_E = 1; (* Exponential base e transform *) + PNG_EQUATION_ARBITRARY = 2; (* Arbitrary base exponential transform *) + PNG_EQUATION_HYPERBOLIC = 3; (* Hyperbolic sine transformation *) + PNG_EQUATION_LAST = 4; (* Not a valid value *) + + (* These are for the sCAL chunk. These values should NOT be changed. *) + PNG_SCALE_UNKNOWN = 0; (* unknown unit (image scale) *) + PNG_SCALE_METER = 1; (* meters per pixel *) + PNG_SCALE_RADIAN = 2; (* radians per pixel *) + PNG_SCALE_LAST = 3; (* Not a valid value *) + + (* These are for the pHYs chunk. These values should NOT be changed. *) + PNG_RESOLUTION_UNKNOWN = 0; (* pixels/unknown unit (aspect ratio) *) + PNG_RESOLUTION_METER = 1; (* pixels/meter *) + PNG_RESOLUTION_LAST = 2; (* Not a valid value *) + + (* These are for the sRGB chunk. These values should NOT be changed. *) + PNG_sRGB_INTENT_PERCEPTUAL = 0; + PNG_sRGB_INTENT_RELATIVE = 1; + PNG_sRGB_INTENT_SATURATION = 2; + PNG_sRGB_INTENT_ABSOLUTE = 3; + PNG_sRGB_INTENT_LAST = 4; (* Not a valid value *) + + (* This is for text chunks *) + PNG_KEYWORD_MAX_LENGTH = 79; + + (* Maximum number of entries in PLTE/sPLT/tRNS arrays *) + PNG_MAX_PALETTE_LENGTH = 256; + + (* These determine if an ancillary chunk's data has been successfully read + * from the PNG header, or if the application has filled in the corresponding + * data in the info_struct to be written into the output file. The values + * of the PNG_INFO_ defines should NOT be changed. + *) + PNG_INFO_gAMA = $0001; + PNG_INFO_sBIT = $0002; + PNG_INFO_cHRM = $0004; + PNG_INFO_PLTE = $0008; + PNG_INFO_tRNS = $0010; + PNG_INFO_bKGD = $0020; + PNG_INFO_hIST = $0040; + PNG_INFO_pHYs = $0080; + PNG_INFO_oFFs = $0100; + PNG_INFO_tIME = $0200; + PNG_INFO_pCAL = $0400; + PNG_INFO_sRGB = $0800; (* GR-P, 0.96a *) + PNG_INFO_iCCP = $1000; (* ESR, 1.0.6 *) + PNG_INFO_sPLT = $2000; (* ESR, 1.0.6 *) + PNG_INFO_sCAL = $4000; (* ESR, 1.0.6 *) + PNG_INFO_IDAT = $8000; (* ESR, 1.0.6 *) + + +(* +var + png_libpng_ver : array[0..11] of char; external LibPng name 'png_libpng_ver'; + png_pass_start : array[0..6] of integer; external LibPng name 'png_pass_start'; + png_pass_inc : array[0..6] of integer; external LibPng name 'png_pass_inc'; + png_pass_ystart : array[0..6] of integer; external LibPng name 'png_pass_ystart'; + png_pass_yinc : array[0..6] of integer; external LibPng name 'png_pass_yinc'; + png_pass_mask : array[0..6] of integer; external LibPng name 'png_pass_mask'; + png_pass_dsp_mask : array[0..6] of integer; external LibPng name 'png_pass_dsp_mask'; +*) + +type + (* Three color definitions. The order of the red, green, and blue, (and the + * exact size) is not important, although the size of the fields need to + * be png_byte or png_uint_16 (as defined below). + *) + png_color = record + red : png_byte; + green : png_byte; + blue : png_byte; + end; + ppng_color = ^png_color; + pppng_color = ^ppng_color; + png_color_struct = png_color; + png_colorp = Ppng_color; + ppng_colorp = ^png_colorp; + png_colorpp = PPpng_color; + + png_color_16 = record + index : png_byte; (* used for palette files *) + red : png_uint_16; (* for use in red green blue files *) + green : png_uint_16; + blue : png_uint_16; + gray : png_uint_16; (* for use in grayscale files *) + end; + ppng_color_16 = ^png_color_16 ; + pppng_color_16 = ^ppng_color_16 ; + png_color_16_struct = png_color_16; + png_color_16p = Ppng_color_16; + ppng_color_16p = ^png_color_16p; + png_color_16pp = PPpng_color_16; + + png_color_8 = record + red : png_byte; (* for use in red green blue files *) + green : png_byte; + blue : png_byte; + gray : png_byte; (* for use in grayscale files *) + alpha : png_byte; (* for alpha channel files *) + end; + ppng_color_8 = ^png_color_8; + pppng_color_8 = ^ppng_color_8; + png_color_8_struct = png_color_8; + png_color_8p = Ppng_color_8; + ppng_color_8p = ^png_color_8p; + png_color_8pp = PPpng_color_8; + + (* + * The following two structures are used for the in-core representation + * of sPLT chunks. + *) + png_sPLT_entry = record + red : png_uint_16; + green : png_uint_16; + blue : png_uint_16; + alpha : png_uint_16; + frequency : png_uint_16; + end; + ppng_sPLT_entry = ^png_sPLT_entry; + pppng_sPLT_entry = ^ppng_sPLT_entry; + png_sPLT_entry_struct = png_sPLT_entry; + png_sPLT_entryp = Ppng_sPLT_entry; + png_sPLT_entrypp = PPpng_sPLT_entry; + + (* When the depth of the sPLT palette is 8 bits, the color and alpha samples + * occupy the LSB of their respective members, and the MSB of each member + * is zero-filled. The frequency member always occupies the full 16 bits. + *) + + png_sPLT_t = record + name : png_charp; (* palette name *) + depth : png_byte; (* depth of palette samples *) + entries : png_sPLT_entryp; (* palette entries *) + nentries : png_int_32; (* number of palette entries *) + end; + ppng_sPLT_t = ^png_sPLT_t; + pppng_sPLT_t = ^ppng_sPLT_t; + png_sPLT_struct = png_sPLT_t; + png_sPLT_tp = Ppng_sPLT_t; + png_sPLT_tpp = PPpng_sPLT_t; + + (* png_text holds the contents of a text/ztxt/itxt chunk in a PNG file, + * and whether that contents is compressed or not. The "key" field + * points to a regular zero-terminated C string. The "text", "lang", and + * "lang_key" fields can be regular C strings, empty strings, or NULL pointers. + * However, the * structure returned by png_get_text() will always contain + * regular zero-terminated C strings (possibly empty), never NULL pointers, + * so they can be safely used in printf() and other string-handling functions. + *) + png_text = record + compression : integer; (* compression value: + -1: tEXt, none + 0: zTXt, deflate + 1: iTXt, none + 2: iTXt, deflate *) + key : png_charp; (* keyword, 1-79 character description of "text" *) + text : png_charp; (* comment, may be an empty string (ie "") + or a NULL pointer *) + text_length : png_size_t; (* length of the text string *) + end; + ppng_text = ^png_text; + pppng_text = ^ppng_text; + png_text_struct = png_text; + png_textp = Ppng_text; + ppng_textp = ^png_textp; + png_textpp = PPpng_text; + + (* png_time is a way to hold the time in an machine independent way. + * Two conversions are provided, both from time_t and struct tm. There + * is no portable way to convert to either of these structures, as far + * as I know. If you know of a portable way, send it to me. As a side + * note - PNG has always been Year 2000 compliant! + *) + png_time = record + year : png_uint_16; (* full year, as in, 1995 *) + month : png_byte; (* month of year, 1 - 12 *) + day : png_byte; (* day of month, 1 - 31 *) + hour : png_byte; (* hour of day, 0 - 23 *) + minute : png_byte; (* minute of hour, 0 - 59 *) + second : png_byte; (* second of minute, 0 - 60 (for leap seconds) *) + end; + ppng_time = ^png_time; + pppng_time = ^ppng_time; + png_time_struct = png_time; + png_timep = Ppng_time; + PPNG_TIMEP = ^PNG_TIMEP; + png_timepp = PPpng_time; + +const + PNG_CHUNK_NAME_LENGTH = 5; +type + (* png_unknown_chunk is a structure to hold queued chunks for which there is + * no specific support. The idea is that we can use this to queue + * up private chunks for output even though the library doesn't actually + * know about their semantics. + *) + png_unknown_chunk = record + name : array[0..PNG_CHUNK_NAME_LENGTH-1] of png_byte; + data : Ppng_byte; + size : png_size_t; + + (* libpng-using applications should NOT directly modify this byte. *) + location : png_byte; (* mode of operation at read time *) + end; + ppng_unknown_chunk = ^png_unknown_chunk; + pppng_unknown_chunk = ^ppng_unknown_chunk; + png_unknown_chunk_t = png_unknown_chunk; + png_unknown_chunkp = Ppng_unknown_chunk; + png_unknown_chunkpp = PPpng_unknown_chunk; + + (* png_info is a structure that holds the information in a PNG file so + * that the application can find out the characteristics of the image. + * If you are reading the file, this structure will tell you what is + * in the PNG file. If you are writing the file, fill in the information + * you want to put into the PNG file, then call png_write_info(). + * The names chosen should be very close to the PNG specification, so + * consult that document for information about the meaning of each field. + * + * With libpng < 0.95, it was only possible to directly set and read the + * the values in the png_info_struct, which meant that the contents and + * order of the values had to remain fixed. With libpng 0.95 and later, + * however, there are now functions that abstract the contents of + * png_info_struct from the application, so this makes it easier to use + * libpng with dynamic libraries, and even makes it possible to use + * libraries that don't have all of the libpng ancillary chunk-handing + * functionality. + * + * In any case, the order of the parameters in png_info_struct should NOT + * be changed for as long as possible to keep compatibility with applications + * that use the old direct-access method with png_info_struct. + * + * The following members may have allocated storage attached that should be + * cleaned up before the structure is discarded: palette, trans, text, + * pcal_purpose, pcal_units, pcal_params, hist, iccp_name, iccp_profile, + * splt_palettes, scal_unit, row_pointers, and unknowns. By default, these + * are automatically freed when the info structure is deallocated, if they were + * allocated internally by libpng. This behavior can be changed by means + * of the png_data_freer() function. + * + * More allocation details: all the chunk-reading functions that + * change these members go through the corresponding png_set_* + * functions. A function to clear these members is available: see + * png_free_data(). The png_set_* functions do not depend on being + * able to point info structure members to any of the storage they are + * passed (they make their own copies), EXCEPT that the png_set_text + * functions use the same storage passed to them in the text_ptr or + * itxt_ptr structure argument, and the png_set_rows and png_set_unknowns + * functions do not make their own copies. + *) + png_info = record + width : png_uint_32; (* width of image in pixels (from IHDR) *) + height : png_uint_32; (* height of image in pixels (from IHDR) *) + valid : png_uint_32; (* valid chunk data (see PNG_INFO_ below) *) + rowbytes : png_uint_32; (* bytes needed to hold an untransformed row *) + palette : png_colorp; (* array of color values (valid & PNG_INFO_PLTE) *) + num_palette : png_uint_16; (* number of color entries in "palette" (PLTE) *) + num_trans : png_uint_16; (* number of transparent palette color (tRNS) *) + bit_depth : png_byte; (* 1, 2, 4, 8, or 16 bits/channel (from IHDR) *) + color_type : png_byte; (* see PNG_COLOR_TYPE_ below (from IHDR) *) + (* The following three should have been named *_method not *_type *) + compression_type : png_byte; (* must be PNG_COMPRESSION_TYPE_BASE (IHDR) *) + filter_type : png_byte; (* must be PNG_FILTER_TYPE_BASE (from IHDR) *) + interlace_type : png_byte; (* One of PNG_INTERLACE_NONE, PNG_INTERLACE_ADAM7 *) + + (* The following is informational only on read, and not used on writes. *) + channels : png_byte; (* number of data channels per pixel (1, 2, 3, 4) *) + pixel_depth : png_byte; (* number of bits per pixel *) + spare_byte : png_byte; (* to align the data, and for future use *) + signature : array[0..7] of png_byte; (* magic bytes read by libpng from start of file *) + + (* The rest of the data is optional. If you are reading, check the + * valid field to see if the information in these are valid. If you + * are writing, set the valid field to those chunks you want written, + * and initialize the appropriate fields below. + *) + + gamma : single; + srgb_intent : png_byte; + num_text : integer; + max_text : integer; + text : png_textp; + mod_time : png_time; + sig_bit : png_color_8; + trans : png_bytep; + trans_values : png_color_16; + background : png_color_16; + x_offset : png_int_32; + y_offset : png_int_32; + offset_unit_type : png_byte; + x_pixels_per_unit : png_uint_32; + y_pixels_per_unit : png_uint_32; + phys_unit_type : png_byte; + hist : png_uint_16p; + x_white : single; + y_white : single; + x_red : single; + y_red : single; + x_green : single; + y_green : single; + x_blue : single; + y_blue : single; + pcal_purpose : png_charp; + pcal_X0 : png_int_32; + pcal_X1 : png_int_32; + pcal_units : png_charp; + pcal_params : png_charpp; + pcal_type : png_byte; + pcal_nparams : png_byte; + free_me : png_uint_32; + unknown_chunks : png_unknown_chunkp; + unknown_chunks_num : png_size_t; + iccp_name : png_charp; + iccp_profile : png_charp; + iccp_proflen : png_uint_32; + iccp_compression : png_byte; + splt_palettes : png_sPLT_tp; + splt_palettes_num : png_uint_32; + scal_unit : png_byte; + scal_pixel_width : double; + scal_pixel_height : double; + scal_s_width : png_charp; + scal_s_height : png_charp; + row_pointers : png_bytepp; + int_gamma : png_fixed_point; + int_x_white : png_fixed_point; + int_y_white : png_fixed_point; + int_x_red : png_fixed_point; + int_y_red : png_fixed_point; + int_x_green : png_fixed_point; + int_y_green : png_fixed_point; + int_x_blue : png_fixed_point; + int_y_blue : png_fixed_point; + end; + ppng_info = ^png_info; + pppng_info = ^ppng_info; + png_info_struct = png_info; + png_infop = Ppng_info; + png_infopp = PPpng_info; + + (* This is used for the transformation routines, as some of them + * change these values for the row. It also should enable using + * the routines for other purposes. + *) + png_row_info = record + width : png_uint_32; (* width of row *) + rowbytes : png_uint_32; (* number of bytes in row *) + color_type : png_byte; (* color type of row *) + bit_depth : png_byte; (* bit depth of row *) + channels : png_byte; (* number of channels (1, 2, 3, or 4) *) + pixel_depth : png_byte; (* bits per pixel (depth * channels) *) + end; + ppng_row_info = ^png_row_info; + pppng_row_info = ^ppng_row_info; + png_row_info_struct = png_row_info; + png_row_infop = Ppng_row_info; + png_row_infopp = PPpng_row_info; + png_structp = ^png_struct; + + + (* These are the function types for the I/O functions and for the functions + * that allow the user to override the default I/O functions with his or her + * own. The png_error_ptr type should match that of user-supplied warning + * and error functions, while the png_rw_ptr type should match that of the + * user read/write data functions. + *) + png_error_ptr = procedure(Arg1 : png_structp; Arg2 : png_const_charp);cdecl; + png_rw_ptr = procedure(Arg1 : png_structp; Arg2 : png_bytep; Arg3 : png_size_t);cdecl; + png_flush_ptr = procedure (Arg1 : png_structp) ;cdecl; + png_read_status_ptr = procedure (Arg1 : png_structp; Arg2 : png_uint_32; Arg3: integer);cdecl; + png_write_status_ptr = procedure (Arg1 : png_structp; Arg2:png_uint_32;Arg3 : integer) ;cdecl; + png_progressive_info_ptr = procedure (Arg1 : png_structp; Arg2 : png_infop) ;cdecl; + png_progressive_end_ptr = procedure (Arg1 : png_structp; Arg2 : png_infop) ;cdecl; + png_progressive_row_ptr = procedure (Arg1 : png_structp; Arg2 : png_bytep; Arg3 : png_uint_32; Arg4 : integer) ;cdecl; + png_user_transform_ptr = procedure (Arg1 : png_structp; Arg2 : png_row_infop; Arg3 : png_bytep) ;cdecl; + png_user_chunk_ptr = function (Arg1 : png_structp; Arg2 : png_unknown_chunkp): integer;cdecl; + png_unknown_chunk_ptr = procedure (Arg1 : png_structp);cdecl; + png_malloc_ptr = function (Arg1 : png_structp; Arg2 : png_size_t) : png_voidp ;cdecl; + png_free_ptr = procedure (Arg1 : png_structp; Arg2 : png_voidp) ; cdecl; + + png_struct_def = record + {$ifdef UsePngStruct} + jmpbuf : jmp_buf; (* used in png_error *) + error_fn : png_error_ptr; (* function for printing errors and aborting *) + warning_fn : png_error_ptr; (* function for printing warnings *) + error_ptr : png_voidp; (* user supplied struct for error functions *) + write_data_fn : png_rw_ptr; (* function for writing output data *) + read_data_fn : png_rw_ptr; (* function for reading input data *) + io_ptr : png_voidp; (* ptr to application struct for I/O functions *) + + read_user_transform_fn : png_user_transform_ptr; (* user read transform *) + + write_user_transform_fn : png_user_transform_ptr; (* user write transform *) + + (* These were added in libpng-1.0.2 *) + user_transform_ptr : png_voidp; (* user supplied struct for user transform *) + user_transform_depth : png_byte; (* bit depth of user transformed pixels *) + user_transform_channels : png_byte; (* channels in user transformed pixels *) + + mode : png_uint_32; (* tells us where we are in the PNG file *) + flags : png_uint_32; (* flags indicating various things to libpng *) + transformations : png_uint_32; (* which transformations to perform *) + + zstream : z_stream; (* pointer to decompression structure (below) *) + zbuf : png_bytep; (* buffer for zlib *) + zbuf_size : png_size_t; (* size of zbuf *) + zlib_level : integer; (* holds zlib compression level *) + zlib_method : integer; (* holds zlib compression method *) + zlib_window_bits : integer; (* holds zlib compression window bits *) + zlib_mem_level : integer; (* holds zlib compression memory level *) + zlib_strategy : integer; (* holds zlib compression strategy *) + + width : png_uint_32; (* width of image in pixels *) + height : png_uint_32; (* height of image in pixels *) + num_rows : png_uint_32; (* number of rows in current pass *) + usr_width : png_uint_32; (* width of row at start of write *) + rowbytes : png_uint_32; (* size of row in bytes *) + irowbytes : png_uint_32; (* size of current interlaced row in bytes *) + iwidth : png_uint_32; (* width of current interlaced row in pixels *) + row_number : png_uint_32; (* current row in interlace pass *) + prev_row : png_bytep; (* buffer to save previous (unfiltered) row *) + row_buf : png_bytep; (* buffer to save current (unfiltered) row *) + sub_row : png_bytep; (* buffer to save "sub" row when filtering *) + up_row : png_bytep; (* buffer to save "up" row when filtering *) + avg_row : png_bytep; (* buffer to save "avg" row when filtering *) + paeth_row : png_bytep; (* buffer to save "Paeth" row when filtering *) + row_info : png_row_info; (* used for transformation routines *) + + idat_size : png_uint_32; (* current IDAT size for read *) + crc : png_uint_32; (* current chunk CRC value *) + palette : png_colorp; (* palette from the input file *) + num_palette : png_uint_16; (* number of color entries in palette *) + num_trans : png_uint_16; (* number of transparency values *) + chunk_name : array[0..4] of png_byte; (* null-terminated name of current chunk *) + compression : png_byte; (* file compression type (always 0) *) + filter : png_byte; (* file filter type (always 0) *) + interlaced : png_byte; (* PNG_INTERLACE_NONE, PNG_INTERLACE_ADAM7 *) + pass : png_byte; (* current interlace pass (0 - 6) *) + do_filter : png_byte; (* row filter flags (see PNG_FILTER_ below ) *) + color_type : png_byte; (* color type of file *) + bit_depth : png_byte; (* bit depth of file *) + usr_bit_depth : png_byte; (* bit depth of users row *) + pixel_depth : png_byte; (* number of bits per pixel *) + channels : png_byte; (* number of channels in file *) + usr_channels : png_byte; (* channels at start of write *) + sig_bytes : png_byte; (* magic bytes read/written from start of file *) + + filler : png_uint_16; + + background_gamma_type : png_byte; + background_gamma : single; + background : png_color_16; + background_1 : png_color_16; + output_flush_fn : png_flush_ptr; + flush_dist : png_uint_32; + flush_rows : png_uint_32; + gamma_shift : integer; + gamma : single; + screen_gamma : single; + gamma_table : png_bytep; + gamma_from_1 : png_bytep; + gamma_to_1 : png_bytep; + gamma_16_table : png_uint_16pp; + gamma_16_from_1 : png_uint_16pp; + gamma_16_to_1 : png_uint_16pp; + sig_bit : png_color_8; + shift : png_color_8; + trans : png_bytep; + trans_values : png_color_16; + read_row_fn : png_read_status_ptr; + write_row_fn : png_write_status_ptr; + info_fn : png_progressive_info_ptr; + row_fn : png_progressive_row_ptr; + end_fn : png_progressive_end_ptr; + save_buffer_ptr : png_bytep; + save_buffer : png_bytep; + current_buffer_ptr : png_bytep; + current_buffer : png_bytep; + push_length : png_uint_32; + skip_length : png_uint_32; + save_buffer_size : png_size_t; + save_buffer_max : png_size_t; + buffer_size : png_size_t; + current_buffer_size : png_size_t; + process_mode : integer; + cur_palette : integer; + current_text_size : png_size_t; + current_text_left : png_size_t; + current_text : png_charp; + current_text_ptr : png_charp; + palette_lookup : png_bytep; + dither_index : png_bytep; + hist : png_uint_16p; + heuristic_method : png_byte; + num_prev_filters : png_byte; + prev_filters : png_bytep; + filter_weights : png_uint_16p; + inv_filter_weights : png_uint_16p; + filter_costs : png_uint_16p; + inv_filter_costs : png_uint_16p; + time_buffer : png_charp; + free_me : png_uint_32; + user_chunk_ptr : png_voidp; + read_user_chunk_fn : png_user_chunk_ptr; + num_chunk_list : integer; + chunk_list : png_bytep; + rgb_to_gray_status : png_byte; + rgb_to_gray_red_coeff : png_uint_16; + rgb_to_gray_green_coeff : png_uint_16; + rgb_to_gray_blue_coeff : png_uint_16; + empty_plte_permitted : png_byte; + int_gamma : png_fixed_point; + {$endif UsePngStruct} + end; + ppng_struct_def = ^png_struct_def; + pppng_struct_def = ^ppng_struct_def; + png_struct = png_struct_def; + ppng_struct = ^png_struct; + pppng_struct = ^ppng_struct; + + version_1_0_8 = png_structp; + png_structpp = PPpng_struct; + +function png_access_version_number:png_uint_32;cdecl; external LibPng; + +procedure png_set_sig_bytes(png_ptr:png_structp; num_bytes:integer);cdecl; external LibPng; +function png_sig_cmp(sig:png_bytep; start:png_size_t; num_to_check:png_size_t):integer;cdecl; external LibPng; +function png_check_sig(sig:png_bytep; num:integer):integer;cdecl; external LibPng; + +(* Allocate and initialize png_ptr struct for reading, and any other memory. *) +function png_create_read_struct(user_png_ver:png_const_charp; error_ptr:png_voidp; error_fn:png_error_ptr; warn_fn:png_error_ptr):png_structp;cdecl; external LibPng; + +(* Allocate and initialize png_ptr struct for writing, and any other memory *) +function png_create_write_struct(user_png_ver:png_const_charp; error_ptr:png_voidp; error_fn:png_error_ptr; warn_fn:png_error_ptr):png_structp;cdecl; external LibPng; + +function png_get_compression_buffer_size(png_ptr:png_structp):png_uint_32;cdecl; external LibPng; +procedure png_set_compression_buffer_size(png_ptr:png_structp; size:png_uint_32);cdecl; external LibPng; +function png_reset_zstream(png_ptr:png_structp):integer;cdecl; external LibPng; + +procedure png_write_chunk(png_ptr:png_structp; chunk_name:png_bytep; data:png_bytep; length:png_size_t);cdecl; external LibPng; +procedure png_write_chunk_start(png_ptr:png_structp; chunk_name:png_bytep; length:png_uint_32);cdecl; external LibPng; +procedure png_write_chunk_data(png_ptr:png_structp; data:png_bytep; length:png_size_t);cdecl; external LibPng; +procedure png_write_chunk_end(png_ptr:png_structp);cdecl; external LibPng; + +(* Allocate and initialize the info structure *) +function png_create_info_struct(png_ptr:png_structp):png_infop;cdecl; external LibPng; + +(* Initialize the info structure (old interface - DEPRECATED) *) +procedure png_info_init(info_ptr:png_infop);cdecl; external LibPng; + +(* Writes all the PNG information before the image. *) +procedure png_write_info_before_PLTE(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng; +procedure png_write_info(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng; + +(* read the information before the actual image data. *) +procedure png_read_info(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng; + +function png_convert_to_rfc1123(png_ptr:png_structp; ptime:png_timep):png_charp;cdecl; external LibPng; +procedure png_convert_from_struct_tm(ptime:png_timep; ttime:Pointer);cdecl; external LibPng; +{$IFDEF UNIX} +procedure png_convert_from_time_t(ptime:png_timep; ttime:time_t);cdecl; external LibPng; +{$ENDIF} +procedure png_set_expand(png_ptr:png_structp);cdecl; external LibPng; +procedure png_set_gray_1_2_4_to_8(png_ptr:png_structp);cdecl; external LibPng; +procedure png_set_palette_to_rgb(png_ptr:png_structp);cdecl; external LibPng; +procedure png_set_tRNS_to_alpha(png_ptr:png_structp);cdecl; external LibPng; +procedure png_set_bgr(png_ptr:png_structp);cdecl; external LibPng; +procedure png_set_gray_to_rgb(png_ptr:png_structp);cdecl; external LibPng; +procedure png_set_rgb_to_gray(png_ptr:png_structp; error_action:integer; red:double; green:double);cdecl; external LibPng; +procedure png_set_rgb_to_gray_fixed(png_ptr:png_structp; error_action:integer; red:png_fixed_point; green:png_fixed_point);cdecl; external LibPng; +function png_get_rgb_to_gray_status(png_ptr:png_structp):png_byte;cdecl; external LibPng; +procedure png_build_grayscale_palette(bit_depth:integer; palette:png_colorp);cdecl; external LibPng; +procedure png_set_strip_alpha(png_ptr:png_structp);cdecl; external LibPng; +procedure png_set_swap_alpha(png_ptr:png_structp);cdecl; external LibPng; +procedure png_set_invert_alpha(png_ptr:png_structp);cdecl; external LibPng; +procedure png_set_filler(png_ptr:png_structp; filler:png_uint_32; flags:integer);cdecl; external LibPng; +procedure png_set_swap(png_ptr:png_structp);cdecl; external LibPng; +procedure png_set_packing(png_ptr:png_structp);cdecl; external LibPng; +procedure png_set_packswap(png_ptr:png_structp);cdecl; external LibPng; +procedure png_set_shift(png_ptr:png_structp; true_bits:png_color_8p);cdecl; external LibPng; +function png_set_interlace_handling(png_ptr:png_structp):integer;cdecl; external LibPng; +procedure png_set_invert_mono(png_ptr:png_structp);cdecl; external LibPng; +procedure png_set_background(png_ptr:png_structp; background_color:png_color_16p; background_gamma_code:integer; need_expand:integer; background_gamma:double);cdecl; external LibPng; +procedure png_set_strip_16(png_ptr:png_structp);cdecl; external LibPng; +procedure png_set_dither(png_ptr:png_structp; palette:png_colorp; num_palette:integer; maximum_colors:integer; histogram:png_uint_16p; + full_dither:integer);cdecl; external LibPng; +procedure png_set_gamma(png_ptr:png_structp; screen_gamma:double; default_file_gamma:double);cdecl; external LibPng; +procedure png_permit_empty_plte(png_ptr:png_structp; empty_plte_permitted:integer);cdecl; external LibPng; +procedure png_set_flush(png_ptr:png_structp; nrows:integer);cdecl; external LibPng; +procedure png_write_flush(png_ptr:png_structp);cdecl; external LibPng; +procedure png_start_read_image(png_ptr:png_structp);cdecl; external LibPng; +procedure png_read_update_info(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng; + +(* read one or more rows of image data. *) +procedure png_read_rows(png_ptr:png_structp; row:png_bytepp; display_row:png_bytepp; num_rows:png_uint_32);cdecl; external LibPng; + +(* read a row of data. *) +procedure png_read_row(png_ptr:png_structp; row:png_bytep; display_row:png_bytep);cdecl; external LibPng; + +(* read the whole image into memory at once. *) +procedure png_read_image(png_ptr:png_structp; image:png_bytepp);cdecl; external LibPng; + +(* write a row of image data *) +procedure png_write_row(png_ptr:png_structp; row:png_bytep);cdecl; external LibPng; + +(* write a few rows of image data *) +procedure png_write_rows(png_ptr:png_structp; row:png_bytepp; num_rows:png_uint_32);cdecl; external LibPng; + +(* write the image data *) +procedure png_write_image(png_ptr:png_structp; image:png_bytepp);cdecl; external LibPng; + +(* writes the end of the PNG file. *) +procedure png_write_end(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng; + +(* read the end of the PNG file. *) +procedure png_read_end(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng; + +(* free any memory associated with the png_info_struct *) +procedure png_destroy_info_struct(png_ptr:png_structp; info_ptr_ptr:png_infopp);cdecl; external LibPng; + +(* free any memory associated with the png_struct and the png_info_structs *) +procedure png_destroy_read_struct(png_ptr_ptr:png_structpp; info_ptr_ptr:png_infopp; end_info_ptr_ptr:png_infopp);cdecl; external LibPng; + +(* free all memory used by the read (old method - NOT DLL EXPORTED) *) +procedure png_read_destroy(png_ptr:png_structp; info_ptr:png_infop; end_info_ptr:png_infop);cdecl; external LibPng; + +(* free any memory associated with the png_struct and the png_info_structs *) +procedure png_destroy_write_struct(png_ptr_ptr:png_structpp; info_ptr_ptr:png_infopp);cdecl; external LibPng; + +procedure png_write_destroy_info(info_ptr:png_infop);cdecl; external LibPng; +procedure png_write_destroy(png_ptr:png_structp);cdecl; external LibPng; + +procedure png_set_crc_action(png_ptr:png_structp; crit_action:integer; ancil_action:integer);cdecl; external LibPng; + +procedure png_set_filter(png_ptr:png_structp; method:integer; filters:integer);cdecl; external LibPng; +procedure png_set_filter_heuristics(png_ptr:png_structp; heuristic_method:integer; num_weights:integer; filter_weights:png_doublep; filter_costs:png_doublep);cdecl; external LibPng; + +procedure png_set_compression_level(png_ptr:png_structp; level:integer);cdecl; external LibPng; +procedure png_set_compression_mem_level(png_ptr:png_structp; mem_level:integer);cdecl; external LibPng; +procedure png_set_compression_strategy(png_ptr:png_structp; strategy:integer);cdecl; external LibPng; +procedure png_set_compression_window_bits(png_ptr:png_structp; window_bits:integer);cdecl; external LibPng; +procedure png_set_compression_method(png_ptr:png_structp; method:integer);cdecl; external LibPng; + +procedure png_init_io(png_ptr:png_structp; fp:png_FILE_p);cdecl; external LibPng; + +(* Replace the (error and abort), and warning functions with user + * supplied functions. If no messages are to be printed you must still + * write and use replacement functions. The replacement error_fn should + * still do a longjmp to the last setjmp location if you are using this + * method of error handling. If error_fn or warning_fn is NULL, the + * default function will be used. + *) +procedure png_set_error_fn(png_ptr:png_structp; error_ptr:png_voidp; error_fn:png_error_ptr; warning_fn:png_error_ptr);cdecl; external LibPng; + +(* Return the user pointer associated with the error functions *) +function png_get_error_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng; + +(* Replace the default data output functions with a user supplied one(s). + * If buffered output is not used, then output_flush_fn can be set to NULL. + * If PNG_WRITE_FLUSH_SUPPORTED is not defined at libpng compile time + * output_flush_fn will be ignored (and thus can be NULL). + *) +procedure png_set_write_fn(png_ptr:png_structp; io_ptr:png_voidp; write_data_fn:png_rw_ptr; output_flush_fn:png_flush_ptr);cdecl; external LibPng; + +(* Replace the default data input function with a user supplied one. *) +procedure png_set_read_fn(png_ptr:png_structp; io_ptr:png_voidp; read_data_fn:png_rw_ptr);cdecl; external LibPng; + +(* Return the user pointer associated with the I/O functions *) +function png_get_io_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng; + +procedure png_set_read_status_fn(png_ptr:png_structp; read_row_fn:png_read_status_ptr);cdecl; external LibPng; +procedure png_set_write_status_fn(png_ptr:png_structp; write_row_fn:png_write_status_ptr);cdecl; external LibPng; +procedure png_set_read_user_transform_fn(png_ptr:png_structp; read_user_transform_fn:png_user_transform_ptr);cdecl; external LibPng; +procedure png_set_write_user_transform_fn(png_ptr:png_structp; write_user_transform_fn:png_user_transform_ptr);cdecl; external LibPng; +procedure png_set_user_transform_info(png_ptr:png_structp; user_transform_ptr:png_voidp; user_transform_depth:integer; user_transform_channels:integer);cdecl; external LibPng; +function png_get_user_transform_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng; +procedure png_set_read_user_chunk_fn(png_ptr:png_structp; user_chunk_ptr:png_voidp; read_user_chunk_fn:png_user_chunk_ptr);cdecl; external LibPng; +function png_get_user_chunk_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng; +procedure png_set_progressive_read_fn(png_ptr:png_structp; progressive_ptr:png_voidp; info_fn:png_progressive_info_ptr; row_fn:png_progressive_row_ptr; end_fn:png_progressive_end_ptr);cdecl; external LibPng; +function png_get_progressive_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng; +procedure png_process_data(png_ptr:png_structp; info_ptr:png_infop; buffer:png_bytep; buffer_size:png_size_t);cdecl; external LibPng; +procedure png_progressive_combine_row(png_ptr:png_structp; old_row:png_bytep; new_row:png_bytep);cdecl; external LibPng; +function png_malloc(png_ptr:png_structp; size:png_uint_32):png_voidp;cdecl; external LibPng; +procedure png_free(png_ptr:png_structp; ptr:png_voidp);cdecl; external LibPng; +procedure png_free_data(png_ptr:png_structp; info_ptr:png_infop; free_me:png_uint_32; num:integer);cdecl; external LibPng; +procedure png_data_freer(png_ptr:png_structp; info_ptr:png_infop; freer:integer; mask:png_uint_32);cdecl; external LibPng; +function png_memcpy_check(png_ptr:png_structp; s1:png_voidp; s2:png_voidp; size:png_uint_32):png_voidp;cdecl; external LibPng; +function png_memset_check(png_ptr:png_structp; s1:png_voidp; value:integer; size:png_uint_32):png_voidp;cdecl; external LibPng; +procedure png_error(png_ptr:png_structp; error:png_const_charp);cdecl; external LibPng; +procedure png_chunk_error(png_ptr:png_structp; error:png_const_charp);cdecl; external LibPng; +procedure png_warning(png_ptr:png_structp; message:png_const_charp);cdecl; external LibPng; +procedure png_chunk_warning(png_ptr:png_structp; message:png_const_charp);cdecl; external LibPng; +function png_get_valid(png_ptr:png_structp; info_ptr:png_infop; flag:png_uint_32):png_uint_32;cdecl; external LibPng; +function png_get_rowbytes(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng; +function png_get_rows(png_ptr:png_structp; info_ptr:png_infop):png_bytepp;cdecl; external LibPng; +procedure png_set_rows(png_ptr:png_structp; info_ptr:png_infop; row_pointers:png_bytepp);cdecl; external LibPng; +function png_get_channels(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng; +function png_get_image_width(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng; +function png_get_image_height(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng; +function png_get_bit_depth(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng; +function png_get_color_type(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng; +function png_get_filter_type(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng; +function png_get_interlace_type(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng; +function png_get_compression_type(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng; +function png_get_pixels_per_meter(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng; +function png_get_x_pixels_per_meter(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng; +function png_get_y_pixels_per_meter(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng; +function png_get_pixel_aspect_ratio(png_ptr:png_structp; info_ptr:png_infop):single;cdecl; external LibPng; +function png_get_x_offset_pixels(png_ptr:png_structp; info_ptr:png_infop):png_int_32;cdecl; external LibPng; +function png_get_y_offset_pixels(png_ptr:png_structp; info_ptr:png_infop):png_int_32;cdecl; external LibPng; +function png_get_x_offset_microns(png_ptr:png_structp; info_ptr:png_infop):png_int_32;cdecl; external LibPng; +function png_get_y_offset_microns(png_ptr:png_structp; info_ptr:png_infop):png_int_32;cdecl; external LibPng; +function png_get_signature(png_ptr:png_structp; info_ptr:png_infop):png_bytep;cdecl; external LibPng; + +function png_get_bKGD(png_ptr:png_structp; info_ptr:png_infop; background:Ppng_color_16p):png_uint_32;cdecl; external LibPng; +procedure png_set_bKGD(png_ptr:png_structp; info_ptr:png_infop; background:png_color_16p);cdecl; external LibPng; +function png_get_cHRM(png_ptr:png_structp; info_ptr:png_infop; white_x:Pdouble; white_y:Pdouble; red_x:Pdouble; + red_y:Pdouble; green_x:Pdouble; green_y:Pdouble; blue_x:Pdouble; blue_y:Pdouble):png_uint_32;cdecl; external LibPng; +function png_get_cHRM_fixed(png_ptr:png_structp; info_ptr:png_infop; int_white_x:Ppng_fixed_point; int_white_y:Ppng_fixed_point; int_red_x:Ppng_fixed_point; + int_red_y:Ppng_fixed_point; int_green_x:Ppng_fixed_point; int_green_y:Ppng_fixed_point; int_blue_x:Ppng_fixed_point; int_blue_y:Ppng_fixed_point):png_uint_32;cdecl; external LibPng; +procedure png_set_cHRM(png_ptr:png_structp; info_ptr:png_infop; white_x:double; white_y:double; red_x:double; + red_y:double; green_x:double; green_y:double; blue_x:double; blue_y:double);cdecl; external LibPng; +procedure png_set_cHRM_fixed(png_ptr:png_structp; info_ptr:png_infop; int_white_x:png_fixed_point; int_white_y:png_fixed_point; int_red_x:png_fixed_point; + int_red_y:png_fixed_point; int_green_x:png_fixed_point; int_green_y:png_fixed_point; int_blue_x:png_fixed_point; int_blue_y:png_fixed_point);cdecl; external LibPng; +function png_get_gAMA(png_ptr:png_structp; info_ptr:png_infop; file_gamma:Pdouble):png_uint_32;cdecl; external LibPng; +function png_get_gAMA_fixed(png_ptr:png_structp; info_ptr:png_infop; int_file_gamma:Ppng_fixed_point):png_uint_32;cdecl; external LibPng; +procedure png_set_gAMA(png_ptr:png_structp; info_ptr:png_infop; file_gamma:double);cdecl; external LibPng; +procedure png_set_gAMA_fixed(png_ptr:png_structp; info_ptr:png_infop; int_file_gamma:png_fixed_point);cdecl; external LibPng; +function png_get_hIST(png_ptr:png_structp; info_ptr:png_infop; hist:Ppng_uint_16p):png_uint_32;cdecl; external LibPng; +procedure png_set_hIST(png_ptr:png_structp; info_ptr:png_infop; hist:png_uint_16p);cdecl; external LibPng; +function png_get_IHDR(png_ptr:png_structp; info_ptr:png_infop; width:Ppng_uint_32; height:Ppng_uint_32; bit_depth:Pinteger; + color_type:Pinteger; interlace_type:Pinteger; compression_type:Pinteger; filter_type:Pinteger):png_uint_32;cdecl; external LibPng; +procedure png_set_IHDR(png_ptr:png_structp; info_ptr:png_infop; width:png_uint_32; height:png_uint_32; bit_depth:integer; + color_type:integer; interlace_type:integer; compression_type:integer; filter_type:integer);cdecl; external LibPng; +function png_get_oFFs(png_ptr:png_structp; info_ptr:png_infop; offset_x:Ppng_int_32; offset_y:Ppng_int_32; unit_type:Pinteger):png_uint_32;cdecl; external LibPng; +procedure png_set_oFFs(png_ptr:png_structp; info_ptr:png_infop; offset_x:png_int_32; offset_y:png_int_32; unit_type:integer);cdecl; external LibPng; +function png_get_pCAL(png_ptr:png_structp; info_ptr:png_infop; purpose:Ppng_charp; X0:Ppng_int_32; X1:Ppng_int_32; + atype:Pinteger; nparams:Pinteger; units:Ppng_charp; params:Ppng_charpp):png_uint_32;cdecl; external LibPng; +procedure png_set_pCAL(png_ptr:png_structp; info_ptr:png_infop; purpose:png_charp; X0:png_int_32; X1:png_int_32; + atype:integer; nparams:integer; units:png_charp; params:png_charpp);cdecl; external LibPng; +function png_get_pHYs(png_ptr:png_structp; info_ptr:png_infop; res_x:Ppng_uint_32; res_y:Ppng_uint_32; unit_type:Pinteger):png_uint_32;cdecl; external LibPng; +procedure png_set_pHYs(png_ptr:png_structp; info_ptr:png_infop; res_x:png_uint_32; res_y:png_uint_32; unit_type:integer);cdecl; external LibPng; +function png_get_PLTE(png_ptr:png_structp; info_ptr:png_infop; palette:Ppng_colorp; num_palette:Pinteger):png_uint_32;cdecl; external LibPng; +procedure png_set_PLTE(png_ptr:png_structp; info_ptr:png_infop; palette:png_colorp; num_palette:integer);cdecl; external LibPng; +function png_get_sBIT(png_ptr:png_structp; info_ptr:png_infop; sig_bit:Ppng_color_8p):png_uint_32;cdecl; external LibPng; +procedure png_set_sBIT(png_ptr:png_structp; info_ptr:png_infop; sig_bit:png_color_8p);cdecl; external LibPng; +function png_get_sRGB(png_ptr:png_structp; info_ptr:png_infop; intent:Pinteger):png_uint_32;cdecl; external LibPng; +procedure png_set_sRGB(png_ptr:png_structp; info_ptr:png_infop; intent:integer);cdecl; external LibPng; +procedure png_set_sRGB_gAMA_and_cHRM(png_ptr:png_structp; info_ptr:png_infop; intent:integer);cdecl; external LibPng; +function png_get_iCCP(png_ptr:png_structp; info_ptr:png_infop; name:png_charpp; compression_type:Pinteger; profile:png_charpp; + proflen:Ppng_uint_32):png_uint_32;cdecl; external LibPng; +procedure png_set_iCCP(png_ptr:png_structp; info_ptr:png_infop; name:png_charp; compression_type:integer; profile:png_charp; + proflen:png_uint_32);cdecl; external LibPng; +function png_get_sPLT(png_ptr:png_structp; info_ptr:png_infop; entries:png_sPLT_tpp):png_uint_32;cdecl; external LibPng; +procedure png_set_sPLT(png_ptr:png_structp; info_ptr:png_infop; entries:png_sPLT_tp; nentries:integer);cdecl; external LibPng; + +(* png_get_text also returns the number of text chunks in *num_text *) +function png_get_text(png_ptr:png_structp; info_ptr:png_infop; text_ptr:Ppng_textp; num_text:Pinteger):png_uint_32;cdecl; external LibPng; + +(* + * Note while png_set_text() will accept a structure whose text, + * language, and translated keywords are NULL pointers, the structure + * returned by png_get_text will always contain regular + * zero-terminated C strings. They might be empty strings but + * they will never be NULL pointers. + *) +procedure png_set_text(png_ptr:png_structp; info_ptr:png_infop; text_ptr:png_textp; num_text:integer);cdecl; external LibPng; + +function png_get_tIME(png_ptr:png_structp; info_ptr:png_infop; mod_time:Ppng_timep):png_uint_32;cdecl; external LibPng; +procedure png_set_tIME(png_ptr:png_structp; info_ptr:png_infop; mod_time:png_timep);cdecl; external LibPng; +function png_get_tRNS(png_ptr:png_structp; info_ptr:png_infop; trans:Ppng_bytep; num_trans:Pinteger; trans_values:Ppng_color_16p):png_uint_32;cdecl; external LibPng; +procedure png_set_tRNS(png_ptr:png_structp; info_ptr:png_infop; trans:png_bytep; num_trans:integer; trans_values:png_color_16p);cdecl; external LibPng; +function png_get_sCAL(png_ptr:png_structp; info_ptr:png_infop; aunit:Pinteger; width:Pdouble; height:Pdouble):png_uint_32;cdecl; external LibPng; +procedure png_set_sCAL(png_ptr:png_structp; info_ptr:png_infop; aunit:integer; width:double; height:double);cdecl; external LibPng; +procedure png_set_sCAL_s(png_ptr:png_structp; info_ptr:png_infop; aunit:integer; swidth:png_charp; sheight:png_charp);cdecl; external LibPng; + +procedure png_set_keep_unknown_chunks(png_ptr:png_structp; keep:integer; chunk_list:png_bytep; num_chunks:integer);cdecl; external LibPng; +procedure png_set_unknown_chunks(png_ptr:png_structp; info_ptr:png_infop; unknowns:png_unknown_chunkp; num_unknowns:integer);cdecl; external LibPng; +procedure png_set_unknown_chunk_location(png_ptr:png_structp; info_ptr:png_infop; chunk:integer; location:integer);cdecl; external LibPng; +function png_get_unknown_chunks(png_ptr:png_structp; info_ptr:png_infop; entries:png_unknown_chunkpp):png_uint_32;cdecl; external LibPng; + +procedure png_set_invalid(png_ptr:png_structp; info_ptr:png_infop; mask:integer);cdecl; external LibPng; + +procedure png_read_png(png_ptr:png_structp; info_ptr:png_infop; transforms:integer; params:png_voidp);cdecl; external LibPng; +procedure png_write_png(png_ptr:png_structp; info_ptr:png_infop; transforms:integer; params:png_voidp);cdecl; external LibPng; + +function png_get_header_ver(png_ptr:png_structp):png_charp;cdecl; external LibPng; +function png_get_header_version(png_ptr:png_structp):png_charp;cdecl; external LibPng; +function png_get_libpng_ver(png_ptr:png_structp):png_charp;cdecl; external LibPng; + +implementation + +end. -- cgit v1.2.3