Class TTestClientForm (unit CliTst1) |
Inherits from
TForm
procedure AppSrvClient1AfterSendRequest(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AppSrvClient1BeforeProcessReply(Sender: TObject;
var CmdBuf: PChar; var CmdLen: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AppSrvClient1BeforeSendRequest(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AppSrvClient1RequestDone(Sender: TObject; Error: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AppSrvClient1SessionClosed(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ClearButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DisconnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SendButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DisplayBmpFile;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ImageFormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
AppSrvClient1 : TAppSrvClient;
ClearButton : TButton;
DataEdit : TEdit;
DisconnectButton : TButton;
EncryptCheckBox : TCheckBox;
FunctionEdit : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Memo1 : TMemo;
MWBuffer1 : TMWBuffer;
Panel1 : TPanel;
PortEdit : TEdit;
SendButton : TButton;
ServerEdit : TEdit;
FIniFileName : String;
FInitialized : Boolean;
FPort : String;
FServer : String;
procedure AppSrvClient1AfterSendRequest(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AppSrvClient1BeforeProcessReply(Sender: TObject;
var CmdBuf: PChar; var CmdLen: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AppSrvClient1BeforeSendRequest(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AppSrvClient1RequestDone(Sender: TObject; Error: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AppSrvClient1SessionClosed(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ClearButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DisconnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SendButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DisplayBmpFile;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ImageFormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
AppSrvClient1 : TAppSrvClient;
ClearButton : TButton;
DataEdit : TEdit;
DisconnectButton : TButton;
EncryptCheckBox : TCheckBox;
FunctionEdit : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Memo1 : TMemo;
MWBuffer1 : TMWBuffer;
Panel1 : TPanel;
PortEdit : TEdit;
SendButton : TButton;
ServerEdit : TEdit;
FIniFileName : String;
FInitialized : Boolean;
FPort : String;
FServer : String;