关于Indy 中的 TCPClient和 TcpServer控件的使用方法。

[simalaya]

例子
客户端：
void __fastcall TForm2::btnGoClick(TObject *Sender)
{
TCPClient->Connect();

try
{
lstMain->Items->Add(TCPClient->ReadLn());
}
__finally
{
TCPClient->Disconnect();
}
客户向服务器连接，就关闭连接。

服务器：
void __fastcall TfrmServer::TCPServerExecute(TIdPeerThread *AThread)
{
AThread->Connection->WriteLn("Hello from Basic Indy Server server.");
AThread->Connection->Disconnect();
}

服务器得到连接的例子后向客户发送一个字符串。

但是我想在服务器端根据自己的需要向客户发送信息，而不是等客户的连接信息后才发，该怎么写呢？

[netsys2]

如果CLIENT没给SERVER连接，SERVER根本不能向CLIENT发数据

[simalaya]

客户连接是对啊，但是不能让客户不断的发送连接，我在服务器断才给客户发啊。
我的意思是我在服务器端主动发给客户端。而不是应客户请求才发给客户。

[Siney]

两边都有server和client组建就可以相互通信了

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
感谢您选用Borland产品，更多信息请前往Borland社区和新闻组查询:.......