我是使用TClientSocket元件,在Client端想一開啟程後就馬上偵測server端有沒有開啟,如果沒有開啟,client端的某個按鈕將被disable,server端被開啟,client端的按鈕馬上被enable,請問這該如何寫? 謝謝.     

void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
Label1->Caption=ClientSocket1->Socket->ReceiveText();
}
//---------------------------------------------------------------------------    void __fastcall TForm1::FormCreate(TObject *Sender)
{
    ClientSocket1->Address="127.0.0.1";
    ClientSocket1->Port=500;
    ClientSocket1->Active=true;
}
//---------------------------------------------------------------------------    void __fastcall TForm1::ClientSocket1Connecting(TObject *Sender,
      TCustomWinSocket *Socket)
{
    Label3->Caption="online";
    Button1->Enabled=true;
    ClientSocket1->Socket->SendText("G");
}
//---------------------------------------------------------------------------    void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
    Label3->Caption="offline";
    Button1->Enabled=false;
}
 

這個程式總是要server端要先開啟,client端才會正確反應,當我client端先開啟的話,程式就會出錯..請問這該如何修改程式? 發表人 - nlj859 於 2004/05/08 12:32:44

在client的error事件中，試著加入這  

 
void __fastcall TForm1::ClientSocket1Error(TObject *Sender,
      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
    ErrorCode = 0;
    Label3->Caption="offline";
    Button1->Enabled=false;
}

看看有沒有幫助~ 試試看~ 國泰平安

似乎不行,這樣的話,如果是client先開再開server,那這樣他還是沒辦法去偵測到server是否已經連線了.. 我試過onConnect的event,但結果還是一樣.. 不曉得還有沒有其他辦法? 謝謝

我的方法是使用Timer偵測。 每次Timer執行時， ClientSocket1->Active=false; ClientSocket1->Active=true; 直到沒有ClientSocket1Error，再close Timer。