熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

Delphi編寫你的第一個COM程序

2013-11-11 21:04:09  來源: Delphi編程 
DELPHI菜單:
  File\New\Other…
   

  



  按確定[ok]按鈕
  點擊File\Save菜單保存:
   

  



  輸入工程名MyCOM
  
  按保存按鈕
  
  再打開菜單File\New\Other…
   

  



  按[OK}按鈕;
   

  



  在CoClassName打入MyObject
  
  按OK
   

  



  在IMyObject上按MOUSE右鍵
  
  ImyObject\New\Method
  

  

  在Name處輸入Test
  
  切換到Parameters頁次
   

  

  按Add兩下
  
  將第一個Parameters的Name改成PsParam Type打入BSTR
  
  將第二個Parameters的Name改成PsResult Type打入BSTR*
  
  將MOUSE點到第二個Parameters的Modifier字段處
  
  按 按鍵
   

  

  將RetVal打勾
  
  按OK
   

  

  (原來的[in]變成了[outretval] 表示這個是要回傳的 其型態為字符串)
  
  關掉這個窗口

  

  

  (你會看到它幫你建好了CODE的模型)
  
  File\Save
   

  

  輸入文件名MyObject
  
  按保存
  
  改一下CODE
   

  

  按一下Ctrl+S保存
  
  Project\Build MyCOM
  

  

  就可以看到生成了一個MYCOMDLL文件
  這就是你要的COM組件了用Regsvr命令注冊這個組件後就可使用了
  
  下面再講調用這個COM組件的方法
  
  New 一個新的Application
  在uses 中加一個Comobj
  放一個button在FORM中
  在button的onClick事件中打入以下的Code:
  
  代碼:
  
  
  var
  MyObject: OleVariant;
  begin
  MyObject:=CreateOleObject(MyCOMMyObject);
  try
   ShowMessage(MyObjectTest(黎明));
  finally
   VarClear(MyObject);
  end;
  end;
  
  執行並按Button按鍵
  你會看到一個Message那就是執行COM對象的Test方法的回傳值


From:http://tw.wingwit.com/Article/program/Delphi/201311/8399.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.