引言: 假如我先按下連線按鈕之後再按傳送資料按鈕，這樣資料可以成功傳送出去， 但是如果我把連線的程式碼搬到傳送資料按鈕裡面去，就會造成程式一執行 如果太快按傳送資料按鈕，資料好像沒送出去，等幾秒之後再按傳送資料就 可以成功傳送，我想是不是因為還沒有連線成功就傳送資料的關係，所以想 請問如何判斷ClientSocket目前的連線狀態？我想知道它是否已經成功的和 server取得連線。

//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
BOOL bConnected = FALSE;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
// OnConnect
void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
      TCustomWinSocket *Socket)
{
  bConnected = TRUE;
}
//---------------------------------------------------------------------------
// OnDisconnect
void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
  bConnected = FALSE;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (bConnected)
  {
    // Send packet......
  }
}
//---------------------------------------------------------------------------

引言:

引言: 假如我先按下連線按鈕之後再按傳送資料按鈕，這樣資料可以成功傳送出去， 但是如果我把連線的程式碼搬到傳送資料按鈕裡面去，就會造成程式一執行 如果太快按傳送資料按鈕，資料好像沒送出去，等幾秒之後再按傳送資料就 可以成功傳送，我想是不是因為還沒有連線成功就傳送資料的關係，所以想 請問如何判斷ClientSocket目前的連線狀態？我想知道它是否已經成功的和 server取得連線。

一個比較準確的方式是利用TClientSocket會在連線後觸發的OnConnect事件, 在這裡設置一個Flag就知道是否已連線.

//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
BOOL bConnected = FALSE;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
// OnConnect
void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
      TCustomWinSocket *Socket)
{
  bConnected = TRUE;
}
//---------------------------------------------------------------------------
// OnDisconnect
void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
  bConnected = FALSE;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (bConnected)
  {
    // Send packet......
  }
}
//---------------------------------------------------------------------------

引言: 我有在Connect事件中放一個ShowMessage("連線成功"),但是如果server沒開這個事件還是會被觸發,所以我覺得這個事件好像不是連線成功才會觸發的,而是連線中就會觸發了!