Class TClientForm (unit CliDemo1) |
Inherits from
TForm
procedure CliSocketDataAvailable(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure CliSocketSessionClosed(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure CliSocketSessionConnected(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);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CliSocket : TWSocket;
DisconnectButton : TButton;
DisplayMemo : TMemo;
Label1 : TLabel;
Label2 : TLabel;
LineLabel : TLabel;
Panel1 : TPanel;
PortEdit : TEdit;
SendButton : TButton;
SendEdit : TEdit;
ServerEdit : TEdit;
Wait1 : TWait;
Buffer : array [0..1023] of char;
Déclarations privées
ConnectError : Word;
Count : Integer;
Initialized : Boolean;
procedure CliSocketDataAvailable(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure CliSocketSessionClosed(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure CliSocketSessionConnected(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);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CliSocket : TWSocket;
DisconnectButton : TButton;
DisplayMemo : TMemo;
Label1 : TLabel;
Label2 : TLabel;
LineLabel : TLabel;
Panel1 : TPanel;
PortEdit : TEdit;
SendButton : TButton;
SendEdit : TEdit;
ServerEdit : TEdit;
Wait1 : TWait;
Buffer : array [0..1023] of char;
Déclarations privées
ConnectError : Word;
Count : Integer;
Initialized : Boolean;