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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |