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

procedure TForm1.Form1Create(Sender: TObject);

begin

memo1.lines.clear;

memo2.lines.clear;

talk:=false;

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.ServerSocket1ClientConnect(Sender: TObject;

Socket: TCustomWinSocket);

begin

statusbar1.panels[2].text:=' Client connected';

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