Class My_LZH_Compressor (unit My_LZH)

Inherits from

TObject

Downloaded

Constructors


constructor Create;



Functions

procedure compression(dir:boolean);


Destructor Destroy;


procedure Get_Data(VAR DTA; NBytes:WORD; VAR Bytes_Got:WORD);


procedure Put_Data(VAR DTA; NBytes:WORD; VAR Bytes_Put:WORD);


Properties

Events

Variables

Bytes_done : integer;


getproc : GetBytesProc;


in_Stream : TMemoryStream;


i_s : TMemoryStream;


n_progress : TNotifyEvent;


out_Stream : TMemoryStream;


o_s : TMemoryStream;


progress : integer;


progressbar : TProgressBar;


putproc : PutBytesProc;



Constructors


constructor Create;


Functions


procedure compression(dir:boolean);


Destructor Destroy;


procedure Get_Data(VAR DTA; NBytes:WORD; VAR Bytes_Got:WORD);


procedure Put_Data(VAR DTA; NBytes:WORD; VAR Bytes_Put:WORD);


Properties


Events


Variables


Bytes_done : integer;


getproc : GetBytesProc;


in_Stream : TMemoryStream;


i_s : TMemoryStream;


n_progress : TNotifyEvent;


out_Stream : TMemoryStream;


o_s : TMemoryStream;


progress : integer;


progressbar : TProgressBar;


putproc : PutBytesProc;