На сайте 100500 рефератов в 150 категориях	Искать реферат
Рефераты на 5 с плюсом С нашим сайтом написать реферат проще простого

Использование TCPIP протокола для обмена информацией в сети

Категория: Компьютерные науки

версия для печати

Страница: [1] [2] [3] [4] [5] [6] [7] [8]

clientname: string;

IsServer: boolean;

talk: boolean;

public

{Public declarations}

end;

var

Form1: TForm1;

implementation

{$ R *. DFM}

procedure TForm1.Form1Create (Sender: TObject);

begin

memo1.lines.clear;

memo2.lines.clear;

talk: = false;

try

serversocket1.active: = true;

clientsocket1.active: = false;

IsServer: = true;

statusbar1.panels [1]. text: = 'I am server';

except

serversocket1.active: = false;

IsServer: = false;

statusbar1.panels [1]. text: = 'I am client';

end;

end;

procedure TForm1.ServerSocket1ClientConnect (Sender: TObject;

Socket: TCustomWinSocket);

begin

statusbar1.panels [2]. text: = 'Client connected';

Страница: [1] [2] [3] [4] [5] [6] [7] [8]

версия для печати