V
victorz
Unregistered / Unconfirmed
GUEST, unregistred user!
TTcpServer做服务端，采用bmThreadBlocking模式
procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
....
ClientSocket.SendLn('Connect OK');//联机成功，此时客户端等待接收数据。
//这里服务端要停下来，等待我发出允许发送数据的命令。
ClientSocket.SendLn('Data');//发送数据
....
end;
procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
....
ClientSocket.SendLn('Connect OK');//联机成功，此时客户端等待接收数据。
//这里服务端要停下来，等待我发出允许发送数据的命令。
ClientSocket.SendLn('Data');//发送数据
....
end;