图文并茂:delphi 编写你的com程序

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打勾，按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实现QQ窗体的缩入伸出功能
下一篇： Delphi编程使用HOOK监视Windows

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有