Indy10 - TIdContext到TIdTcpServer

Question

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

可以从TIdContext获取“父”TIdTcpServer吗？

如果是这样，我如何做到这一点？

示例：

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;