Вы можете напрямую обращаться к контексту при обработке методов
void __fastcall TCPServer::OnDisconnect(TIdContext *AContext){
AContext->Binding()->PeerIP //Returns IP Of the just connected client
AContext->Binding()->PeerPort;
}
Сообщения могут быть прочитаны по событию Execute
AContext->Connection->Socket->ReadBytes(buf, 4, false);
Также в любом месте вашей программы вы можете получить контекст следующим образом:
TList *list = IdTCPServer1->Contexts->LockList();
for(int i=0; i<IdTCPServer1->Contexts->LockList()->Count; i++){
TIdContext *AContext = (TIdContext*)(list->Items[i]);
if(AContext ->Binding()->PeerIP == clientIP){ // say you want to reach the context of a specified IP
//Do something
}
}
IdTCPServer1->Contexts->UnlockList();