Socket->Connections
Вопрос людям, работавшим с компанентами TServerSocket и TClientSocket: как узнать, что на сервере номер Connections'а, с которого пришло сообщение?
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(ServerSocket1->Active)
Label0->Caption = "Server created";
else
Label0->Caption = "No server";
Label1->Caption = "loc host: " + ServerSocket1->Socket->LocalHost;
Label2->Caption = "loc adr: " + ServerSocket1->Socket->LocalAddress;
Label3->Caption = "port: " + IntToStr(ServerSocket1->Port);
Memo1->Lines->Clear();
for(int i=1; i<=ServerSocket1->Socket->ActiveConnections; i++)
Memo1->Lines->Add(IntToStr(i) + " - host: " + ServerSocket1->Socket->Connections[i-1]->RemoteHost + " | adr: " + ServerSocket1->Socket->Connections[i-1]->RemoteAddress);
Label4->Caption="Приконектившихся : " + IntToStr(ServerSocket1->Socket->ActiveConnections);
}
//---------------------------------------------------------------------------