delphi编写你的第一个com程序


本文整理自网络,侵删。

 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方法的回传值

相关阅读 >>

Delphi idhashmessagedigest, idhash, idglobal md5

Delphi整理七(function and procedure)

Delphi用twebbrowser组件在Delphi中post数据和取得网页源文件

检测是否按下键盘或鼠标,如果超过5分钟没有操作则认为用户已经离开

Delphi 2010 域名转换ip

Delphi opendialog文件过滤类型

Delphi 进程保护

Delphi 逐个分解后字符串加载到stringgrid1

Delphi 判断文件是否被使用

Delphi 虚拟键码对照表

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...