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;