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打勾
(原来的[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方法的回传值
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18