Question

delphi中tcpsever端多客户连接设计

最近用delphi做一个tcp的通讯程序，第一次弄tcp，是一个服务器要和多个客户端（1000个以内）连接通信，我看了delphi7下的哪个netchat的例程，里面用到的是delphi自带的tcpsever和tcpclient组件，但只是实现了一对一的通信，那如何实现一对多的通信呢？网上说是要在tcpsever端用多线程处理，但不知如何创建多个接收处理线程，会的大侠能否指点一下，有代码最好，谢谢。就用这个tcpsever组件实现最好

Answer 1

建议您使用delphi2010之后的Datasnap，基本思路：
1.登录服务器时注册用户信道
2.发送消息时，根据群单发两种情况，调用服务器不同方法CallBack，返回到客户端界面

Answer 2

TcpServer和TcpClient完全支持一对多连接，你只需要在OnConnect事件中根据客户端请求的IP或者你自己定义的请求字来区分是哪一个客户端即可。

Answer 3

改变尝试
的ConnectionString：='供应商= MSDAORA.1;密码=月，用户ID = XXXX;数据源= ORCL，坚持安全信息= TRUE;