IdTCPServer怎么样主动跟指定客服端发送数据？

[tjs_125]

如题，IdTCPServer怎么样主动向指定客服端发送数据？
如果是收到客服端的信息，需要发送回复信息，我知道在OnExecute事件里面就可以发送了。但主动向客服端发送信息我就不会了。

[tjs_125]

我刚才看了indy demo中的chat例子，里面是先在tcpServerConnect的事件里面把每一个连接上来得客服端都记下来，并保存在一个Clients里面（相当于客户端的管理列表），然后需要向某个已连接的客服端发送数据时，可遍历这个Clients，找出需要的客服端，然后 可以向下面这样发送消息

Client := Clients.Items[Index];
TIdPeerThread(Client.Thread).Connection.WriteLn(Msg);

不知道行不行？

[tjs_125]

或者参考里面的广播消息函数的代码，如下： BroadcastMessage

procedure TfrmMain.BroadcastMessage( WhoFrom, TheMessage : String );
var
  Count: Integer;
  List : TList;
  EMote,
  Msg  : String;
begin
  Msg := Trim(TheMessage);

  EMote := Trim(memEMotes.Lines.Values[Msg]);

  if WhoFrom <> 'System' then
    Msg := WhoFrom + ': ' + Msg;

  if EMote <> '' then
    Msg := Format(Trim(EMote), [WhoFrom]);

  List := tcpServer.Threads.LockList;
  try
    for Count := 0 to List.Count -1 do
    try
      TIdPeerThread(List.Items[Count]).Connection.WriteLn(Msg);
    except
      TIdPeerThread(List.Items[Count]).Stop;
    end;
  finally
    tcpServer.Threads.UnlockList;
  end;
end;

[wylton]

记录链接ip, 链接端口， 链接线程编号。 发送前区别当前链接是否有相同的ip, peer等，如果有就调用出来，发送内容。

[wylton]

List := tcpServer.Threads.LockList; try for Count := 0 to List.Count -1 do try TIdPeerThread(List.Items[Count]).Connection.WriteLn(Msg); except TIdPeerThread(List.Items[Count]).Stop; end; finally tcpServer.Threads.UnlockList; end; 这一段是向所有的链接发送信息。