Indy OnExecute不被觸發的問題 |
|
答題得分者是：ikk
|
|
GrandRURU
站務副站長   發表：240 回覆：1680 積分：1874 註冊：2005-06-21 發送簡訊給我 |
Indy每個版本修改的幅度好像都很大
改完的demo一直不太正常，很是困擾… 在完成 Ｏｎconnect()事件後，應該是會呼叫 ＯｎExecute()事件才是…但不知道為何都沒反應 以下是相關的程式段內容… [code cpp] //--------------------------------------------------------------------------- void __fastcall TfrmMain::ServerExecute(TIdContext *AContext) { ((TChatContextData*)(AContext->Data))->CheckMsg(AContext); } //--------------------------------------------------------------------------- void __fastcall TfrmMain::ServerConnect(TIdContext *AContext) { AnsiString s; AContext->Data = new TChatContextData; //定自義物件指向到MainForm的方法，不知道這樣寫對不對... ((TChatContextData*)AContext->Data)->OnMsgAvail = &MsgAvail; s = edUserPrompt->Text char(13) char(10); TIdIOHandler* IOH = AContext->Connection->IOHandler; IOH->WriteLn(s); TIdSocketHandle *ISH = AContext->Binding(); Log("Client connection established from ip: " ISH->PeerIP, clBlue); } //--------------------------------------------------------------------------- // Client 連線的函式 void __fastcall TfrmMain::btnTestClientClick(TObject *Sender) { ShellExecute(Handle, "OPEN", "Telnet", PChar(("localhost " IntToStr(Server->DefaultPort)).c_str()), NULL, SW_SHOWNORMAL); } [/code] 編輯記錄
GrandRURU 重新編輯於 2009-08-14 08:18:55， 註解 一直到結案為止，這問題還是無法解決，感謝回應的同好。‧
|
|
ikk
尊榮會員 發表：4 回覆：413 積分：768 註冊：2003-06-30 發送簡訊給我 |
|
|
GrandRURU
站務副站長 發表：240 回覆：1680 積分：1874 註冊：2005-06-21 發送簡訊給我 |
發表時間：2009-04-10 13:15:09
IP:203.75.xxx.xxx 未訂閱
系統時間：2024-11-21 19:41:00
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |