delphi - Indy10 - TIdContext から 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;