TServerSocket与TClientSocket通讯

clientsocket 连到服务器上的时候serversocket会建立线程，每个线程的客户端用索引表示
要给第一个连接的客户发信息就是 serversocket.socket.connections[0].sendtext();
给第二个连接的客户就是serversocket.socket.connections[1].sendtext();

 

服务端回复客户端 ServerSocket.Socket.Connections[1].SendText('aa');

 

客户端发送服务端 ClientSocket.Socket.SendText('11111');

 

服务端接收就要用到 ServerSocketClientRead 事件

Str:=Socket.ReceiveText; //这里就不需要加ServerSocket了，这样写是错误的 ServerSocket.Socket.ReceiveText;
ShowMessage(Str);

 

客户端接收服务端 ClientSocketRead 事件

Str:=Socket.ReceiveText; //同理；
ShowMessage(Str);