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改成PsParam1, Type打入BSTR
將第二個Parameters的Name改成PsResult, Type打入BSTR*
將MOUSE點到第二個Parameters的Modifier字段處
按“…” 按鍵
將RetVal打勾
按OK
(原來的[in]變成了[out,retval], 表示這個是要回傳的, 其型態為字符串)
關掉這個窗口
(你會看到它幫你建好了CODE的模型)
File/Save
輸入文件名MyObject
按保存
改一下CODE
按一下Ctrl+S保存
PRoject/Build MyCOM
就可以看到生成了一個MYCOM.DLL文件，
這就是你要的COM組件了，用Regsvr32命令註冊這個組件後就可使用了。
下面再講調用這個COM組件的方法：
New 一個新的application
在uses 中加一個Comobj
放一個button在FORM中
在button的onClick事件中打入以下的Code:
代碼: |
var MyObject: OleVariant; begin MyObject:=CreateOleObject('MyCOM.MyObject'); try ShowMessage(MyObject.Test('黎明')); finally VarClear(MyObject); end; end; |
執行.....並按Button1按鍵
你會看到一個Message...那就是執行COM對象的Test方法的回傳值