ServerSocket/ClientSocket的奇怪現象之二 |
|
缺席
|
|
nlj859
資深會員   發表：139 回覆：375 積分：322 註冊：2004-03-20 發送簡訊給我 |
此簡單的程式段已在server端Active,由client連進server端.
但按了Button1之後,到最後的ClientSocket close的時候卻不會close.
還需要按下Button2之後才會close.
請問怎麼會這樣呢? 知道的人請告知一下要怎麼寫比較好?
謝謝. <textarea class="cpp" rows="10" cols="60" name="code">
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ClientSocket1->Address="127.0.0.1";
ClientSocket1->Port=9000;
ClientSocket1->Active=true;
if (ClientSocket1->Socket->Connected)
Memo1->Lines->Add("連線成功");
else
Memo1->Lines->Add("連線失敗");
ClientSocket1->Close();
}
//--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender)
{
ClientSocket1->Close();
}
</textarea>
|
|
harpist
資深會員  發表：3 回覆：251 積分：430 註冊：2002-10-03 發送簡訊給我 |
為什麼你認為 ClientSocket 沒有 Close 呢?
<textarea class="cpp" rows="10" cols="60" name="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { ClientSocket1->Address="127.0.0.1"; ClientSocket1->Port=9000; ClientSocket1->Active=true; if (ClientSocket1->Socket->Connected) Memo1->Lines->Add("連線成功"); else Memo1->Lines->Add("連線失敗"); ClientSocket1->Close(); if (ClientSocket1->Socket->Connected) Memo1->Lines->Add("Close 失敗"); else Memo1->Lines->Add("Close 成功"); } </textarea>
------
~§~迷時師渡，悟了自渡~§~
編輯記錄
harpist 重新編輯於 2007-05-06 10:43:50， 註解 無‧
|
|
nlj859
資深會員 發表：139 回覆：375 積分：322 註冊：2004-03-20 發送簡訊給我 |
|
|
Stallion
版主  發表：52 回覆：1600 積分：1995 註冊：2004-09-15 發送簡訊給我 |
發表時間：2007-05-06 08:32:36
IP:219.80.xxx.xxx 訂閱
系統時間：2024-04-27 5:00:22
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |