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

active:=true;

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

end;

memo2.lines.clear;

end;

end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;

Socket: TCustomWinSocket);

begin

statusbar1.panels[2].text:=

'I connected to server';//+Socket.remotehost;

end;

procedure TForm1.ClientSocket1Read(Sender: TObject;

Socket: TCustomWinSocket);

begin

memo1.lines.add(socket.receivetext);

end;

procedure TForm1.Memo2KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

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