Class Tlzrw1 (unit LZRW1) |
Inherits from
TCustomPanel
constructor Create(AOwner : TComponent);
Function Advise : TcompressMode;
the 3d execute method : advise compression method } {---------------------------------------------------
Function Compress : LongInt;
the 2 execute methods : compress and decompress } {-------------------------------------------------
Function Decompress : Longint;
compress stream/file
Function CompressFile : Longint;
compress a file } {-----------------
Function DeCompressFile : Longint;
decompress a file } {-------------------
function GetBestMode : TcompressMode;
Guess the best compression mode } { returns Good or Fast
procedure Loaded ;
40 % autoguess default threshold
procedure CheckRead(Actual, Desired : Longint);
check if Read was successfull, raise an exception if not
procedure CheckWrite(Actual, Desired : Longint);
autoguess "fast" threshold Check if Write was successfull, raise an exception if not
procedure GetBlock(VAR Target; NoBytes:Word; VAR Actual_Bytes:Word);
the reader : GetBlock
procedure LZHCompress;
compress a file with LZH (GOOD) } {---------------------------------
procedure LZHDecompress;
decompress a file with LZH (GOOD) } {-----------------------------------
procedure LZrw1Compress;
compress a file with LZRW1/KH (FAST) } {--------------------------------------
procedure LZrw1Decompress;
decompress a file with LZRW1 (FAST) } {-------------------------------------
procedure PutBlock(VAR Source; NoBytes:Word; VAR Actual_Bytes:Word);
and the writer : PutBlock
property Align :
property Alignment :
property BevelInner :
property BevelOuter :
property BevelWidth :
property BorderStyle :
property BorderWidth :
property Color :
property Caption;
property CompressMode : TCompressMode
property Ctl3D :
property DragCursor :
property DragMode :
property Enabled :
property Font :
property InputFile : String
property Locked :
property OutputFile : String
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property Threshold : Integer
property UseStream : Boolean
property Visible :
property InputStream : TStream
property OutputStream : TStream
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnResize :
FCompressMode : TCompressMode;
FIn : String;
FInputStream : TStream;
FOut : String;
FOutputStream : TStream;
FThreshold : Integer;
FUseStream : Boolean;
constructor Create(AOwner : TComponent);
Function Advise : TcompressMode;
the 3d execute method : advise compression method } {---------------------------------------------------
Function Compress : LongInt;
the 2 execute methods : compress and decompress } {-------------------------------------------------
Function Decompress : Longint;
compress stream/file
Function CompressFile : Longint;
compress a file } {-----------------
Function DeCompressFile : Longint;
decompress a file } {-------------------
function GetBestMode : TcompressMode;
Guess the best compression mode } { returns Good or Fast
procedure Loaded ;
40 % autoguess default threshold
procedure CheckRead(Actual, Desired : Longint);
check if Read was successfull, raise an exception if not
procedure CheckWrite(Actual, Desired : Longint);
autoguess "fast" threshold
Check if Write was successfull, raise an exception if not
procedure GetBlock(VAR Target; NoBytes:Word; VAR Actual_Bytes:Word);
the reader : GetBlock
procedure LZHCompress;
compress a file with LZH (GOOD) } {---------------------------------
procedure LZHDecompress;
decompress a file with LZH (GOOD) } {-----------------------------------
procedure LZrw1Compress;
compress a file with LZRW1/KH (FAST) } {--------------------------------------
procedure LZrw1Decompress;
decompress a file with LZRW1 (FAST) } {-------------------------------------
procedure PutBlock(VAR Source; NoBytes:Word; VAR Actual_Bytes:Word);
and the writer : PutBlock
property Align :
property Alignment :
property BevelInner :
property BevelOuter :
property BevelWidth :
property BorderStyle :
property BorderWidth :
property Color :
property Caption;
property CompressMode : TCompressMode
property Ctl3D :
property DragCursor :
property DragMode :
property Enabled :
property Font :
property InputFile : String
property Locked :
property OutputFile : String
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property Threshold : Integer
property UseStream : Boolean
property Visible :
property InputStream : TStream
property OutputStream : TStream
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnResize :
FCompressMode : TCompressMode;
FIn : String;
FInputStream : TStream;
FOut : String;
FOutputStream : TStream;
FThreshold : Integer;
FUseStream : Boolean;