delphi创建com组件示例.doc

作者:advancer
QQ:32333128
主页：HYPERLINK"http://www.itzhishi.com"http://www.itzhishi.com

实现步骤:
(1)打开delphi7
(2)file-new-other-activex,选择activexlibrary如下图

（3）保存MyComTwo.dpr
(4)file-new-other-activex,选择comobject如下图:

新建接口以及接口实现类:IUserMange,UserManage

创建接口的一个方法GetUserName

函数方法是：
1
2
3
4
5//实现接口函数
functionTUserManage.GetUserName(constUserId:WideString):WideString;
begin
Result:='com返值:'+UserId;
end;
编译：形成MyComTwo.dllcom组件
注册成系统组成:regsvr32c:\xxx\xxxx\mycomtwo.dll
至些创建com组件完成
出处:It知识HYPERLINK"http://www.itzhishi.com/d/Delphi/delphi-com/228"http://www.itzhishi.com/d/Delphi/delphi-com/228