這兩天老大讓我實現一個簡單功能就是通過程式碼動態設定TIDTCPServer的Bindings屬性，剛開始我覺得這個問題So Easy，但是做著做著總是出現同樣一個錯誤不知道為什，這個問題一直糾結了我兩天時間終於在今天早上得以解決，在此同大家分享一下在這個過程中我是如何解決這問題的，同時也給以後遇到同樣問題的朋友做個參考。

1、首先我讓然大家看一下我做得簡單demo的介面

其功能時當點選btn1時客戶端給伺服器傳送hello，伺服器在接受請求時把接收到的字串賦給在Edit1編輯框。

2、在讓大家看看TIDTCPServer的屬性設定。

3、接下來在看看我的程式碼實現

void __fastcall TForm1::btn1Click(TObject *Sender)
{
if(this->idtcpclnt1->Connected() == false)
{
this->idtcpclnt1->Port = 5050;
this->idtcpclnt1->Host = "127.0.0.1";
this->idtcpclnt1->Connect();
}
 this->idtcpclnt1->IOHandler->WriteLn("hello");
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    this->idtcpsrvr1->Bindings->Items[0]->Port = 5050;
    this->idtcpsrvr1->Bindings->Items[0]->IP = "127.0.0.1";
    this->idtcpsrvr1->Bindings->Items[0]->IPVersion = Id_IPv4;
}

就是這樣一段簡單那的程式碼，卻重複出現同樣的錯誤，經過跟蹤每次在this->idtcpclnt1->Connect();時總是出現如下的錯誤：

在網上查這個錯誤得知：因為目標主機主動拒絕，連線不能建立。這通常是因為試圖連線到一個遠端主機上不活動的服務，如沒有伺服器應用程式處於執行狀態。明明設定了為什麼會出現這樣的錯誤，我很納悶，起初我懷疑是不是不能動態設定Bindings的屬性呢！但是在API上查到是可以實現的，所以我打消了不能實現的懷疑心態，就開始找原因，我把可能出現的原因做了總結

      1、通過對比的方式，跟蹤檢視變數值，看看在IDE上設定Bindings屬性和通過程式碼實現的某些區別。

      2、是不是程式碼本身就不正確，從而導致出現以上錯誤。

      3、在確定就是通過這樣方式實現的話，看是不是缺少某些關鍵性程式碼，所以出錯。

針對以上這三點我主意進行排查，得到的結果是

      1、對比不出什麼問題。

      2、既然對比不出問題，我就試著改變實現的的程式碼如下：

                 TIdSocketHandle *sh = this->idtcpsrvr1->Bindings->Add();
                  sh->Port = 5050;
                 sh->IP = "127.0.0.1";
                 sh->IPVersion = Id_IPv4;

                主意這段程式碼是替換FormCreate(TObject *Sender)函式中的程式碼，但是執行後還是出現上面的問題。

      3、換了程式碼還是出現問題，但是要確定你替換的程式碼，在理論上是講的通的，具有可行性，如果沒有依據那麼還要繼續修改替換程式碼。我確定就是這種方式，但是出錯，我             就想是不是缺少某些關鍵性程式碼。結果我加了一行程式碼如下：

            this->idtcpsrvr1->Bindings->Clear();
           TIdSocketHandle *sh = this->idtcpsrvr1->Bindings->Add();
           sh->IP = "127.0.0.1";
           sh->Port = 5050;
           sh->IPVersion = Id_IPv4;

          但執行跟蹤到this->idtcpsrvr1->Bindings->Clear();這行執行完，會出現另外一個錯誤如下：

          此時我就更納悶了，上一個問題沒有解決，新的問題又出現了，是不是加的不正確，經過在網上檢視到一篇部落格也是這樣寫的，就多了一行，於是我又給加了一行程式碼如              下：

           this->idtcpsrvr1->Bindings->Clear();
           TIdSocketHandle *sh = this->idtcpsrvr1->Bindings->Add();
           sh->IP = "127.0.0.1";
           sh->Port = 5050;
           sh->IPVersion = Id_IPv4;

           this->idtcpsrvr1->Active = true;

          結果又出現同樣一個錯誤如下：

          這下，有頭大了， 注意越是在這種情況下，越要相信這是可行的，這就越離成功不遠了。在網上查10038這個錯誤得到如下結論：操作試圖不是在套接字上進行。它可能           是套接字控制代碼引數沒有引用到一個合法套接字，或者是呼叫select()函式時，一個fd_set中的成員不合法。此時我就在想為什麼報出這樣的錯誤？突然我想是不是我在IDE            上設定TIDTCPServer屬性Active的問題，此時我就誕生一個想法：你都把它給激活了，等於它已經開啟監聽了，此時你在clear，是不是不合理。於是我就沿著這個思路，           先把IDE中的Active屬性給置為false，讓他先不活動，再試試可行不可行。經過除錯是可行的。此時我很激動，終於好了，問題找到了。結果是：

4、這個問題就是這樣解決的，當然不是上面文字所能表達完的，在這過程中我也走了不少彎路。所以我再次總結一下遇到問題時的我們應該如何解決：

     1、首先要確認這個問題是不是可以解決，要查資料。

     2、如果可以解決，再看看問題出在哪兒，這個問題實質是什麼。

     3、弄清問題的實質，再看看自己處理的是否恰當，如果不恰當要另尋解決方案。

     4、每換一種解決方案時，要確認這種解決方案的可行性，要論證它。

     5、如果解決方案一旦確定還出現問題，那就要綜合考慮，那一部分可能出現小小問題，此時離問題解決已經不遠了。

     6、找出這個小問題，那麼就解決了整個大問題。

5、這是我的心得，如果哪位朋友有什麼好的意見請留言，或者發到我的郵箱[email protected]，謝謝觀看。