一般使用mscomm只需要將mscomm的圖示拉至Tform上即可 如果,要開發Console Application(也就是沒有Form的程式) 要如何使用mscomm或者vcl元件??

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

不太懂 有沒有實際的範例 我要在console application中使用mscomm32.ocx 謝謝大家

我想您是不清楚如何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;