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;