TTCPServer三种通讯模式

1.通过设置TTCPServer的BlockMode属性,可以设定TTCPServer为bmBlocking\bmNonBlocking\bmThreadBlocking这三种通讯模式;

bmBlocking    为阻塞模式,以同步的方式进行数据传输,
bmNonBlocking  非阻塞模式,以异步的方式进行数据传输,
bmThreadBlocking 线程异步模式,创建一个子线程与TcpClient进行通讯,在线程中以同步的方式传输数据;

默认是bmThreadBlocking 模式;

2.应该检查一下你的通讯模式

如果是bmBlocking模式,可以OnAccept事件中编写代码 
procedure TForm1.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);

  //接收tcpclient的数据
  ClientSocket.ReceiveFrom()
  ClientSocket.ReceiveBuf()

  //向tcpclient发送数据
  ClientSocket.SendBuf()
  ClientSocket.SendTo()

3.如果是bmThreadBlocking模式,可以OnGetThread事件中编写代码 
procedure TForm1.TcpServer1GetThread(Sender: TObject;
  var ClientSocketThread: TClientSocketThread);
begin
  ClientSocketThread.ClientSocket.

  //接收tcpclient的数据
  ClientSocketThread.ClientSocket.ReceiveFrom()
  ClientSocketThread.ClientSocket.ReceiveBuf()

  //向tcpclient发送数据
   ClientSocketThread.ClientSocket.SendBuf()
   ClientSocketThread.ClientSocket.SendTo()

end;