Serversocket 服务,ClientSocket已经连接/ 请教`````````````````
Serversocket ClientSocket

这两个控件真好用,我简单测试了下,

开两个工程,下面简称 工程A 和 工程B

工程A放 Serversocket 用来 做监听,也就是服务器
工程B放 ClientSocket 用来连接工程A


然后开启两个工程

OK没问题,我用工程B连接工程A , OK ,连接成功.


问题:我如何用工程A主动发数据给工程B,比如说发一个 edit1.Text里的字符串,
是服务器Serversocket主动发给ClientSocket

我现在虽然连接成功,但是我不知道这个ClientSocket 的IP是多少,即使知道,如果是内网呢?
内网怎么发送数据呢? 工程A是外网, 工程B 是内网.

[解决办法]
ServerSocket.Socket.Connections[0].SendText(edt.text)
ServerSocket.Socket.Connections 里就存放了已连接的客户端
[解决办法]
每个连上服务器的ClientSocket都会在服务器有一个句柄，通过这个句柄你可以获得客户端的IP、主机名，并发送数据给客户端。
[解决办法]

Delphi(Pascal) code

  srvrsckt1.Socket.ActiveConnections;  //连接个数  srvrsckt1.Socket.Connections[0].RemoteAddress; //第一个连接的远程地址