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

clientname:string;

IsServer:boolean;

talk:boolean;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

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