我原本是使用socketclient去連socketserver但因為要傳封包,所以改用IdTCPClient,但是卻從一開始IdTCPClient要連IdTCPSERVER都有問題 IdTCPClient的設定為: HOSE:127.0.0.1 ,PORT:4000 void __fastcall TForm1::Button1Click(TObject *Sender) { IdTCPClient1->Connect(); } //----------------------------------------------------- IdTCPSERVER端為 Defult Port:4000 void __fastcall TForm1::FormCreate(TObject *Sender) { IdTCPServer1->Active = true; } //------------------------------------------- 請各位幫忙看一下還有其他問題嗎

引言: 我原本是使用socketclient去連socketserver但因為要傳封包,所以改用IdTCPClient,但是卻從一開始IdTCPClient要連IdTCPSERVER都有問題 IdTCPClient的設定為: HOSE:127.0.0.1 ,PORT:4000 void __fastcall TForm1::Button1Click(TObject *Sender) { IdTCPClient1->Connect(); } //----------------------------------------------------- IdTCPSERVER端為 Defult Port:4000 void __fastcall TForm1::FormCreate(TObject *Sender) { IdTCPServer1->Active = true; } //------------------------------------------- 請各位幫忙看一下還有其他問題嗎

紅色地方是打錯還是原來就這樣，HOST 數學 程式 經驗=不懂^^

where is the "IdTCPServer1Execute"?

void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread)
{    }

那是打錯,謝謝

void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread) { // } //--------------------------------------------------------------------

OnExecute is an event handler for TIdServerThreadEvents. OnExecute occurs when a TIdPeerThread attempts to perform the TIdPeerThread.Run method. OnExecute receives AThread as a parameter, representing the TIdPeerThread thread that will be started.    Normally, it should look like this :

void __fastcall TMainForm::TCPServerExecute(TIdPeerThread *AThread)
{
        AnsiString asTemp;            asTemp = AThread->Connection->ReadLn(LF, IdTimeoutInfinite, -1);
        if (asTemp == "QUIT")
        {       AThread->Connection->Disconnect();      }
}

還是不行 我有用另一台電腦 裝bcb6沒更新新的indy 結果是可以連線 但是在更新indy後的就一直出現error

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.