|
|
@@ -223,7 +223,7 @@ const
|
|
|
Z_NULL = 0;
|
|
|
(* for initializing zalloc, zfree, opaque *)
|
|
|
|
|
|
-function zlibVersion:pchar; cdecl; external libz name 'zlibVersion';
|
|
|
+function zlibVersion:PAnsiChar; cdecl; external libz name 'zlibVersion';
|
|
|
(*
|
|
|
The application can compare zlibVersion and ZLIB_VERSION for consistency.
|
|
|
If the first character differs, the library code actually used is
|
|
|
@@ -231,7 +231,7 @@ function zlibVersion:pchar; cdecl; external libz name 'zlibVersion';
|
|
|
This check is automatically made by deflateInit and inflateInit.
|
|
|
*)
|
|
|
|
|
|
-function deflateInit_(var strm: z_stream; level: cint; version: pchar; stream_size: cint): cint; cdecl; external libz name 'deflateInit_';
|
|
|
+function deflateInit_(var strm: z_stream; level: cint; version: PAnsiChar; stream_size: cint): cint; cdecl; external libz name 'deflateInit_';
|
|
|
function deflateInit(var strm: z_stream; level: cint): cint;
|
|
|
(*
|
|
|
Initializes the internal stream state for compression. The fields
|
|
|
@@ -351,7 +351,7 @@ function deflateEnd(var strm: z_stream): cint; cdecl; external libz name 'deflat
|
|
|
deallocated).
|
|
|
*)
|
|
|
|
|
|
-function inflateInit_(var strm: z_stream; version: pchar; stream_size: cint): cint; cdecl; external libz name 'inflateInit_';
|
|
|
+function inflateInit_(var strm: z_stream; version: PAnsiChar; stream_size: cint): cint; cdecl; external libz name 'inflateInit_';
|
|
|
function inflateInit(var strm: z_stream): cint;
|
|
|
(*
|
|
|
Initializes the internal stream state for decompression. The fields
|
|
|
@@ -480,7 +480,7 @@ function inflateEnd(var strm: z_stream): cint; cdecl; external libz name 'inflat
|
|
|
static string (which must not be deallocated).
|
|
|
*)
|
|
|
|
|
|
-function deflateInit2_(var strm: z_stream; level, method, windowBits, memLevel, strategy: cint; version: pchar; stream_size: cint): cint; cdecl; external libz name 'deflateInit2_';
|
|
|
+function deflateInit2_(var strm: z_stream; level, method, windowBits, memLevel, strategy: cint; version: PAnsiChar; stream_size: cint): cint; cdecl; external libz name 'deflateInit2_';
|
|
|
function deflateInit2(var strm: z_stream; level, method, windowBits, memLevel, strategy: cint): longint;
|
|
|
(*
|
|
|
This is another version of deflateInit with more compression options. The
|
|
|
@@ -676,7 +676,7 @@ function deflateSetHeader(var strm: z_stream; var head: gz_header): cint; cdecl;
|
|
|
stream state was inconsistent.
|
|
|
*)
|
|
|
|
|
|
-function inflateInit2_(var strm: z_stream; windowBits: cint; version:pchar; stream_size: cint): cint; cdecl; external libz name 'inflateInit2_';
|
|
|
+function inflateInit2_(var strm: z_stream; windowBits: cint; version:PAnsiChar; stream_size: cint): cint; cdecl; external libz name 'inflateInit2_';
|
|
|
function inflateInit2(var strm: z_stream; windowBits: cint): cint;
|
|
|
(*
|
|
|
This is another version of inflateInit with an extra parameter. The
|
|
|
@@ -831,7 +831,7 @@ function inflateGetHeader(var strm: z_stream; var head: gz_header): cint; cdecl;
|
|
|
stream state was inconsistent.
|
|
|
*)
|
|
|
|
|
|
-function inflateBackInit_(var strm: z_stream; windowBits: cint; window: pointer; version: pchar; stream_size: cint): cint; cdecl; external libz name 'inflateBackInit_';
|
|
|
+function inflateBackInit_(var strm: z_stream; windowBits: cint; window: pointer; version: PAnsiChar; stream_size: cint): cint; cdecl; external libz name 'inflateBackInit_';
|
|
|
function inflateBackInit(var strm: z_stream; windowBits: cint; window: pointer): cint;
|
|
|
(*
|
|
|
Initialize the internal stream state for decompression using inflateBack()
|
|
|
@@ -855,8 +855,8 @@ function inflateBackInit(var strm: z_stream; windowBits: cint; window: pointer):
|
|
|
type
|
|
|
in_func = function(in_desc: pointer; var c: pcuchar): cuint; cdecl;
|
|
|
out_func = function(out_desc: pointer; c: pcuchar; i: cuint): cint; cdecl;
|
|
|
-//typedef unsigned (*in_func) OF((void FAR *, unsigned char FAR * FAR *));
|
|
|
-//typedef int (*out_func) OF((void FAR *, unsigned char FAR *, unsigned));
|
|
|
+//typedef unsigned (*in_func) OF((void FAR *, unsigned AnsiChar FAR * FAR *));
|
|
|
+//typedef int (*out_func) OF((void FAR *, unsigned AnsiChar FAR *, unsigned));
|
|
|
|
|
|
function inflateBack(var strm: z_stream; inf: in_func; in_desc: pointer; outf: out_func; out_desc: pointer): cint; cdecl; external libz name 'inflateBack';
|
|
|
(*
|
|
|
@@ -990,7 +990,7 @@ function uncompress(dest: pbytef; destLen: puLongf; source: pbytef; sourceLen: u
|
|
|
type
|
|
|
gzFile = pointer;
|
|
|
|
|
|
-function gzopen(path: pchar; mode: pchar): gzFile; cdecl; external libz name 'gzopen';
|
|
|
+function gzopen(path: PAnsiChar; mode: PAnsiChar): gzFile; cdecl; external libz name 'gzopen';
|
|
|
(*
|
|
|
Opens a gzip (.gz) file for reading or writing. The mode parameter
|
|
|
is as in fopen ("rb" or "wb") but can also include a compression level
|
|
|
@@ -1008,7 +1008,7 @@ function gzopen(path: pchar; mode: pchar): gzFile; cdecl; external libz name 'gz
|
|
|
zlib error is Z_MEM_ERROR).
|
|
|
*)
|
|
|
|
|
|
-function gzdopen(fd: cint; mode:pchar):gzFile; cdecl; external libz name 'gzdopen';
|
|
|
+function gzdopen(fd: cint; mode:PAnsiChar):gzFile; cdecl; external libz name 'gzdopen';
|
|
|
(*
|
|
|
gzdopen() associates a gzFile with the file descriptor fd. File
|
|
|
descriptors are obtained from calls like open, dup, creat, pipe or
|
|
|
@@ -1074,13 +1074,13 @@ function gzgets(thefile:gzFile; buf:pbytef; len: cint):pbytef; cdecl; external l
|
|
|
gzgets returns buf, or Z_NULL in case of error.
|
|
|
*)
|
|
|
|
|
|
-function gzputc(thefile:gzFile; c:char):char; cdecl; external libz name 'gzputc';
|
|
|
+function gzputc(thefile:gzFile; c:AnsiChar):AnsiChar; cdecl; external libz name 'gzputc';
|
|
|
(*
|
|
|
- Writes c, converted to an unsigned char, into the compressed file.
|
|
|
+ Writes c, converted to an unsigned AnsiChar, into the compressed file.
|
|
|
gzputc returns the value that was written, or -1 in case of error.
|
|
|
*)
|
|
|
|
|
|
-function gzgetc(thefile:gzFile):char; cdecl; external libz name 'gzgetc';
|
|
|
+function gzgetc(thefile:gzFile):AnsiChar; cdecl; external libz name 'gzgetc';
|
|
|
(*
|
|
|
Reads one byte from the compressed file. gzgetc returns this byte
|
|
|
or -1 in case of end of file or error.
|
|
|
@@ -1208,7 +1208,7 @@ function crc32_combine(crc1, crc2: uLong; len2: z_off_t): uLong; cdecl; external
|
|
|
*)
|
|
|
|
|
|
|
|
|
-function zError(err: cint): pchar; cdecl; external libz name 'zError';
|
|
|
+function zError(err: cint): PAnsiChar; cdecl; external libz name 'zError';
|
|
|
function inflateSyncPoint(var z: z_stream): cint; cdecl; external libz name 'inflateSyncPoint';
|
|
|
function get_crc_table: pointer; cdecl; external libz name 'get_crc_table';
|
|
|
|
Michaël Van Canneyt