各位大虾帮忙！如何用 BCB 的 TServerSocket TClientSocket在局域网实现信息群发？

[snowcantus]

各位大虾帮忙！如何用 BCB 的 TServerSocket TClientSocket在局域网实现信息群发？
现在已经实现点对点发送，如何实现对局域网中的机器进行群发，我已经用dbgird连接记录ip的数据库了，是否可以通过利用循环，然后执行
ADOQuery1->Close();
ADOQuery1->Sql->Clear();
ADOQuery1->Sql->Add("select * from 表名");
while(ADOQuery1->Eof)
{
ClientSocket1->Active = false;
AnsiString Server=DBGrid1->Columns->Grid->Fields[1]->Text;
ClientSocket1->Host=Server;
ClientSocket1->Active=true;
ClientSocket1->Socket->SendText(edName->Text+"："+RichEdit1->Text);
ADOQuery1->Next();
}
现在只能是执行对数据库内登记ip的机器一次连接，但是不能发送！
各位大虾执教！

[snowcantus]

constantine(飘遥的安吉儿)
能不能给具体讲一下，我是菜鸟！

[dd03jk]

用UDP不行吗？

[snowcantus]

请详细说明！

[snowcantus]

那位高手帮帮忙！我的qq:3232653,E-mail:[e-mail],谢谢阿！

[constantine]

晕，你要群发为什么不用udp，然后广播出去，而且在lan里面用udp不需要服务器都可以做到，
最多消息代个目的对象，收到判断是不是要给自己得，不是就不显示，当然也可以直接指定一个对象，比较简单得
如果你一定要用tcp，群发你就直接发给server，然后让他发给所有连接进来得c就可以了

[常宁]

用UDP,群发只有UDP可以做。而且你代码中的方式估计群发不会稳定，可能大多数都发送失败了。是不是 :P

TClientSocket和TServerSocket Borland因为这两个空间容易被错误使用和涉及的技术过于复杂而用其他控件替代，所以请采用其他的控件实现。