CbC/CbC_gcc: zlib/contrib/delphi/ZLib.pas annotate

annotate zlib/contrib/delphi/ZLib.pas @ 51:ae3a4bfb450b

add some files of version 4.4.3 that have been forgotten.

author	kent <kent@cr.ie.u-ryukyu.ac.jp>
date	Sun, 07 Feb 2010 18:27:48 +0900
parents
children	04ced10e8804

rev	line source
51 ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1 {*******************************************************}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	2 { }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	3 { Borland Delphi Supplemental Components }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	4 { ZLIB Data Compression Interface Unit }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	5 { }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	6 { Copyright (c) 1997,99 Borland Corporation }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	7 { }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	8 {*******************************************************}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	9
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	10 { Updated for zlib 1.2.x by Cosmin Truta <cosmint@cs.ubbcluj.ro> }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	11
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	12 unit ZLib;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	13
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	14 interface
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	15
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	16 uses SysUtils, Classes;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	17
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	18 type
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	19 TAlloc = function (AppData: Pointer; Items, Size: Integer): Pointer; cdecl;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	20 TFree = procedure (AppData, Block: Pointer); cdecl;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	21
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	22 // Internal structure. Ignore.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	23 TZStreamRec = packed record
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	24 next_in: PChar; // next input byte
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	25 avail_in: Integer; // number of bytes available at next_in
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	26 total_in: Longint; // total nb of input bytes read so far
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	27
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	28 next_out: PChar; // next output byte should be put here
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	29 avail_out: Integer; // remaining free space at next_out
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	30 total_out: Longint; // total nb of bytes output so far
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	31
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	32 msg: PChar; // last error message, NULL if no error
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	33 internal: Pointer; // not visible by applications
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	34
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	35 zalloc: TAlloc; // used to allocate the internal state
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	36 zfree: TFree; // used to free the internal state
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	37 AppData: Pointer; // private data object passed to zalloc and zfree
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	38
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	39 data_type: Integer; // best guess about the data type: ascii or binary
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	40 adler: Longint; // adler32 value of the uncompressed data
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	41 reserved: Longint; // reserved for future use
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	42 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	43
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	44 // Abstract ancestor class
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	45 TCustomZlibStream = class(TStream)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	46 private
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	47 FStrm: TStream;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	48 FStrmPos: Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	49 FOnProgress: TNotifyEvent;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	50 FZRec: TZStreamRec;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	51 FBuffer: array [Word] of Char;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	52 protected
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	53 procedure Progress(Sender: TObject); dynamic;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	54 property OnProgress: TNotifyEvent read FOnProgress write FOnProgress;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	55 constructor Create(Strm: TStream);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	56 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	57
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	58 { TCompressionStream compresses data on the fly as data is written to it, and
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	59 stores the compressed data to another stream.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	60
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	61 TCompressionStream is write-only and strictly sequential. Reading from the
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	62 stream will raise an exception. Using Seek to move the stream pointer
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	63 will raise an exception.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	64
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	65 Output data is cached internally, written to the output stream only when
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	66 the internal output buffer is full. All pending output data is flushed
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	67 when the stream is destroyed.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	68
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	69 The Position property returns the number of uncompressed bytes of
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	70 data that have been written to the stream so far.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	71
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	72 CompressionRate returns the on-the-fly percentage by which the original
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	73 data has been compressed: (1 - (CompressedBytes / UncompressedBytes)) * 100
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	74 If raw data size = 100 and compressed data size = 25, the CompressionRate
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	75 is 75%
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	76
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	77 The OnProgress event is called each time the output buffer is filled and
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	78 written to the output stream. This is useful for updating a progress
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	79 indicator when you are writing a large chunk of data to the compression
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	80 stream in a single call.}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	81
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	82
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	83 TCompressionLevel = (clNone, clFastest, clDefault, clMax);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	84
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	85 TCompressionStream = class(TCustomZlibStream)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	86 private
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	87 function GetCompressionRate: Single;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	88 public
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	89 constructor Create(CompressionLevel: TCompressionLevel; Dest: TStream);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	90 destructor Destroy; override;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	91 function Read(var Buffer; Count: Longint): Longint; override;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	92 function Write(const Buffer; Count: Longint): Longint; override;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	93 function Seek(Offset: Longint; Origin: Word): Longint; override;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	94 property CompressionRate: Single read GetCompressionRate;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	95 property OnProgress;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	96 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	97
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	98 { TDecompressionStream decompresses data on the fly as data is read from it.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	99
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	100 Compressed data comes from a separate source stream. TDecompressionStream
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	101 is read-only and unidirectional; you can seek forward in the stream, but not
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	102 backwards. The special case of setting the stream position to zero is
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	103 allowed. Seeking forward decompresses data until the requested position in
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	104 the uncompressed data has been reached. Seeking backwards, seeking relative
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	105 to the end of the stream, requesting the size of the stream, and writing to
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	106 the stream will raise an exception.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	107
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	108 The Position property returns the number of bytes of uncompressed data that
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	109 have been read from the stream so far.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	110
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	111 The OnProgress event is called each time the internal input buffer of
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	112 compressed data is exhausted and the next block is read from the input stream.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	113 This is useful for updating a progress indicator when you are reading a
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	114 large chunk of data from the decompression stream in a single call.}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	115
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	116 TDecompressionStream = class(TCustomZlibStream)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	117 public
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	118 constructor Create(Source: TStream);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	119 destructor Destroy; override;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	120 function Read(var Buffer; Count: Longint): Longint; override;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	121 function Write(const Buffer; Count: Longint): Longint; override;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	122 function Seek(Offset: Longint; Origin: Word): Longint; override;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	123 property OnProgress;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	124 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	125
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	126
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	127
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	128 { CompressBuf compresses data, buffer to buffer, in one call.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	129 In: InBuf = ptr to compressed data
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	130 InBytes = number of bytes in InBuf
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	131 Out: OutBuf = ptr to newly allocated buffer containing decompressed data
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	132 OutBytes = number of bytes in OutBuf }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	133 procedure CompressBuf(const InBuf: Pointer; InBytes: Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	134 out OutBuf: Pointer; out OutBytes: Integer);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	135
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	136
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	137 { DecompressBuf decompresses data, buffer to buffer, in one call.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	138 In: InBuf = ptr to compressed data
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	139 InBytes = number of bytes in InBuf
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	140 OutEstimate = zero, or est. size of the decompressed data
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	141 Out: OutBuf = ptr to newly allocated buffer containing decompressed data
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	142 OutBytes = number of bytes in OutBuf }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	143 procedure DecompressBuf(const InBuf: Pointer; InBytes: Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	144 OutEstimate: Integer; out OutBuf: Pointer; out OutBytes: Integer);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	145
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	146 { DecompressToUserBuf decompresses data, buffer to buffer, in one call.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	147 In: InBuf = ptr to compressed data
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	148 InBytes = number of bytes in InBuf
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	149 Out: OutBuf = ptr to user-allocated buffer to contain decompressed data
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	150 BufSize = number of bytes in OutBuf }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	151 procedure DecompressToUserBuf(const InBuf: Pointer; InBytes: Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	152 const OutBuf: Pointer; BufSize: Integer);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	153
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	154 const
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	155 zlib_version = '1.2.3';
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	156
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	157 type
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	158 EZlibError = class(Exception);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	159 ECompressionError = class(EZlibError);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	160 EDecompressionError = class(EZlibError);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	161
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	162 implementation
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	163
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	164 uses ZLibConst;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	165
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	166 const
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	167 Z_NO_FLUSH = 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	168 Z_PARTIAL_FLUSH = 1;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	169 Z_SYNC_FLUSH = 2;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	170 Z_FULL_FLUSH = 3;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	171 Z_FINISH = 4;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	172
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	173 Z_OK = 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	174 Z_STREAM_END = 1;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	175 Z_NEED_DICT = 2;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	176 Z_ERRNO = (-1);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	177 Z_STREAM_ERROR = (-2);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	178 Z_DATA_ERROR = (-3);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	179 Z_MEM_ERROR = (-4);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	180 Z_BUF_ERROR = (-5);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	181 Z_VERSION_ERROR = (-6);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	182
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	183 Z_NO_COMPRESSION = 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	184 Z_BEST_SPEED = 1;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	185 Z_BEST_COMPRESSION = 9;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	186 Z_DEFAULT_COMPRESSION = (-1);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	187
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	188 Z_FILTERED = 1;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	189 Z_HUFFMAN_ONLY = 2;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	190 Z_RLE = 3;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	191 Z_DEFAULT_STRATEGY = 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	192
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	193 Z_BINARY = 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	194 Z_ASCII = 1;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	195 Z_UNKNOWN = 2;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	196
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	197 Z_DEFLATED = 8;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	198
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	199
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	200 {$L adler32.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	201 {$L compress.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	202 {$L crc32.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	203 {$L deflate.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	204 {$L infback.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	205 {$L inffast.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	206 {$L inflate.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	207 {$L inftrees.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	208 {$L trees.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	209 {$L uncompr.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	210 {$L zutil.obj}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	211
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	212 procedure adler32; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	213 procedure compressBound; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	214 procedure crc32; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	215 procedure deflateInit2_; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	216 procedure deflateParams; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	217
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	218 function _malloc(Size: Integer): Pointer; cdecl;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	219 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	220 Result := AllocMem(Size);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	221 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	222
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	223 procedure _free(Block: Pointer); cdecl;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	224 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	225 FreeMem(Block);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	226 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	227
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	228 procedure _memset(P: Pointer; B: Byte; count: Integer); cdecl;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	229 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	230 FillChar(P^, count, B);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	231 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	232
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	233 procedure _memcpy(dest, source: Pointer; count: Integer); cdecl;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	234 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	235 Move(source^, dest^, count);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	236 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	237
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	238
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	239
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	240 // deflate compresses data
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	241 function deflateInit_(var strm: TZStreamRec; level: Integer; version: PChar;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	242 recsize: Integer): Integer; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	243 function deflate(var strm: TZStreamRec; flush: Integer): Integer; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	244 function deflateEnd(var strm: TZStreamRec): Integer; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	245
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	246 // inflate decompresses data
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	247 function inflateInit_(var strm: TZStreamRec; version: PChar;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	248 recsize: Integer): Integer; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	249 function inflate(var strm: TZStreamRec; flush: Integer): Integer; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	250 function inflateEnd(var strm: TZStreamRec): Integer; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	251 function inflateReset(var strm: TZStreamRec): Integer; external;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	252
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	253
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	254 function zlibAllocMem(AppData: Pointer; Items, Size: Integer): Pointer; cdecl;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	255 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	256 // GetMem(Result, Items*Size);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	257 Result := AllocMem(Items * Size);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	258 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	259
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	260 procedure zlibFreeMem(AppData, Block: Pointer); cdecl;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	261 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	262 FreeMem(Block);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	263 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	264
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	265 {function zlibCheck(code: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	266 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	267 Result := code;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	268 if code < 0 then
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	269 raise EZlibError.Create('error'); //!!
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	270 end;}
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	271
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	272 function CCheck(code: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	273 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	274 Result := code;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	275 if code < 0 then
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	276 raise ECompressionError.Create('error'); //!!
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	277 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	278
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	279 function DCheck(code: Integer): Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	280 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	281 Result := code;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	282 if code < 0 then
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	283 raise EDecompressionError.Create('error'); //!!
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	284 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	285
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	286 procedure CompressBuf(const InBuf: Pointer; InBytes: Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	287 out OutBuf: Pointer; out OutBytes: Integer);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	288 var
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	289 strm: TZStreamRec;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	290 P: Pointer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	291 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	292 FillChar(strm, sizeof(strm), 0);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	293 strm.zalloc := zlibAllocMem;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	294 strm.zfree := zlibFreeMem;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	295 OutBytes := ((InBytes + (InBytes div 10) + 12) + 255) and not 255;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	296 GetMem(OutBuf, OutBytes);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	297 try
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	298 strm.next_in := InBuf;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	299 strm.avail_in := InBytes;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	300 strm.next_out := OutBuf;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	301 strm.avail_out := OutBytes;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	302 CCheck(deflateInit_(strm, Z_BEST_COMPRESSION, zlib_version, sizeof(strm)));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	303 try
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	304 while CCheck(deflate(strm, Z_FINISH)) <> Z_STREAM_END do
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	305 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	306 P := OutBuf;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	307 Inc(OutBytes, 256);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	308 ReallocMem(OutBuf, OutBytes);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	309 strm.next_out := PChar(Integer(OutBuf) + (Integer(strm.next_out) - Integer(P)));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	310 strm.avail_out := 256;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	311 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	312 finally
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	313 CCheck(deflateEnd(strm));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	314 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	315 ReallocMem(OutBuf, strm.total_out);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	316 OutBytes := strm.total_out;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	317 except
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	318 FreeMem(OutBuf);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	319 raise
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	320 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	321 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	322
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	323
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	324 procedure DecompressBuf(const InBuf: Pointer; InBytes: Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	325 OutEstimate: Integer; out OutBuf: Pointer; out OutBytes: Integer);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	326 var
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	327 strm: TZStreamRec;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	328 P: Pointer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	329 BufInc: Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	330 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	331 FillChar(strm, sizeof(strm), 0);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	332 strm.zalloc := zlibAllocMem;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	333 strm.zfree := zlibFreeMem;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	334 BufInc := (InBytes + 255) and not 255;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	335 if OutEstimate = 0 then
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	336 OutBytes := BufInc
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	337 else
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	338 OutBytes := OutEstimate;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	339 GetMem(OutBuf, OutBytes);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	340 try
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	341 strm.next_in := InBuf;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	342 strm.avail_in := InBytes;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	343 strm.next_out := OutBuf;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	344 strm.avail_out := OutBytes;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	345 DCheck(inflateInit_(strm, zlib_version, sizeof(strm)));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	346 try
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	347 while DCheck(inflate(strm, Z_NO_FLUSH)) <> Z_STREAM_END do
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	348 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	349 P := OutBuf;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	350 Inc(OutBytes, BufInc);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	351 ReallocMem(OutBuf, OutBytes);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	352 strm.next_out := PChar(Integer(OutBuf) + (Integer(strm.next_out) - Integer(P)));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	353 strm.avail_out := BufInc;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	354 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	355 finally
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	356 DCheck(inflateEnd(strm));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	357 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	358 ReallocMem(OutBuf, strm.total_out);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	359 OutBytes := strm.total_out;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	360 except
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	361 FreeMem(OutBuf);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	362 raise
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	363 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	364 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	365
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	366 procedure DecompressToUserBuf(const InBuf: Pointer; InBytes: Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	367 const OutBuf: Pointer; BufSize: Integer);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	368 var
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	369 strm: TZStreamRec;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	370 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	371 FillChar(strm, sizeof(strm), 0);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	372 strm.zalloc := zlibAllocMem;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	373 strm.zfree := zlibFreeMem;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	374 strm.next_in := InBuf;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	375 strm.avail_in := InBytes;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	376 strm.next_out := OutBuf;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	377 strm.avail_out := BufSize;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	378 DCheck(inflateInit_(strm, zlib_version, sizeof(strm)));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	379 try
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	380 if DCheck(inflate(strm, Z_FINISH)) <> Z_STREAM_END then
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	381 raise EZlibError.CreateRes(@sTargetBufferTooSmall);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	382 finally
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	383 DCheck(inflateEnd(strm));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	384 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	385 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	386
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	387 // TCustomZlibStream
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	388
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	389 constructor TCustomZLibStream.Create(Strm: TStream);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	390 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	391 inherited Create;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	392 FStrm := Strm;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	393 FStrmPos := Strm.Position;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	394 FZRec.zalloc := zlibAllocMem;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	395 FZRec.zfree := zlibFreeMem;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	396 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	397
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	398 procedure TCustomZLibStream.Progress(Sender: TObject);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	399 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	400 if Assigned(FOnProgress) then FOnProgress(Sender);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	401 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	402
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	403
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	404 // TCompressionStream
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	405
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	406 constructor TCompressionStream.Create(CompressionLevel: TCompressionLevel;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	407 Dest: TStream);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	408 const
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	409 Levels: array [TCompressionLevel] of ShortInt =
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	410 (Z_NO_COMPRESSION, Z_BEST_SPEED, Z_DEFAULT_COMPRESSION, Z_BEST_COMPRESSION);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	411 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	412 inherited Create(Dest);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	413 FZRec.next_out := FBuffer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	414 FZRec.avail_out := sizeof(FBuffer);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	415 CCheck(deflateInit_(FZRec, Levels[CompressionLevel], zlib_version, sizeof(FZRec)));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	416 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	417
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	418 destructor TCompressionStream.Destroy;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	419 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	420 FZRec.next_in := nil;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	421 FZRec.avail_in := 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	422 try
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	423 if FStrm.Position <> FStrmPos then FStrm.Position := FStrmPos;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	424 while (CCheck(deflate(FZRec, Z_FINISH)) <> Z_STREAM_END)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	425 and (FZRec.avail_out = 0) do
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	426 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	427 FStrm.WriteBuffer(FBuffer, sizeof(FBuffer));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	428 FZRec.next_out := FBuffer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	429 FZRec.avail_out := sizeof(FBuffer);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	430 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	431 if FZRec.avail_out < sizeof(FBuffer) then
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	432 FStrm.WriteBuffer(FBuffer, sizeof(FBuffer) - FZRec.avail_out);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	433 finally
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	434 deflateEnd(FZRec);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	435 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	436 inherited Destroy;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	437 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	438
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	439 function TCompressionStream.Read(var Buffer; Count: Longint): Longint;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	440 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	441 raise ECompressionError.CreateRes(@sInvalidStreamOp);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	442 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	443
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	444 function TCompressionStream.Write(const Buffer; Count: Longint): Longint;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	445 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	446 FZRec.next_in := @Buffer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	447 FZRec.avail_in := Count;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	448 if FStrm.Position <> FStrmPos then FStrm.Position := FStrmPos;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	449 while (FZRec.avail_in > 0) do
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	450 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	451 CCheck(deflate(FZRec, 0));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	452 if FZRec.avail_out = 0 then
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	453 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	454 FStrm.WriteBuffer(FBuffer, sizeof(FBuffer));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	455 FZRec.next_out := FBuffer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	456 FZRec.avail_out := sizeof(FBuffer);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	457 FStrmPos := FStrm.Position;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	458 Progress(Self);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	459 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	460 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	461 Result := Count;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	462 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	463
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	464 function TCompressionStream.Seek(Offset: Longint; Origin: Word): Longint;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	465 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	466 if (Offset = 0) and (Origin = soFromCurrent) then
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	467 Result := FZRec.total_in
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	468 else
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	469 raise ECompressionError.CreateRes(@sInvalidStreamOp);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	470 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	471
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	472 function TCompressionStream.GetCompressionRate: Single;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	473 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	474 if FZRec.total_in = 0 then
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	475 Result := 0
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	476 else
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	477 Result := (1.0 - (FZRec.total_out / FZRec.total_in)) * 100.0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	478 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	479
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	480
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	481 // TDecompressionStream
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	482
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	483 constructor TDecompressionStream.Create(Source: TStream);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	484 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	485 inherited Create(Source);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	486 FZRec.next_in := FBuffer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	487 FZRec.avail_in := 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	488 DCheck(inflateInit_(FZRec, zlib_version, sizeof(FZRec)));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	489 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	490
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	491 destructor TDecompressionStream.Destroy;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	492 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	493 FStrm.Seek(-FZRec.avail_in, 1);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	494 inflateEnd(FZRec);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	495 inherited Destroy;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	496 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	497
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	498 function TDecompressionStream.Read(var Buffer; Count: Longint): Longint;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	499 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	500 FZRec.next_out := @Buffer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	501 FZRec.avail_out := Count;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	502 if FStrm.Position <> FStrmPos then FStrm.Position := FStrmPos;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	503 while (FZRec.avail_out > 0) do
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	504 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	505 if FZRec.avail_in = 0 then
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	506 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	507 FZRec.avail_in := FStrm.Read(FBuffer, sizeof(FBuffer));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	508 if FZRec.avail_in = 0 then
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	509 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	510 Result := Count - FZRec.avail_out;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	511 Exit;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	512 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	513 FZRec.next_in := FBuffer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	514 FStrmPos := FStrm.Position;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	515 Progress(Self);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	516 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	517 CCheck(inflate(FZRec, 0));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	518 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	519 Result := Count;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	520 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	521
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	522 function TDecompressionStream.Write(const Buffer; Count: Longint): Longint;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	523 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	524 raise EDecompressionError.CreateRes(@sInvalidStreamOp);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	525 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	526
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	527 function TDecompressionStream.Seek(Offset: Longint; Origin: Word): Longint;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	528 var
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	529 I: Integer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	530 Buf: array [0..4095] of Char;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	531 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	532 if (Offset = 0) and (Origin = soFromBeginning) then
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	533 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	534 DCheck(inflateReset(FZRec));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	535 FZRec.next_in := FBuffer;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	536 FZRec.avail_in := 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	537 FStrm.Position := 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	538 FStrmPos := 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	539 end
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	540 else if ( (Offset >= 0) and (Origin = soFromCurrent)) or
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	541 ( ((Offset - FZRec.total_out) > 0) and (Origin = soFromBeginning)) then
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	542 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	543 if Origin = soFromBeginning then Dec(Offset, FZRec.total_out);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	544 if Offset > 0 then
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	545 begin
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	546 for I := 1 to Offset div sizeof(Buf) do
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	547 ReadBuffer(Buf, sizeof(Buf));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	548 ReadBuffer(Buf, Offset mod sizeof(Buf));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	549 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	550 end
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	551 else
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	552 raise EDecompressionError.CreateRes(@sInvalidStreamOp);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	553 Result := FZRec.total_out;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	554 end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	555
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	556
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	557 end.

Mercurial > hg > CbC > CbC_gcc

annotate zlib/contrib/delphi/ZLib.pas @ 51:ae3a4bfb450b