我使用Indy9的TIdTCPServer元件寫了一小段程式碼如下:

<textarea class="cpp" rows="10" cols="60" name="code"> void __fastcall TForm1::FormCreate(TObject *Sender) { IdTCPServer1->DefaultPort = 1000; receive = new TFileStream("C:\\20070130-1.log", fmCreate); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { IdTCPServer1->Active = true; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action) { delete receive; receive = NULL; } //--------------------------------------------------------------------------- void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread) { int bytes = AThread->Connection->ReadInteger(true); AThread->Connection->ReadStream(receive, bytes, false); //receive->Write(receive, bytes); } </textarea>
我設中斷點在onExecute事件中, 可是在button1click事件之後, 程式始終沒有跑進onExecute事件.
麻煩各位先進指導, 謝謝

(1)TIdTCPServer元件的OnExecute Event Procedure並不是在元件被啟動的時候觸發，而是有Client連結的時候才會觸發
(2)所以你自己可以先利用TIdTCPClient元件寫一個簡單的Client程式來做測試
(3)這裡有一個範例可以參考 http://delphi.ktop.com.tw/board.php?cid=168&fid=920&tid=36068

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --

多謝您的指導, 問題已經解決