| Class Tlzrw1 (unit LZRW1) |
TCustomPanel
| Constructors |
constructor Create(AOwner : TComponent);| Functions |
Function Advise : TcompressMode;
Function Compress : LongInt;
Function Decompress : Longint;
Function CompressFile : Longint;
Function DeCompressFile : Longint;
function GetBestMode : TcompressMode;
procedure Loaded ;
procedure CheckRead(Actual, Desired : Longint);
procedure CheckWrite(Actual, Desired : Longint);Check if Write was successfull, raise an exception if not
procedure GetBlock(VAR Target; NoBytes:Word; VAR Actual_Bytes:Word);
procedure LZHCompress;
procedure LZHDecompress;
procedure LZrw1Compress;
procedure LZrw1Decompress;
procedure PutBlock(VAR Source; NoBytes:Word; VAR Actual_Bytes:Word);| Properties |
property Align :
property Alignment :
property BevelInner :
property BevelOuter :
property BevelWidth :
property BorderStyle :
property BorderWidth :
property Color :
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| Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnResize : | Variables |
FCompressMode : TCompressMode;
FIn : String;
FInputStream : TStream;
FOut : String;
FOutputStream : TStream;
FThreshold : Integer;
FUseStream : Boolean;| Constructors |
constructor Create(AOwner : TComponent);| Functions |
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
| Properties |
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| Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnResize : | Variables |
FCompressMode : TCompressMode;
FIn : String;
FInputStream : TStream;
FOut : String;
FOutputStream : TStream;
FThreshold : Integer;
FUseStream : Boolean;