建立一个TSocket的数据
var
Ss:array of tsocket;
begin
setlength(ss,100000);//10万台机器你够用了吧
end;当每台机器连接时记录它的tsocket你要向那台机器发信息，现在就很容易了，
如向第5台连接的机器发信息
ss[4].sendtext('sdfdsf');
就可以了，当然你要作一个记录socket用户的记录才区分每个socket的对象，呵呵。
var
Ss:array of tsocket;
begin
setlength(ss,100000);//10万台机器你够用了吧
end;当每台机器连接时记录它的tsocket你要向那台机器发信息，现在就很容易了，
如向第5台连接的机器发信息
ss[4].sendtext('sdfdsf');
就可以了，当然你要作一个记录socket用户的记录才区分每个socket的对象，呵呵。
这样又带来了新的问题，如何动态的维护这些信息，因为不断地有客户在建立连接和断开连接，这个信息量随时都在变。
欢迎继续探讨。