在 console application 中使用mscomm |
答題得分者是:chris_shieh
|
allen1025
一般會員 發表:4 回覆:4 積分:1 註冊:2002-06-17 發送簡訊給我 |
|
chris_shieh
高階會員 發表:46 回覆:308 積分:240 註冊:2004-04-26 發送簡訊給我 |
program consoleVCL uses ....IdIcmpClient;// 一樣把該Use 的Unit寫好 type TComponentClass = class (TComponent) procedure ICMPReply(ASender: TComponent; const ReplyStatus: TReplyStatus); //這是要assign給元件的事件宣告 private public end; var psConsole: TComponentClass; //這是方便我們操作的物件 ICMP:TIdIcmpClient; //這是你宣告的元件 ... ... procedure TComponentClass.ICMPReply(ASender: TComponent; const ReplyStatus: TReplyStatus); var .... begin //元件事件實作的程式碼 .... end; //程式開始 begin ... ... ICMP:=TIdIcmpClient.Create(psConsole); ICMP.OnReply:=psConsole.ICMPReply; //其餘操作同一般UI AP .... ICMP.Ping; //元件動作 .... end;發表人 - chris_shieh 於 2004/12/23 15:20:42 |
allen1025
一般會員 發表:4 回覆:4 積分:1 註冊:2002-06-17 發送簡訊給我 |
|
chris_shieh
高階會員 發表:46 回覆:308 積分:240 註冊:2004-04-26 發送簡訊給我 |
我想您是不清楚如何Create Type Library
先Import mscomm.ocx 的 Type Library給 Delphi用 方法:點選主選單 [Project] -> [Import Type Library]
如下圖選擇 Microsoft Comm Controls
按下Create Unit 產生 MSCommLib_TLB.pas
這就是我們要的Unit file
program consoleVCL uses ....MSCommLib_TLB;// 一樣把該Use 的Unit寫好 type TComponentClass = class (TComponent) procedure OnComm(Sender: TOBject); //這是要assign給元件的事件宣告,在VCL下操作如何宣告就照抄 private public end; var psConsole: TComponentClass; //這是方便我們操作的物件 mscomm:TMSComm; //這是你宣告的元件 ... ... procedure TComponentClass.OnComm(Sender: TOBject); var .... begin //元件事件實作的程式碼 .... end; //程式開始 begin ... ... //其餘操作同一般UI AP mscomm:=TMSComm.Create(psConsole); mscomm.OnComm:=psConsole.OnComm; .... mscomm.SThreshold:=100; //元件動作 mscomm.Interval:=100; //元件動作 .... end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |