Unit GWCompress |
Data Compressors for Delphi File Version 01.00 (C) Glen Why, 1996
Classes |
CCustomCompressor -
TCustomCompressor -
TLZWCompressor -
TNullCOmpressor -
Functions |
Types |
PLZWStack
PLZWStringTable
TCompressorStatus
TGetCompressorDataEvent
TLZWStack
TLZWStringTable
TLZWTableEntry
TSetCompressorDataEvent
Constants |
LZW_DEF_TABLE
LZW_MAX_TABLE
LZW_MIN_TABLE
Variables |
Functions |
Types |
PLZWStack = ^TLZWStack
PLZWStringTable = ^TLZWStringTable
TCompressorStatus = ( CompressorIdle, CompressorBusy );
TGetCompressorDataEvent = procedure( Sender :TObject; pData :Pointer; Var cbData :Integer ) of object
TLZWStack = array [0..LZW_MAX_TABLE ] Of Integer;
TLZWStringTable = array[ 0..LZW_MAX_TABLE - 1 ] of TLZWTableEntry;
TLZWTableEntry = record
Used : LongBool;
PrevChar : Integer;
FollChar : Integer;
Next : Integer;
end;
TSetCompressorDataEvent = procedure( Sender :TObject; pData :Pointer; Var cbData :Integer ) of object
Constants |
Variables |