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

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

except

serversocket1.active:=false;

IsServer:=false;

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

end;

end;

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin