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

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

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

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

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

if not talk then

talk: = true else begin

serversocket1.socket.connections [1]. sendtext ('I am Busy');

serversocket1.socket.connections [1]. Close;

end;

/ / Socket.sendtext ('Welcome to Sasha PopUp');

memo2.setfocus;

end;

procedure TForm1.Form1Close (Sender: TObject; var Action: TCloseAction);

begin

serversocket1.close;

end;

procedure TForm1.ServerSocket1ClientRead (Sender: TObject;

Socket: TCustomWinSocket);

var

i: integer;

s: string;

begin

s: = socket.receivetext;

memo1.lines.add (s);

{With serversocket1.socket do

for i: = 1 to activeconnections do begin

if connections [i-1]. handle socket.handle

then

connections [i-1]. sendtext (s);

end;

if memo1.lines.count> maxmemolines then

memo1.lines.delete (0);}

end;

procedure TForm1.SpeedButton1Click (Sender: TObject);

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

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