delphi - Indy10 - TIdContext 到 TIdTcpServer

Question

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

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

如果是这样，我该怎么做？

示例:

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

Answer 1

将 TIdContext 类型转换为 TIdServerContext，然后您可以访问其公共(public) Server 属性:

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