77     BlockWrite( PFile(png_get_io_ptr(png_ptr))^, p^, len);

    77     BlockWrite( PFile(png_get_io_ptr(png_ptr))^, p^, len);

    78 end;

    78 end;

    79 

    79 

    80 procedure PngFlushData(png_ptr: png_structp); cdecl;

    80 procedure PngFlushData(png_ptr: png_structp); cdecl;

    81 begin

    81 begin

    82 end;

    83 end;

    83 

    84 

    84 procedure png_init_pascal_io(png_ptr: png_structp; pf : PFile);

    85 procedure png_init_pascal_io(png_ptr: png_structp; pf : PFile);

    85 begin

    86 begin

    86     png_set_write_fn(png_ptr, pf, @PngWriteData, @PngFlushData);

    87     png_set_write_fn(png_ptr, pf, @PngWriteData, @PngFlushData);