如何利用Indy 10

Question

處理多個客戶端目前我使用的成功TIdTCPServer和TIdTCPClient Indy組件服務器和客戶端完全做，但我得到了麻煩時，兩個客戶端連接到服務器在同一時間。我有兩個網絡192.168.10.23和localhost，當客戶端使用本地主機連接時很好，第二個客戶端嘗試連接到192.168.10.23仍然在等待第一個客戶端斷開連接。

任何人都可以請給我建議如何處理使用Indy10的多個客戶端。

補充：

這是我的代碼：

void __fastcall TfrmServer::TCPServerConnect(TIdContext *AContext) 
{ 
    TList *list = TCPServer->Contexts->LockList(); 
    try 
    { 
     for (int j=0; j < list->Count; j++) 
     { 
      TIdContext *myContext = static_cast<TIdContext*>(list->Items[j]); 
      CLIENT_AUTH(myContext); 

      INFO_CLIENT *br = ((INFO_CLIENT*)brb); 
      br->ClientIP = myContext->Binding()->IP; 
      br->ClientPort = myContext->Binding()->Port; 
      br->peerIp  = myContext->Binding()->PeerIP; 
      br->peerPort = myContext->Binding()->PeerPort; 

      if (myContext->Connection->Connected()) 
      { 
       for (int i=0; i < list->Count; i++) 
       { 
        ListIt = ListClient->Items->Add(); 
        ListIt->Caption = String(i+1); // number 
        ListIt->SubItems->Add(br->UserName); // Name 
        ListIt->SubItems->Add(br->ClientIP); // Ip 
        ListIt->SubItems->Add(br->peerIp); // Peer Ip 
        ListIt->SubItems->Add(br->ClientPort); // port 
        ListIt->SubItems->Add(br->peerPort); // port 
        ListIt->SubItems->Add("Connected"); // Status 
       } 
      } 
     } 
    } 
    __finally 
    { 
     TCPServer->Contexts->UnlockList(); 
    } 
} 

這篇代碼有多個客戶端的支持？

Answer 1

TIdTCPServer支持多個網絡上的多個同時連接，並且工作得很好。如果您的客戶正在彼此序列化，那麼問題必須在您自己的代碼或網絡設置中。 Indy不會阻止多個客戶端同時連接到同一臺服務器。

更新：試試這個：

class TAddToListSync : public TIdSync 
{ 
protected: 
    TIdContext *FContext; 

    void __fastcall DoSynchronize() 
    { 
     TListItem *ListIt = frmServer->ListClient->Items->Add(); 
     ListIt->Caption = String(ListIt->Index+1); // number 
     ListIt->SubItems->Add(...); // Name 
     ListIt->SubItems->Add(FContext->Binding()->IP); // Ip 
     ListIt->SubItems->Add(FContext->Binding()->PeerIP); // Peer Ip 
     ListIt->SubItems->Add(FContext->Binding()->Port); // port 
     ListIt->SubItems->Add(FContext->Binding()->PeerPort); // port 
     ListIt->SubItems->Add("Connected"); // Status 
    } 

public: 
    __fastcall TAddToListSync(TIdContext *AContext) 
     : TIdSync(), FContext(AContext) 
    { 
    } 

    static void Add(TIdContext *AContext) 
    { 
     TAddToListSync *sync = new TAddToListSync(AContext); 
     sync->Synchronize(); 
     delete sync; 
    } 
}; 

void __fastcall TfrmServer::TCPServerConnect(TIdContext *AContext) { 
{ 
    CLIENT_AUTH(AContext); 
    TAddToListSync::Add(AContext); 
}