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

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

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;