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 mscomnn1 判断com口是否打开

Delphi 封装frame到dll文件

Delphi 遍历fdquery1所有结果

Delphi 无边框窗体常见问题

idhttp获取文件大小的代码

Delphi 解决“richedit line insertion error”错误

Delphi2007-Delphi2010 程序不出现在任务栏的方法

cnvcl 组件包

Delphi的串口通讯,数据接收实时性太差

Delphi tdatetime 日期时间值的比较

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



打赏

取消

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

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

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

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

评论

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