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 tms web core twebsocketclient

Delphi中始终用webbrowser打开网页

Delphi写qq消息群发(模拟按键精灵)

Delphi 程序嵌入桌面效果的实现

Delphi concat 字符串函数

Delphi 设置开机自动启动函数

Delphi中查找进程及强行结束进程的方法

Delphi开发平台 raw socket

Delphi getwindowhandle

Delphi stringtowidestring widestringtostring

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



打赏

取消

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

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

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

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

评论

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