1{*****************************************************************************
    2*  ZLib.pas                                                                  *
    3*  copyright (c) 2000 base2 technologies                                     *
    4*  copyright (c) 1997 Borland International                                  *
    5*                                                                            *
    6*  revision history                                                          *
    7*    2000-06-13  optimized, fixed, rewrote, and enhanced the zlib.pas unit   *
    8*                  included on the delphi cd (zlib version 1.1.3)            *
    9*****************************************************************************}
   10
   11unit ZLib;
   12
   13{$IFDEF FPC}
   14{$MODE Delphi}
   15{$LINKLIB z}
   16{$ENDIF}
   17
   18interface
   19
   20uses
   21  Sysutils, Classes;
   22
   23const
   24  ZLIB_VERSION = '1.1.3';
   25
   26type
   27  TZAlloc = function (opaque: Pointer; items, size: Integer): Pointer;
   28  TZFree  = procedure (opaque, block: Pointer);
   29
   30  TZCompressionLevel = (zcNone, zcFastest, zcDefault, zcMax);
   31
   32  {** TZStreamRec ***********************************************************}
   33
   34  TZStreamRec = packed record
   35    next_in  : PChar;     // next input byte
   36    avail_in : Longint;   // number of bytes available at next_in
   37    total_in : Longint;   // total nb of input bytes read so far
   38
   39    next_out : PChar;     // next output byte should be put here