我使用SetverSocket和ClientSocket元件,寫一個簡單的傳遞資訊的程式. 但程式段在確認Server端是否有開啟,出現了一些錯誤. 底下為程式碼: <textarea class="cpp" rows="10" cols="60" name="code"> void __fastcall TForm1::FormCreate(TObject *Sender) { ServerSocket1->Port=100; ServerSocket1->Active=true; ClientSocket1->Address="127.0.0.1"; ClientSocket1->Port=Edit2->Text.ToInt(); ClientSocket1->Active=true; if (ClientSocket1->Socket->Connected) Memo1->Lines->Add("連線成功"); else Memo1->Lines->Add("連線失敗"); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { if (ClientSocket1->Socket->Connected) Memo1->Lines->Add("連線成功"); else Memo1->Lines->Add("連線失敗"); }</textarea> 為什麼FormCreate時,都會出現"連線失敗"的訊息,正常應該要出現"連線成功"才對. 但一定要手動按下Button1才會出現"連線成功". 請問有誰可以跟我講為什麼會這樣呢? 判斷Server是否存在還有什麼比較好的方法呢? 謝謝.

我的經驗是Form在Create的時候，置於其上的一些VCL元件本身還未完成自身的建構(Construction)，因此儘量不要在FormCreate的時候去做一些複雜元件的動作。
要不然就使用DATAMODULE把socket放在裡面，在FORM之前先CREATE起來後USES那個DATAMODULE後使用SOCKET。

編輯記錄

請問一下:
1.不知道是否可以寫一個簡單的程式說明呢?
2.判斷Server存在的方法,如果不知道Server IP的話,是否有其它的方式可以取得server狀況?
謝謝.

TForm Activate 後才會輪到 ClientSocket Connect 所以在此之前
即使你已經把 ClientSocket->Active = true 或是 ClientSocket->Open()
但是實際連結動作並未開始

------
~§~迷時師渡，悟了自渡~§~

TCP/IP通信最重要的兩個因素就是ip及port，如果不知道ip那要怎麼通信呢？如果client端可以間接取得server端的IP，那麼勢必兩端必須在一個約定好的地點讓client端可以取得server端送來變動的ip及port資訊，如此才有可能聯繫的上。

你知道你叫它 connect 它要做多少事嗎？
你知道你的網路有多快嗎？
就這麼一行，而這一行並不會是處理完才跑下一行的方式。
所以當它跑到下一行時，它的連線還沒完成。
你可以利用 onconnected 那些的 event 去測試。
去修改你的程式。讓你的程式符合你要的動作。
這個我至少已經回了三次了。查一下古文吧。