我正在创建一个接收多个客户端并且必须能够向每个客户端发送消息的 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;