📄 zlibex.pas
字号:
{*****************************************************************************
* ZLibEx.pas *
* *
* copyright (c) 2000-2007 base2 technologies *
* copyright (c) 1995-2002 Borland Software Corporation *
* *
* revision history *
* 2007.02.24 added PWord declaration for delphi 5- *
* 2006.10.07 fixed EZLibError constructor for c++ builder compatibility *
* 2006.08.10 added ZDecompressStrG (simple gzip format) *
* 2006.06.02 added DateTimeToUnix for delphi 5- *
* 2006.03.28 moved Z_DEFLATED to interface section *
* added custom compression levels zcLevel1 thru zcLevel9 *
* 2006.03.27 added ZCompressStreamWeb *
* added ZCompressStreamG (simple gzip format) *
* 2006.03.24 added ZCompressStrG (simple gzip format) *
* added ZAdler32 and ZCrc32 *
* 2005.11.29 changed FStreamPos to Int64 for delphi 6+ *
* 2005.07.25 updated to zlib version 1.2.3 *
* 2005.03.04 modified ZInternalCompressStream loops *
* modified ZInternalDecompressStream loops *
* 2005.02.07 fixed ZInternalCompressStream loop conditions *
* fixed ZInternalDecompressStream loop conditions *
* 2005.01.11 updated to zlib version 1.2.2 *
* added ZCompressStrWeb *
* 2004.01.06 updated to zlib version 1.2.1 *
* 2003.04.14 added ZCompress2 and ZDecompress2 *
* added ZCompressStr2 and ZDecompressStr2 *
* added ZCompressStream2 and ZDecompressStream2 *
* added overloaded T*Stream constructors to support *
* InflateInit2 and DeflateInit2 *
* fixed ZDecompressStream to use ZDecompressCheck instead of *
* ZCompressCheck *
* 2002.03.15 updated to zlib version 1.1.4 *
* 2001.11.27 enhanced TZDecompressionStream.Read to adjust source *
* stream position upon end of compression data *
* fixed endless loop in TZDecompressionStream.Read when *
* destination count was greater than uncompressed data *
* 2001.10.26 renamed unit to integrate "nicely" with delphi 6 *
* 2000.11.24 added soFromEnd condition to TZDecompressionStream.Seek *
* added ZCompressStream and ZDecompressStream *
* 2000.06.13 optimized, fixed, rewrote, and enhanced the zlib.pas unit *
* included on the delphi cd (zlib version 1.1.3) *
* *
* acknowledgements *
* 2001.10.26 erik turner *
* Z*Stream routines *
* *
* 2001.11.27 david bennion *
* finding the nastly little endless loop quirk with the *
* TZDecompressionStream.Read method *
* *
* 2002.03.15 burak kalayci *
* informing me about the zlib 1.1.4 update and the 1.2.1 update *
* *
* 2005.01.11 vicente s醤chez-alarcos *
* informing me about the zlib 1.2.2 update *
* *
* 2005.02.07 luigi sandon *
* pointing out the missing loop condition (Z_STREAM_END) in *
* ZInternalCompressStream and ZInternalDecompressStream *
* *
* 2005.03.04 ferry van genderen *
* assiting me fine tune and beta test ZInternalCompressStream and *
* ZInternalDecompressStream *
* *
* 2005.07.25 mathijs van veluw *
* informing me about the zlib 1.2.3 update *
* *
* 2005.11.28 j. rathlev *
* pointing out the FStreamPos and TStream.Position type inconsitency *
* *
* 2006.03.24 ralf wenske *
* prototyping and assisting with ZCompressStrG and ZCompressStreamG *
* *
* 2006.06.02 roman krupicka *
* pointing out the DateUtils unit and the DateTimeToUnix function *
* wasn't available prior to Delphi 6 *
* *
* 2006.10.07 anders johansen *
* pointing out the ELibError constructor incompatibility with c++ *
* builder *
* *
* 2007.02.24 marcin treffler *
* pointing out the missing PWord declaration for Delphi 5 *
*****************************************************************************}
unit ZLibEx;
interface
{$I ZLibEx.inc}
uses
SysUtils, Classes {$IFDEF Version6Plus}, DateUtils {$ENDIF};
const
{** version ids ***********************************************************}
ZLIB_VERSION = '1.2.3';
ZLIB_VERNUM = $1230;
{** compression methods ***************************************************}
Z_DEFLATED = 8;
type
TZAlloc = function (opaque: Pointer; items, size: Integer): Pointer;
TZFree = procedure (opaque, block: Pointer);
TZCompressionLevel = (
zcNone,
zcFastest,
zcDefault,
zcMax,
zcLevel1,
zcLevel2,
zcLevel3,
zcLevel4,
zcLevel5,
zcLevel6,
zcLevel7,
zcLevel8,
zcLevel9
);
TZStrategy = (
zsDefault,
zsFiltered,
zsHuffman,
zsRLE,
zsFixed
);
{** TZStreamRec ***********************************************************}
TZStreamRec = packed record
next_in : PChar; // next input byte
avail_in : Longint; // number of bytes available at next_in
total_in : Longint; // total nb of input bytes read so far
next_out : PChar; // next output byte should be put here
avail_out: Longint; // remaining free space at next_out
total_out: Longint; // total nb of bytes output so far
msg : PChar; // last error message, NULL if no error
state : Pointer; // not visible by applications
zalloc : TZAlloc; // used to allocate the internal state
zfree : TZFree; // used to free the internal state
opaque : Pointer; // private data object passed to zalloc and zfree
data_type: Integer; // best guess about the data type: ascii or binary
adler : Longint; // adler32 value of the uncompressed data
reserved : Longint; // reserved for future use
end;
{** TCustomZStream ********************************************************}
TCustomZStream = class(TStream)
private
FStream : TStream;
FStreamPos : {$ifdef Version6Plus} Int64 {$else} Longint {$endif};
FOnProgress: TNotifyEvent;
FZStream : TZStreamRec;
FBuffer : Array [Word] of Char;
protected
constructor Create(stream: TStream);
procedure DoProgress; dynamic;
property OnProgress: TNotifyEvent read FOnProgress write FOnProgress;
end;
{** TZCompressionStream ***************************************************}
TZCompressionStream = class(TCustomZStream)
private
function GetCompressionRate: Single;
public
constructor Create(dest: TStream;
compressionLevel: TZCompressionLevel = zcDefault); overload;
constructor Create(dest: TStream; compressionLevel: TZCompressionLevel;
windowBits, memLevel: Integer; strategy: TZStrategy); overload;
destructor Destroy; override;
function Read(var buffer; count: Longint): Longint; override;
function Write(const buffer; count: Longint): Longint; override;
function Seek(offset: Longint; origin: Word): Longint; override;
property CompressionRate: Single read GetCompressionRate;
property OnProgress;
end;
{** TZDecompressionStream *************************************************}
TZDecompressionStream = class(TCustomZStream)
public
constructor Create(source: TStream); overload;
constructor Create(source: TStream; windowBits: Integer); overload;
destructor Destroy; override;
function Read(var buffer; count: Longint): Longint; override;
function Write(const buffer; count: Longint): Longint; override;
function Seek(offset: Longint; origin: Word): Longint; override;
property OnProgress;
end;
{** zlib public routines ****************************************************}
{*****************************************************************************
* ZCompress *
* *
* pre-conditions *
* inBuffer = pointer to uncompressed data *
* inSize = size of inBuffer (bytes) *
* outBuffer = pointer (unallocated) *
* level = compression level *
* *
* post-conditions *
* outBuffer = pointer to compressed data (allocated) *
* outSize = size of outBuffer (bytes) *
*****************************************************************************}
procedure ZCompress(const inBuffer: Pointer; inSize: Integer;
out outBuffer: Pointer; out outSize: Integer;
level: TZCompressionLevel = zcDefault);
{*****************************************************************************
* ZCompress2 *
* *
* pre-conditions *
* inBuffer = pointer to uncompressed data *
* inSize = size of inBuffer (bytes) *
* outBuffer = pointer (unallocated) *
* level = compression level *
* method = compression method *
* windowBits = window bits *
* memLevel = memory level *
* strategy = compression strategy *
* *
* post-conditions *
* outBuffer = pointer to compressed data (allocated) *
* outSize = size of outBuffer (bytes) *
*****************************************************************************}
procedure ZCompress2(const inBuffer: Pointer; inSize: Integer;
out outBuffer: Pointer; out outSize: Integer; level: TZCompressionLevel;
windowBits, memLevel: Integer; strategy: TZStrategy);
{*****************************************************************************
* ZDecompress *
* *
* pre-conditions *
* inBuffer = pointer to compressed data *
* inSize = size of inBuffer (bytes) *
* outBuffer = pointer (unallocated) *
* outEstimate = estimated size of uncompressed data (bytes) *
* *
* post-conditions *
* outBuffer = pointer to decompressed data (allocated) *
* outSize = size of outBuffer (bytes) *
*****************************************************************************}
procedure ZDecompress(const inBuffer: Pointer; inSize: Integer;
out outBuffer: Pointer; out outSize: Integer; outEstimate: Integer = 0);
{*****************************************************************************
* ZDecompress2 *
* *
* pre-conditions *
* inBuffer = pointer to compressed data *
* inSize = size of inBuffer (bytes) *
* outBuffer = pointer (unallocated) *
* windowBits = window bits *
* outEstimate = estimated size of uncompressed data (bytes) *
* *
* post-conditions *
* outBuffer = pointer to decompressed data (allocated) *
* outSize = size of outBuffer (bytes) *
*****************************************************************************}
procedure ZDecompress2(const inBuffer: Pointer; inSize: Integer;
out outBuffer: Pointer; out outSize: Integer; windowBits: Integer;
outEstimate: Integer = 0);
{** string routines *********************************************************}
{*****************************************************************************
* ZCompressStr *
* *
* pre-conditions *
* s = uncompressed data string *
* level = compression level *
* *
* return *
* compressed data string *
*****************************************************************************}
function ZCompressStr(const s: String;
level: TZCompressionLevel = zcDefault): String;
{*****************************************************************************
* ZCompressStrEx *
* *
* pre-conditions *
* s = uncompressed data string *
* level = compression level *
* *
* return *
* compressed data string with 4 byte (integer) header indicating *
* original uncompressed data length *
*****************************************************************************}
function ZCompressStrEx(const s: String;
level: TZCompressionLevel = zcDefault): String;
{*****************************************************************************
* ZCompressStr2 *
* *
* pre-conditions *
* s = uncompressed data string *
* level = compression level *
* windowBits = window bits *
* memLevel = memory level *
* strategy = compression strategy *
* *
* return *
* compressed data string *
*****************************************************************************}
function ZCompressStr2(const s: String; level: TZCompressionLevel;
windowBits, memLevel: Integer; strategy: TZStrategy): String;
function ZCompressStrWeb(const s: String): String;
{*****************************************************************************
* ZCompressStrG *
* *
* pre-conditions *
* s = uncompressed data string *
* fileName = filename *
* comment = comment *
* dateTime = date/time *
* *
* return *
* compressed data string in gzip format *
*****************************************************************************}
function ZCompressStrG(const s: String; const fileName, comment: String;
dateTime: TDateTime): String;
{*****************************************************************************
* ZDecompressStr *
* *
* pre-conditions *
* s = compressed data string *
* *
* return *
* uncompressed data string *
*****************************************************************************}
function ZDecompressStr(const s: String): String;
{*****************************************************************************
* ZDecompressStrEx *
* *
* pre-conditions *
* s = compressed data string with 4 byte (integer) header indicating *
* original uncompressed data length *
* *
* return *
* uncompressed data string *
*****************************************************************************}
function ZDecompressStrEx(const s: String): String;
{*****************************************************************************
* ZDecompressStr2 *
* *
* pre-conditions *
* s = compressed data string *
* windowBits = window bits *
* *
* return *
* uncompressed data string *
*****************************************************************************}
function ZDecompressStr2(const s: String; windowBits: Integer): String;
{*****************************************************************************
* ZDecompressStrG *
* *
* pre-conditions *
* s = compressed data string in gzip format *
* *
* post-conditions *
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -