delphi - Indy10-TIdContext到TIdTcpServer

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

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

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

例：

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

最佳答案

将TIdContext类型转换为TIdServerContext，然后可以访问其公共Server属性：

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

关于delphi - Indy10-TIdContext到TIdTcpServer，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/17734257/