aboutsummaryrefslogblamecommitdiffstats
path: root/us_maker_edition/src/lib/libpng/png.pas
blob: 0092dde3759c05d7f85258634212813e422216a0 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974













































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































                                                                                                                                                                                                                
(*
 * 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
  ctypes,
  {$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';
  {$IFDEF DARWIN}
    {$linklib libpng}
  {$ENDIF}
{$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 = culong;
   {$ENDIF}

   {$ifdef MSWINDOWS}
     {$if JB_LEN > 0}
     jmp_buf = array[0..JB_LEN-1] of cint;
     // 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 = clong;
   {$endif}

   z_stream = TZStream;

   png_uint_32 = cuint32;
   png_int_32 = cint32;
   png_uint_16 = cuint16;
   png_int_16 = cint16;
   png_byte = cuint8;
   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 = PCdouble;
   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;
   PPCdouble = ^PCdouble;
   png_doublepp = PPCdouble;
   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_<chunk> 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 cint; external LibPng name 'png_pass_start';
  png_pass_inc      : array[0..6] of cint; external LibPng name 'png_pass_inc';
  png_pass_ystart   : array[0..6] of cint; external LibPng name 'png_pass_ystart';
  png_pass_yinc     : array[0..6] of cint; external LibPng name 'png_pass_yinc';
  png_pass_mask     : array[0..6] of cint; external LibPng name 'png_pass_mask';
  png_pass_dsp_mask : array[0..6] of cint; 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 : cint;       (* 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 : cfloat;
       srgb_intent : png_byte;
       num_text : cint;
       max_text : cint;
       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 : cfloat;
       y_white : cfloat;
       x_red : cfloat;
       y_red : cfloat;
       x_green : cfloat;
       y_green : cfloat;
       x_blue : cfloat;
       y_blue : cfloat;
       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 : cdouble;
       scal_pixel_height : cdouble;
       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: cint); cdecl;
  png_write_status_ptr = procedure (Arg1 : png_structp; Arg2:png_uint_32;Arg3 : cint); 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 : cint); 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): cint; 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 : cint;        (* holds zlib compression level *)
        zlib_method : cint;       (* holds zlib compression method *)
        zlib_window_bits : cint;  (* holds zlib compression window bits *)
        zlib_mem_level : cint;    (* holds zlib compression memory level *)
        zlib_strategy : cint;     (* 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 : cfloat;
        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 : cint;
        gamma : cfloat;
        screen_gamma : cfloat;
        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 : cint;
        cur_palette : cint;
        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 : cint;
        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:cint); cdecl; external LibPng;
function png_sig_cmp(sig:png_bytep; start:png_size_t; num_to_check:png_size_t):cint; cdecl; external LibPng;
function png_check_sig(sig:png_bytep; num:cint):cint; 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):cint; 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:cint; red:cdouble; green:cdouble); cdecl; external LibPng;
procedure png_set_rgb_to_gray_fixed(png_ptr:png_structp; error_action:cint; 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:cint; 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:cint); 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):cint; 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:cint; need_expand:cint; background_gamma:cdouble); 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:cint; maximum_colors:cint; histogram:png_uint_16p;
            full_dither:cint); cdecl; external LibPng;
procedure png_set_gamma(png_ptr:png_structp; screen_gamma:cdouble; default_file_gamma:cdouble); cdecl; external LibPng;
procedure png_permit_empty_plte(png_ptr:png_structp; empty_plte_permitted:cint); cdecl; external LibPng;
procedure png_set_flush(png_ptr:png_structp; nrows:cint); 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:cint; ancil_action:cint); cdecl; external LibPng;

procedure png_set_filter(png_ptr:png_structp; method:cint; filters:cint); cdecl; external LibPng;
procedure png_set_filter_heuristics(png_ptr:png_structp; heuristic_method:cint; num_weights:cint; filter_weights:png_doublep; filter_costs:png_doublep); cdecl; external LibPng;

procedure png_set_compression_level(png_ptr:png_structp; level:cint); cdecl; external LibPng;
procedure png_set_compression_mem_level(png_ptr:png_structp; mem_level:cint); cdecl; external LibPng;
procedure png_set_compression_strategy(png_ptr:png_structp; strategy:cint); cdecl; external LibPng;
procedure png_set_compression_window_bits(png_ptr:png_structp; window_bits:cint); cdecl; external LibPng;
procedure png_set_compression_method(png_ptr:png_structp; method:cint); 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:cint; user_transform_channels:cint); 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:cint); cdecl; external LibPng;
procedure png_data_freer(png_ptr:png_structp; info_ptr:png_infop; freer:cint; 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:cint; 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):cfloat; 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:PCdouble; white_y:PCdouble; red_x:PCdouble;
           red_y:PCdouble; green_x:PCdouble; green_y:PCdouble; blue_x:PCdouble; blue_y:PCdouble):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:cdouble; white_y:cdouble; red_x:cdouble;
            red_y:cdouble; green_x:cdouble; green_y:cdouble; blue_x:cdouble; blue_y:cdouble); 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:PCdouble):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:cdouble); 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:PCint;
           color_type:PCint; interlace_type:PCint; compression_type:PCint; filter_type:PCint):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:cint;
            color_type:cint; interlace_type:cint; compression_type:cint; filter_type:cint); 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:PCint):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:cint); 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:PCint; nparams:PCint; 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:cint; nparams:cint; 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:PCint):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:cint); cdecl; external LibPng;
function png_get_PLTE(png_ptr:png_structp; info_ptr:png_infop; palette:Ppng_colorp; num_palette:PCint):png_uint_32; cdecl; external LibPng;
procedure png_set_PLTE(png_ptr:png_structp; info_ptr:png_infop; palette:png_colorp; num_palette:cint); 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:PCint):png_uint_32; cdecl; external LibPng;
procedure png_set_sRGB(png_ptr:png_structp; info_ptr:png_infop; intent:cint); cdecl; external LibPng;
procedure png_set_sRGB_gAMA_and_cHRM(png_ptr:png_structp; info_ptr:png_infop; intent:cint); cdecl; external LibPng;
function png_get_iCCP(png_ptr:png_structp; info_ptr:png_infop; name:png_charpp; compression_type:PCint; 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:cint; 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:cint); 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:PCint):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:cint); 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:PCint; 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:cint; trans_values:png_color_16p); cdecl; external LibPng;
function png_get_sCAL(png_ptr:png_structp; info_ptr:png_infop; aunit:PCint; width:PCdouble; height:PCdouble):png_uint_32; cdecl; external LibPng;
procedure png_set_sCAL(png_ptr:png_structp; info_ptr:png_infop; aunit:cint; width:cdouble; height:cdouble); cdecl; external LibPng;
procedure png_set_sCAL_s(png_ptr:png_structp; info_ptr:png_infop; aunit:cint; swidth:png_charp; sheight:png_charp); cdecl; external LibPng;

procedure png_set_keep_unknown_chunks(png_ptr:png_structp; keep:cint; chunk_list:png_bytep; num_chunks:cint); cdecl; external LibPng;
procedure png_set_unknown_chunks(png_ptr:png_structp; info_ptr:png_infop; unknowns:png_unknown_chunkp; num_unknowns:cint); cdecl; external LibPng;
procedure png_set_unknown_chunk_location(png_ptr:png_structp; info_ptr:png_infop; chunk:cint; location:cint); 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:cint); cdecl; external LibPng;

procedure png_read_png(png_ptr:png_structp; info_ptr:png_infop; transforms:cint; params:png_voidp); cdecl; external LibPng;
procedure png_write_png(png_ptr:png_structp; info_ptr:png_infop; transforms:cint; 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.