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;