Class TForm1 (unit Clntserv)

Inherits from

TForm

Constructors



Functions

procedure CancelListenClick(Sender: TObject);

not server?

procedure CloseClick(Sender: TObject);


procedure ConnectClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure HelpButtonClick(Sender: TObject);


procedure ListenClick(Sender: TObject);


procedure SendDataClick(Sender: TObject);


procedure Sockets1DataAvailable(Sender: TObject; Socket: integer);


procedure Sockets1SessionAvailable(Sender: TObject; Socket: integer);


procedure Sockets1SessionClosed(Sender: TObject; Socket: integer);


procedure Sockets1SessionConnected(Sender: TObject; Socket: integer);


Properties

Events

Variables

CancelListen : TButton;


Close : TButton;


Connect : TButton;


Edit1 : TEdit;


HelpButton : TButton;


IPAddr : TEdit;


Label1 : TLabel;


Label2 : TLabel;


Label5 : TLabel;


Listen : TButton;


Memo1 : TMemo;


Port : TEdit;


SendData : TButton;


Sockets1 : TSockets;



Constructors


Functions


procedure CancelListenClick(Sender: TObject);

not server?


procedure CloseClick(Sender: TObject);


procedure ConnectClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure HelpButtonClick(Sender: TObject);


procedure ListenClick(Sender: TObject);


procedure SendDataClick(Sender: TObject);


procedure Sockets1DataAvailable(Sender: TObject; Socket: integer);


procedure Sockets1SessionAvailable(Sender: TObject; Socket: integer);


procedure Sockets1SessionClosed(Sender: TObject; Socket: integer);


procedure Sockets1SessionConnected(Sender: TObject; Socket: integer);


Properties


Events


Variables


CancelListen : TButton;


Close : TButton;


Connect : TButton;


Edit1 : TEdit;


HelpButton : TButton;


IPAddr : TEdit;


Label1 : TLabel;


Label2 : TLabel;


Label5 : TLabel;


Listen : TButton;


Memo1 : TMemo;


Port : TEdit;


SendData : TButton;


Sockets1 : TSockets;