图老师小编精心整理的delphi编写你的第一个com程序希望大家喜欢，觉得好的亲们记得收藏起来哦！您的支持就是小编更新的动力~
【 tulaoshi.com - 编程语言 】
DELPHI菜单:
FileNewOther…
按确定[ok]按钮
点击FileSave菜单保存:
输入工程名MyCOM
按保存按钮
再打开菜单FileNewOther…
按[OK}按钮;
在CoClassName打入MyObject
按OK
在IMyObject上按MOUSE右键
ImyObjectNewMethod
在Name处输入Test
切换到Parameters页次
按Add两下
将第一个Parameters的Name改成PsParam1, Type打入BSTR
将第二个Parameters的Name改成PsResult, Type打入BSTR*
将MOUSE点到第二个Parameters的Modifier字段处
按 “…” 按键
将RetVal打勾
按OK
(原来的[in]变成了[out,retval], 表示这个是要回传的, 其型态为字符串)
关掉这个窗口
(你会看到它帮你建好了CODE的模型)
FileSave
输入文件名MyObject
按保存
改一下CODE
按一下Ctrl+S保存
ProjectBuild MyCOM
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/bianchengyuyan/）
就可以看到生成了一个MYCOM.DLL文件，
这就是你要的COM组件了，用Regsvr32命令注册这个组件后就可使用了。
下面再讲调用这个COM组件的方法：
New 一个新的Application
在uses 中加一个Comobj
放一个button在FORM中
在button的onClick事件中打入以下的Code: ？xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
代码:
var
MyObject: OleVariant;
begin
MyObject:=CreateOleObject('MyCOM.MyObject');
try
ShowMessage(MyObject.Test('黎明'));
finally
VarClear(MyObject);
end;
end;
执行.....并按Button1按键
你会看到一个Message...那就是执行COM对象的Test方法的回传值
来源:http://www.tulaoshi.com/n/20160219/1611937.html
看过《delphi编写你的第一个com程序》的人还看了以下文章 更多>>
