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

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

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

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

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

begin

if clientsocket1.active then clientsocket1.active: = false;

if inputquery ('Connect to server', 'IP address:', server)

then

begin

with clientsocket1 do

begin

IsServer: = false;

serversocket1.active: = false;

address: = server;

active: = true;

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

end;

memo2.lines.clear;

end;

end;

procedure TForm1.ClientSocket1Connect (Sender: TObject;

Socket: TCustomWinSocket);

begin

statusbar1.panels [2]. text: =

'I connected to server';//+ Socket.remotehost;

end;

procedure TForm1.ClientSocket1Read (Sender: TObject;

Socket: TCustomWinSocket);

begin

memo1.lines.add (socket.receivetext);

end;

procedure TForm1.Memo2KeyDown (Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

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

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