按確定[ok]按鈕
點擊FileSave菜單保存:
輸入工程名MyCOM
按保存按鈕
再打開菜單FileNewOther…
按[OK}按鈕;
在CoClassName打入MyObject
按OK
在IMyObject上按MOUSE右鍵
ImyObjectNewMethod
在Name處輸入Test
切換到Parameters頁次
按Add兩下
將第一個Parameters的Name改成PsParam1, Type打入BSTR
將第二個Parameters的Name改成PsResult, Type打入BSTR*
將MOUSE點到第二個Parameters的ModifIEr字段處
按 “…” 按鍵
將RetVal打勾
按OK
(原來的[in]變成了[out,retval], 表示這個是要回傳的, 其型態為字符串)
關掉這個窗口
(你會看到它幫你建好了CODE的模型)
FileSave
輸入文件名MyObject
按保存
改一下CODE
按一下Ctrl+S保存
ProjectBuild MyCOM
就可以看到生成了一個MYCOM.DLL文件，
這就是你要的COM組件了，用Regsvr32命令注冊這個組件後就可使用了。
下面再講調用這個COM組件的方法：
New 一個新的Application
在uses 中加一個Comobj
放一個button在FORM中
在button的onClick事件中打入以下的Code: <?XML:namespace prefix = o ns = "urn:schemas-microsoft-com:office:Office" />
代碼:
var
MyObject: OleVariant;
begin
MyObject:=CreateOleObject('MyCOM.MyObject');
try
ShowMessage(MyObject.Test('黎明'));
finally
VarClear(MyObject);
end;
end;
執行.....並按Button1按鍵
你會看到一個Message...那就是執行COM對象的Test方法的回傳值
