| Class TCliForm (unit SrvDemo2) |
TForm
| Constructors |
| Functions |
procedure CliSocketDataAvailable(Sender: TObject; Error: Word);
procedure CliSocketSessionClosed(Sender: TObject; Error: Word);
procedure DisconnectButtonClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure SendButtonClick(Sender: TObject);
procedure ProcessCommand(Cmd : String);| Properties |
| Events |
| Variables |
CliSocket : TWSocket;
DisconnectButton : TButton;
DisplayMemo : TMemo;
LineLabel : TLabel;
Panel1 : TPanel;
Panel2 : TPanel;
SendButton : TButton;
SendEdit : TEdit;
DataTable : TTable;
Buffer : array [0..1023] of char;
Count : Integer;
Initialized : Boolean;| Constructors |
| Functions |
procedure CliSocketDataAvailable(Sender: TObject; Error: Word);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure CliSocketSessionClosed(Sender: TObject; Error: Word);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DisconnectButtonClick(Sender: TObject);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormClose(Sender: TObject; var Action: TCloseAction);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SendButtonClick(Sender: TObject);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ProcessCommand(Cmd : String);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
| Properties |
| Events |
| Variables |
CliSocket : TWSocket;
DisconnectButton : TButton;
DisplayMemo : TMemo;
LineLabel : TLabel;
Panel1 : TPanel;
Panel2 : TPanel;
SendButton : TButton;
SendEdit : TEdit;
DataTable : TTable;Déclarations publiques
Buffer : array [0..1023] of char;
Count : Integer;
Initialized : Boolean;Déclarations privées