WEB开发网
开发学院软件开发Delphi delphi编写你的第一个com程序 阅读

delphi编写你的第一个com程序

　2006-02-04 13:56:35　来源：WEB开发网　　　
核心提示： DELPHI菜单:File\New\Other…按确定[ok]按钮点击File\Save菜单保存:输入工程名MyCOM按保存按钮再打开菜单File\New\Other… 按[OK}按钮;在CoClassName打入MyObject按OK在IMyObject上按MOUSE右键ImyObject\New\Method在N
 

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

Tags：delphi 编写 一个

编辑录入：爽爽　[复制链接] [打 印]
更多精彩
赞助商链接

热点阅读
焦点图片
最新推荐
精彩阅读