Class TMainForm (unit TEST_A1)

Inherits from

TForm

Constructors



Functions

procedure LZWCompressorGetData(Sender: TObject; pData: Pointer; var cbData: Integer);


procedure LZWCompressorSetData(Sender: TObject; pData: Pointer; var cbData: Integer);


procedure TestLZWCompress(Sender: TObject);


procedure TestLZWDecompress(Sender: TObject);


procedure TestNullCompress(Sender: TObject);


procedure TestNullDecompress(Sender: TObject);


procedure GetDataEvent( Sender :TObject; pData :Pointer; Var cbData :Integer );


procedure SetDataEvent( Sender :TObject; pData :Pointer; Var cbData :Integer );


Properties

Events

Variables

Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button4 : TButton;


LZWCompressor : TLZWCompressor;


OpenDialog : TOpenDialog;


TimeLbl : TLabel;


FInStream : TFileStream;


FOutStream : TFileStream;



Constructors


Functions


procedure LZWCompressorGetData(Sender: TObject; pData: Pointer; var cbData: Integer);


procedure LZWCompressorSetData(Sender: TObject; pData: Pointer; var cbData: Integer);


procedure TestLZWCompress(Sender: TObject);


procedure TestLZWDecompress(Sender: TObject);


procedure TestNullCompress(Sender: TObject);


procedure TestNullDecompress(Sender: TObject);


procedure GetDataEvent( Sender :TObject; pData :Pointer; Var cbData :Integer );


procedure SetDataEvent( Sender :TObject; pData :Pointer; Var cbData :Integer );


Properties


Events


Variables


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button4 : TButton;


LZWCompressor : TLZWCompressor;


OpenDialog : TOpenDialog;


TimeLbl : TLabel;


FInStream : TFileStream;


FOutStream : TFileStream;