其他语言

位置:IT落伍者 >> 其他语言 >> 浏览文章

Delphi编写你的第一个COM程序


发布日期:2019年08月06日
 
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改成PsParam Type打入BSTR

将第二个Parameters的Name改成PsResult Type打入BSTR*

将MOUSE点到第二个Parameters的Modifier字段处

按键

将RetVal打勾

按OK

(原来的[in]变成了[outretval] 表示这个是要回传的 其型态为字符串)

关掉这个窗口

(你会看到它帮你建好了CODE的模型)

File\Save

输入文件名MyObject

按保存

改一下CODE

按一下Ctrl+S保存

Project\Build MyCOM

就可以看到生成了一个MYCOMDLL文件

这就是你要的COM组件了用Regsvr命令注册这个组件后就可使用了

下面再讲调用这个COM组件的方法

New 一个新的Application

在uses 中加一个Comobj

放一个button在FORM中

在button的onClick事件中打入以下的Code:

代码:

var

MyObject: OleVariant;

begin

MyObject:=CreateOleObject(MyCOMMyObject);

try

ShowMessage(MyObjectTest(黎明));

finally

VarClear(MyObject);

end;

end;

执行并按Button按键

你会看到一个Message那就是执行COM对象的Test方法的回传值

               

上一篇:用Delphi实现局域网内消息传递

下一篇:新手知识大放送:Delphi入门点点滴滴