Question

我正在创建一个TCP服务器，它接收多个客户端，并且必须能够向每个客户端发送消息。

如何获取客户端连接的句柄，然后发送任意数据？

谢谢：D

代码：

procedure TFRM_Main.ServerConnect(AContext: TIdContext);
var lAdd: TListItem;
var Index: integer;
begin
  lAdd := ListView.Items.Add;
  //AContext connection ID, what to do here?
  lAdd.Caption := IntToStr(Index);
end;

Answer 1

TIdTCPServer是一个多线程组件。直接从其OnConnect事件（或OnDisconnect，OnExecute或OnException）访问用户界面不是线程安全的！您需要使用Indy的TIdSync或TIdNotify类来安全地访问UI。

要回答原始问题，最简单但不一定是最安全的方法是将TIdContext.Connection对象指针存储在TListItem.Data属性中。然后，主线程代码可以在需要时直接访问连接。

但是，我不建议这样做。更安全的解决方案是自己唯一地标识每个客户端，例如使用客户端发送的用户名，并将该ID存储在TIdContext.Data和TListItem.Data属性中。然后，当您的主线程代码想要向客户端发送消息时，它可以遍历TIdTCPServer.Contexts列表以查找所需的ID，如果找到则可以访问相应的TIdContext.Connection对象

Answer 2

使用：

AContext.Connection.IOHandler.Write( (* bytes *) );
AContext.Connection.IOHandler.WriteFile( (* send a file to the client *) );

有关更多选项，只需在IOHandler之后调用代码完成（CTRL + SPACE）并查看可用选项，不久前，我已经编写了一个简单的客户端/服务器测试应用程序，单击here查看和/或下载来源。

如何在ListView中将标识符存储在客户端连接中--Indy 10

2 个答案: