//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 Server->DefaultPort=7777;
}
//---------------------------------------------------------------------------    void __fastcall TForm1::ServerConnect(TIdPeerThread *AThread)
{
 ShowMessage(AThread->Connection->Socket->Binding->PeerIP);
}
//---------------------------------------------------------------------------    void __fastcall TForm1::ServerDisconnect(TIdPeerThread *AThread)
{
 ShowMessage(AThread->Connection->Socket->Binding->PeerIP);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Server->Active=True;
}
//---------------------------------------------------------------------------

以上是Server端的程式,但是我用Client連線時,卻會在Server端ShowMessage兩次Client端的IP,這是什麼原因(我還沒按Client離線),照理來說應該只ShowMessage一次而已才對(PS:我使用INDY元件寫)以下是我的Client端的程式

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 Client->Port=7777;
 Client->Host="127.0.0.1";
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Client->Connect();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 Client->Disconnect();
}
//--------------------------------------------------------------------------- 

試看看加一行,但為什麼我也不知道. void __fastcall TForm1::ServerConnect(TIdPeerThread *AThread) { ShowMessage(AThread->Connection->Socket->Binding->PeerIP); AThread->Connection->CurrentReadBuffer(); }

就我所知,Indy 的WinSocket元件基本上是Sync(同步)的,因此當您的Client端 與Server端建立連線並尋求服務後即會被離線(因為Server端的Thread已結束), 至於如何去Implement一個Indy TCP Server程式,我想您可以參考Indy提供的 Demo程式, TCPStreamClientServer, 在BCB的Demos\Indy下應該找得到.    至於TCP在實作上的Sync(同步)與ASync(非同步)的差異,就我本身有限的認知 上來說,在ASync模式下TCP Server 載明的IP:Port負責Listening Client端的 連線要求,並在接受(Accept)連線要求後,會另外產生一個Socket負責Service 這個Client端的連線,而所有額外產生用來服務個別Client連線的Socket在執行 時是共用同一個Thread的.    而Sync形式的TCP Sevver,用來服務Client端的Socket是個別獨立的Thread的.    Note: 就是 Blocking & Non-Blocking 了.    個人觀點, 有誤請指正, TKS.