Indy10 - TIdTcp到TIdTcpServer

Question

我创建TIdTcpServer的不同实例，并指定一个指向Data属性的指针，如果客户端连接/断开/执行，我稍后需要该属性。

是否可以从TIdTcpServer获取“父级”TIdContext？

如果是的话，我该怎么做？

示例：

procedure TMainWindow.OnConnect(AContext: TIdContext);
var
 ParentServer : TIdTcpServer; 
begin
  // ParentServer := AContext... 
end;

Answer 1

将TIdContext输入到TIdServerContext，然后您可以访问其公开Server媒体资源：

procedure TMainWindow.OnConnect(AContext: TIdContext);
var
  ParentServer : TIdCustomTCPServer; 
begin
  ParentServer := TIdServerContext(AContext).Server;
  ...
end;