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