我正在创建一个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;
发布于 2011-12-05 09:07:16
使用:
AContext.Connection.IOHandler.Write( (* bytes *) );
AContext.Connection.IOHandler.WriteFile( (* send a file to the client *) );
要获得更多选项,只需在IOHandler之后调用代码完成(CTRL+SPACE)并查看可用选项,不久前,我编写了一个简单的客户端/服务器测试应用程序,单击here查看和/或下载源代码。
发布于 2011-12-05 13:09:30
TIdTCPServer
是一个多线程组件。直接从UI的OnConnect
事件(或OnDisconnect
、OnExecute
或OnException
)访问UI不是线程安全的!您需要使用Indy的TIdSync
或TIdNotify
类来安全地访问UI。
要回答最初的问题,最简单但不一定是最安全的方法是将TIdContext.Connection
对象指针存储在TListItem.Data
属性中。然后,主线程代码将在需要时直接访问该连接。
尽管如此,我并不建议这样做。更安全的解决方案是自己唯一地标识每个客户端,例如使用客户端发送的用户名,并将该ID存储在TIdContext.Data
和TListItem.Data
属性中。然后,当您的主线程代码想要向客户端发送一条消息时,它可以遍历TIdTCPServer.Contexts
列表以查找所需的ID,如果找到,它将能够访问相应的TIdContext.Connection
对象。
https://stackoverflow.com/questions/8369543
复制相似问题