Class Tlzrw1 (unit LZRW1)

Inherits from

TCustomPanel

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;



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;