Class TClientForm (unit client1)

Inherits from

TForm

Constructors



Functions

procedure CliSocketDataAvailable(Sender: TObject; Error: Word);


procedure ConnectButtonClick(Sender: TObject);


procedure DisconnectButtonClick(Sender: TObject);


procedure SendButtonClick(Sender: TObject);


procedure ProcessCommand(Cmd : PChar);


Properties

Events

Variables

CliSocket : TWSocket;


ConnectButton : TButton;


DisconnectButton : TButton;


DisplayMemo : TMemo;


LineLabel : TLabel;


PortEdit : TEdit;


SendButton : TButton;


SendEdit : TEdit;


ServerEdit : TEdit;


Buffer : array [0..1023] of char;

Déclarations privées

Count : Integer;



Constructors


Functions


procedure CliSocketDataAvailable(Sender: TObject; Error: Word);


procedure ConnectButtonClick(Sender: TObject);


procedure DisconnectButtonClick(Sender: TObject);


procedure SendButtonClick(Sender: TObject);


procedure ProcessCommand(Cmd : PChar);


Properties


Events


Variables


CliSocket : TWSocket;


ConnectButton : TButton;


DisconnectButton : TButton;


DisplayMemo : TMemo;


LineLabel : TLabel;


PortEdit : TEdit;


SendButton : TButton;


SendEdit : TEdit;


ServerEdit : TEdit;


Buffer : array [0..1023] of char;

Déclarations privées


Count : Integer;