Indy10 - TIdContext에서 TIdTcpServer

Question

다른 인스턴스를 TIdTcpServer으로 만들고 클라이언트가 연결/연결 해제/실행하는 경우 나중에 필요한 Data 속성에 대한 포인터를 할당합니다.

TIdContext에서 "부모"TIdTcpServer을 얻을 수 있습니까?

그렇다면 어떻게해야합니까?

예 :

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

Answer 1

타입 캐스팅 TIdServerContext에 TIdContext는, 당신은 공개 Server 속성에 액세스 할 수 있습니다 :

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