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

if (key=vk_return) //and (length(memo1.lines[

// memo1.lines.count-1])>0)

then begin

if (length(clientname)<=0) then begin

inputquery('Registration','Your nickname:',clientname); end;

memo1.lines.add(clientname+':'+memo2.lines[memo2.lines.count-1]);

if IsServer then

serversocket1.socket.connections[0].sendtext(clientname+': '+memo2.lines

[memo2.lines.count-1])

else

clientsocket1.socket.sendtext(clientname+': '+memo2.lines

[memo2.lines.count-1]);

memo2.lines.clear;

end;

end;

procedure TForm1.ClientSocket1Error(Sender: TObject;

Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;

var ErrorCode: Integer);

begin

memo2.lines.add('Connection to '+server+' failed');

errorcode:=0;

end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;

Socket: TCustomWinSocket);

begin

try

serversocket1.active:=true;

clientsocket1.active:=false;

IsServer:=true;

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