Використання TCPIP протоколу для обміну інформацією в мережі, Детальна інформація

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);