现在有多个客户端连接到服务器端,我怎样在服务端主动向指定的客户端发送消息呢?
解决方案 »
- TIdBase64Encoder控件在哪里呀?哪里有下载的呀?
- 请教何为:程序生成器?
- 小问题一个
- Delphi中的Type Library 类型库是做什么用的??
- 如何通过combobox来显示不同表的内容?
- 关于对象池的问题,请各位指点迷津
- 怎样在程序实现对“我的电脑”中的映射网络硬盘的更名和图标更改?(100分,在线等待)
- 请问有没有高手用delphi做过类似于写字板的程序?
- 菜鸟问题2:我想在窗体得到焦点时执行一点代码,比如用alt+tab键从别的窗体切换到自己的窗体来的时候执行代码
- 我想知道用delphi开发pc2pc、pc2tel的语音技术相关资料。(我会继续加分)
- 关于MDI窗体
- 如何找出弹出广告的程序??
在IdTcpServer 的 ONExecute 里写事件进行处理因为IdTcpServer 是线程安全的,每个客户端连接就是一个线程,你可以获取请求连接客户端的IP和机器名。具体例子可以找一个INDY提供的DEMO,里面有一个传输IMAGE 的例子。
pThread:TIdPeerThread;
begin
with IdTCPServer1.Threads.LockList do
begin
pThread:= TIdPeerThread(Items[0]);
pThread.Connection.Socket.Binding.PeerIP;
pThread.Connection.Socket.Binding.PeerPort;
end;
end;
通过pThread获得客户端ip端口等信息,再发送