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

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;

address:=server;

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