Class TClientForm (unit CliDemo1)

Inherits from

TForm

Constructors



Functions

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);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Properties

Events

Variables

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;



Constructors


Functions


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);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Properties


Events


Variables


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;