2024年3月14日发(作者：)
Ｄｅｌｐｈｉ ＤｃｏＭ。缀 发 ；Ⅲ＝ ｜｜｜ ≯ｊ｜
魏景东
摘要：介绍了ＭＳ ＤＣＯＭ组件的概念，并通过一个实例详细介绍其制作注册及其调用方法。
关键词：Ｄｅｌｐｈｉ７．０；ＣＯＭ／ＤＣＯＭ；接口；ＣＯＲＢＡ；Ｊａｖａ Ｂｅａｎｓ
１ ＤＣＯＭ概念及作用
ＤＣＯＭ是一种服务器，它将自己的服务包装在一个库中，
而自身以对象的形式出现，其子函数叫做方法，由于在网络上
的分布计算机上执行．全称是Ｄｉｓｔｒｉｂｕｔｅｄ Ｃｏｍｐｏｎｅｎｔ Ｏｂｊｅｃｔ
Ｍｏｄｕｌｅ组件对象模板。
在构件与开放分布式系统模型理论中，有３种技术规范或
体系结构占主导地位．它们是ＣＯＭ／ＤＣＯＭ ｆＣｏｍｐｏｎｅｎｔ Ｏｂｊｅｃｔ
Ｍｏｄｕｌｅ／Ｄｉｓｔｒｉｂｕｔｅｄ Ｃｏｍｐｏｎｅｎｔ Ｏｂｊｅｃｔ Ｍｏｄｕｌｅ）、Ｊａｖａ Ｂｅａｎｓ、
ＣＯＲＢＡ ｆＣｏｍｍｏｎ Ｏｂｊｅｃｔ Ｒｅｑｕｅｓｔ Ｂｒｏｋｅｒ Ａｒｃｈｉｔｅｃｔ）。ｃ０Ｍ／ＤＣ０Ｍ
是Ｍｉｅｒｏｓｏｆｔ独家发布的构件对象模式技术规范，Ｊａｖａ Ｂｅａｎｓ是
ＳＵＮ在１９９４年１２月提出的基于Ｊａｖａ语言的构件模型．
ＣＯＲＢＡ是由ＯＭＧ（Ｏｂｊｅｃｔ Ｍａｎａｇｅｍｅｎｔ Ｇｒｏｕｐ）在１９８９年提出
的．得到了ＩＢＭ、Ｍｉｃｒｏｓｏｆｔ、Ｓｕｎ、ＨＰ、Ｏｒａｃｌｅ、ＤＥＣ等公司
的广泛支持。主要探讨ＤＣＯＭ技术的应用．ＤＣＯＭ是ＣＯＭ
的一种形式。ＣＯＭ一般在本地执行，而ＤＣＯＭ可看作是分
布式的ＣＯＭ，一般在网络上的分布计算机上执行。ｃ０Ｍ一般
有两种形式，即动态链接库和可执行文件形式，而ＤＣＯＭ必
需是可执行文件程序（ＤＣＯＭ是分布式的ＣＯＭ，是不能在客
户程序的内存空问运行的，Ｍｉｃｒｏｓｏｆｔ Ｏｍｃｅ Ｅｘｃｅｌ就是一个典
型的ＤＣＯＭ组件）。在ＣＯＭ／ＤＣＯＭ应用中，客户程序不必知
道ＤＣ０Ｍ的存在形式和所处位置，只须知到统一接口即可。
ＣＯＭ ｆ动态连接库形式）可以不用ＲＰＣ通信，而ＤＣＯＭ必
须使用ＲＰＣ远程调用。
ＣＯＭ ｆ动态连接库形式）与客户共同存在于同一内存空间，
调用速度快，ＤＣＯＭ的速度只有Ｃ０Ｍ的万分之一。
ＣＯＭ ｆ动态连接库形式）的安全性不高，客户程序可以造成
服务ＣＯＭ发生错误。ＤＣＯＭ安全性高，原因也是ＣＯＭ与客户
程序共用内存空间造成的。
ＣＯＭ程序配置简单，ＤＣＯＭ配置较复杂．毕竟ＤＣＯＭ牵涉到
网络和安全性。
２ ＤＣＯＭ组件的制作及调用方法
为便于说明问题．假设该实例要作的ＤＣＯＭ组件中仅有
如下两个方法：
ｐｒｏｃｅｄｕｒｅ ＧｅｔＮａｍｅ（ｏｕｔ ＳｅｒｖｅｒＮａｍｅ：ＷｉｄｅＳｔｒｉｎｇ）；
ｓａｆｅｃａｌｌ；
ｐｒｏｃｅｄｕｒｅ Ａｄｄ｛Ｉｎｘｌ，Ｉｎｘ２：Ｄｏｕｂｌｅ；ｏｕｔ ＯｕｔＸ：Ｄｏｕｂｌｅ）；
ｓａｆｅｃａｌｌ；
第一个方法功能返回一个预定的字符串，第二个方法将两
个双精度数相加并返回结果（实际的ＤＣＯＭ组件可能要复杂
的多）。
２．１ ＤＣＯＭ组件的制作
打开Ｄｅｌｐｈｉ７．０开发环境，点顶菜单Ｆｉｌｅ—Ｎｅｗ一十０ｒｔｈｅｒ＿
弹出Ｎｅｗ Ｉｔｅｍｓ对话框。单击ＡｃｔｉｖｅＸ标签，打开ＡｃｔｉｖｅＸ选项
卡。双击Ａｕｔｏｍａｔｉｏｎ Ｏｂｊｅｃｔ弹出Ａｕｔｏｍａｔｉｏｎ Ｏｂｊｅｃｔ Ｗｉｚａｒｄ引导
窗口如图１所示。
图１ Ａｕｔｏｍａｔｉｏｎ Ｏｂｊｅｃｔ Ｗｉｚａｒｄ引导窗口
在图１输入类名称、线程模型等参数，类名可任取，本
例取ＥｘａｍｐＤｃｏｍ，其他选缺省后点击“ＯＫ”按钮启动Ｔｙｐｅ
Ｌｉｂｒａｒｙ Ｅｄｉｔｏｒ，使用该编辑器创建上述两个方法，如图２所
示。
图２使用Ｔｙｐｅ Ｌｉｂｒａｒｙ Ｅｄｉｔｏｒ创建方法示意图
之后点击该编辑器顶部Ｒｅｆｒｅｓｈ按钮．创建的方法定义就
自动出现在ｕｎｉｔ２单元的编码中。
盛壤
………～…… …… 一…… ……… …… … “ …
实用第一 智慧密集
在ｕｎｉｔ２单元中找到方法定义，为Ｇｅｔｎａｒｎｅ、Ａｄｄ分别添
加编码ＳｅｒｖｅｒＮａｍｅ：＝ ＤＣＯＭ服务器例程 ；，０ｕｔＸ：＝Ｉｎｘｌ＋Ｉｎｘ２；。
在ｕｎｉｔ１单元的ｆｏｒｍｌ窗体上添加一个Ｔｉｍｅｒｌ，一个
Ｌａｂｅｌｌ。ｆｏｒｍｌ窗体的最终设计如图３所示。
图３ Ｆｏｒｍ１窗体示意图
保存＿丁＝程，将ｕｎｉｔｌ保存为Ｕｎｉｔ＿Ｅｘａｍ．ｐａｓ，ｕｎｉｔ２保存为
Ｕｎｉｔ
ＥｘａｍＤｃｏｍ．ｐａｓ，工程本身保存为Ｕｎｉｔ＿Ｅｘａｍ１．ｄｐｒ。
Ｕｎｉｔ Ｅｘａｍ．ｐａｓ的完整编码如下：
ｕｎｉｔ Ｕｎｉｔ Ｅｘａｍ；
ｉｎｔｅｄａｃｅ
ＵＳｅＳ
Ｗｉｎｄｏｗｓ，Ｍｅｓｓａｇｅｓ，ＳｙｓＵｔｉｌｓ，Ｖａｒｉａｎｔｓ，Ｃｌａｓｓｅｓ
Ｇｒａｐｈｉｃｓ，Ｃｏｎｔｒｏｌｓ。Ｆｏｒｍｓ。
Ｄｉａｌｏｇｓ，ＳｔｄＣｔｒｌｓ，ＥｘｔＣｔｒｌｓ；
ｔｙｐｅ
ＴＦＯｒｍ １＝ｃｌａｓｓ（ＴＦｏｒｍ）
Ｔｉｍｅｒ１：ｌ－Ｔｉｍｅｒ；
Ｌａｂｅｌ１：ＴＬａｂｅｌ；
ｐｒｏｃｅｄｕｒｅ ＦｏｒｍＣｒｅａｔｅ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）：
ｐｒｏｃｅｄｕｒｅ ＴｉｍｅｒｌＴｉｍｅｒ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；
ｐｒｉｖａｔｅ
｛Ｐｒｉｖａｔｅ ｄｅｃｌａｒａｔｉｏｎｓ）
ｐｕｂｌｉｃ
｛Ｐｕｂｌｉｃ ｄｅｃｌａｒａｔｉｏｎｓ）
ｅｎｄ；
Ｖａｒ
Ｆｏｒｍ１：ＴＦＯｒｍ１：
ｉｍｐｌｅｍｅｎｔａｔｉｏｎ
ｕｓｅｓ Ｕｎｉｔ
—
ＥｘａｍＤｃｏｍ，Ｕｎｉｔ
—
＿ＴＬＢ—ＴＬＢ
｛￥Ｒ ．ｄｆｍｌ
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ １．ＦｏｒｍＣｒｅａｔｅ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；
ｂｅｇｉｎ
ｆＯｒｍ１．Ｈｉｄｅ；
ｅｎｄ；
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．Ｔｉｍｅｒ１Ｔｉｍｅｒ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；
ｂｅｇｉｎ
ｆ０ｒｍ１．Ｈｉｄｅ；
ｅｎｄ；
ｅｎｄ．
Ｕｎｉｔ
—
ＥｘａｍＤｃｏｍ．ｐａｓ的完整编码如下：
ｕｎｉｔ Ｕｎｉｔ ＥｘａｍＤｃｏｍ：
｛￥ＷＡＲＮ ＳＹＭＢＯＬＰＬＡＴＦＯＲＭ ＯＦＦ）
ｉｎｔｅｄａｃｅ
３０ 蠢涵２０ １穗２．瞌１２窍１与维 ｉ《
ＵＳｅＳ
ＣｏｍＯｂｊ，ＡｃｔｉｖｅＸ，Ｕｎｉｔ＿ＴＬＢ＿ＴＬＢ，ＳｔｄＶｃｌ；
ｔｙｐｅ
ＴＥｘａｍｐＤｃｏｍ＝ｃｌａｓｓ（ＴＡｕｔｏＯｂｊｅｃｔ，Ｉ ＥｘａｍｐＤｃｏｍ）
ｐｒｏｔｅｃｔｅｄ
ｐｒｏｃｅｄｕｒｅ ＧｅｔＮａｍｅ（ｏｕｔ ＳｅｒｖｅｒＮａｍｅ：ＷｉｄｅＳｔｒｉｎｇ）；ｓａｆｅｃａｌｌ；
ｐｒｏｃｅｄｕｒｅ Ａｄｄ（Ｉｎｘ１．Ｉｎｘ２：Ｄｏｕｂｌｅ；ｏｕｔ ＯｕｔＸ：Ｄｏｕｂｌｅ）；
ｓａｆｅｃａｌｌ；
ｅｎｄ；
ｉｍｐｔｅｍｅｎｔａｔｉｏｎ
ｕｓｅｓ ＣｏｍＳｅｒｖ；
ｐｒｏｃｅｄｕｒｅ ＴＥｘａｍｐＤｃｏｍ．ＧｅｔＮａｍｅ（ｏｕｔ ＳｅｒｖｅｒＮａｍｅ：
ＷｉｄｅＳｔｒｉｎｇ）；
ｂｅｇｉｎ
ＳｅｒｖｅｒＮａｍｅ：＝ ＤＣＯＭ服务器例程
ｅｎｄ；
ｐｒｏｃｅｄｕｒｅ ＴＥｘａｍｐＤｃｏｍ．Ａｄｄ（Ｉｎｘｌ，Ｉｎｘ２：Ｄｏｕｂｌｅ；ｏｕｔ
ＯｕｔＸ：Ｄｏｕｂｌｅ）；
ｂｅｇｉｎ
ＯｕｔＸ：＝ｌｎｘｌ ４－Ｉｎｘ２；
ｅｎｄ；
ｉｎｉｔｉａｌｉｚａｔｉｏｎ
ＴＡｕｔｏＯｂｊｅｃｔＦａｃｔｏｒｙ．Ｃｒｅａｔｅ（ＣｏｍＳｅｒｖｅｒ，ＴＥｘａｍｐＤｃｏｍ，
Ｃｌａｓｓ．
—
ＥｘａｍｐＤｃｏｍ，
ｃ Ｍｕｌｔｉｌｎｓｔａｎｃｅ．ｔｍＡｐａｒｔｍｅｎｔ）；
ｅｎｄ
其中Ｕｎｉｔ＿ＴＬＢ ＴＬＢ是自动生成自动维护的ＤＣＯＭ类型
库，不用人工干预。
然后在Ｄｅｌｐｈｉ菜单中选Ｐｒｏｊｅｃｔ－－￣Ｂｕｌｉｄ Ｕｎｉｔ＿Ｅｘａｍｌ将工程
制作成ＤＣＯＭ组件：Ｕｎｉｔ＿Ｅｘａｍ１．ｅｘｅ。至此，该ＤＣＯＭ组件制
作完毕。
２．２ ＤＣＯＭ组件的调用
打开Ｄｅｌｐｈｉ７．０开发环境创建工程Ｗｄｃｏｍ．ｄｐｒ，为简单起
见，假设该工程仅有一个窗体Ｆｏｒｍｌ，在ＦｏｒｍＩ上依次放置３
个Ｂｕａｏｎ按钮，３个Ｂｕ￣ｏｎ按钮的ｃａｐｔｉｏｎ属性依次设置为：
本地ＤＣＯＭ组件ＵｎｉｔＥｘａｍ１．ｅｘｅ的调用、远程ＤＣＯＭ组件
ＵｎｉｔＥｘａｍ１．ｅｘｅ的调用、计算两数之和。Ｆｏｒｍｌ的ｃａｐｔｉｏｎ属性
设置为：ＤＣＯＭ组件Ｕｎｉｔ＿Ｅｘａｍ１．ｅｘｅ应用示例。窗体Ｆｏｒｍｌ的
设计如图４所示。
一隧 黝
图４ Ｗｄｃｏｍ．ｄｐｒ的Ｆｏｒｍ１设计示意图
该窗体Ｆｏｒｍｌ对应的单元保存为ｗｄｃｏｍ．ｐａｓ，完整编码如下
ｕｎｉｔ ｗｄｃｏｍ；
……
ＰＲＯＧＲＡＭ ＬＡＮＧＩ隅Ｂ ……………………………………………………………………………………………
ｉｎｔｅｒｆａｃｅ
ｕｓｅｓ
Ｗｉｎｄｏｗｓ，Ｍｅｓｓａｇｅｓ，ＳｙｓＵＩｔｉｌｓ，Ｖａｒｉａ￣ｎｔｓ，Ｃｌａ，ｓ，ｓｅｓ，Ｇｒａｐｈｉｃｓ，
Ｃｏｎｔｒｏｌｓ，ＦＯｒｍｓ．
Ｄｉａｌｏｇｓ，．Ｕｎｉｔ＿ＴＬＢ—ＴＬＢ，ＳｔｄＣｔｒＩｓ；
ｔｙｐｅ
ＴＦｏｒｍ １＝ｃｌａｓｓ（ＴＦｏｒｍ）
Ｂｕｔｔｏｎ１：ＴＢｕｔｔｏｎ；
ＢｕＪｔｔｏｎ２：ＴＢｕｔｔｏｎ；
Ｂｕｔｔｏｎ３：ＴＢｕｔｔｏｎ；
ｐｒｏｃｅｄｕｒｅ Ｂｕｔｔｏｎ１ Ｃｌｉｃｋ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；
ｐｒｏｃｅｄｕｒｅ Ｂｕｔｔｏｎ２ＣＩｉｃｋ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；
ｐｒｏｃｅｄｕｒｅ Ｂｕｔｔ０ｎ３Ｃｌｉｃｋ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；
ｐｒｉｖａｔｅ
｛Ｐｒｉｖａｔｅ ｄｅｃｌａｒａｔｉｏｎｓ）
ＦＥｘａｍｐＤＣＯＭ：ｌＥｘａｍｐＤＣＯＩＭ；
ｐｕｂｌｉｃ
ｆ Ｐｕｂｌｉｃ ｄｅｃｌａｒａｔｉｏｎｓ）
ｅｎｄ；
Ｖａｒ
Ｆｏｒｍ１：ＴＦＯｒｍ１：
ｉｍｐｌｅｍｅｎｔａｔｉｏｎ
（￥Ｒ ．ｄｆｍ）
ｐｒｏｃｅｄｕｒｅ ＴＦ０ｒｍ１．Ｂｕｔｔｏｎ１ Ｃｌｉｃｋ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；
Ｖａｒ
ｓ：ｗｉｄｅｓｔｒｉｎｇ；
ｂｅｇｉｎ
ＦＥｘａｍｐＤＣＯＭ：＝ＣｏＥｘａｍｐＤＣＯＩＭ．Ｃｒｅａｔｅ（）；
ＦＥｘａｍｐＤＣＯＭ．ＧｅｔＮａｍｅ（ｓ）；
ｃａｐｔｉｏｎ；＝ Ｌｏｃａｌ Ｃｏｎｎｅｃｔ ｔＯ：ＤＣＯＭ：Ｕ ＬＥｘａｍ１．ｅｘｅ ：
ｓｈｏｗｍｅｓｓａｇｅ（ｓ）；
ｅｎｄ；
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．ＢｕｔｔＯｎ２Ｃｌｉｃｋ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；
Ｖａｒ
ＲｅｓＮｕｌｅｒ：ｄｏｕｂｌｅ；
ｓ：ｓｔｎｎｇ；
ｂｅｇｉｎ
ｌｆ ＦＥｘａｍｐＤＣＯＩＭ＜＞ｎｉｌ ｔｈｅｎ
ｊｂｅｇｉｎ
ＦＥｘａｍｐＤＣＯＭ．Ａｄｄ（２３，４５，ＲｅｓＮｕｍ）；
ｓ：＝ｆｏｒｍａｔ（＇’Ｄｏｕｂｌｅ＝％ｆ８ ，［ＲｅｓＮｕｌ１１】）
ｓｈｏｗｍｅｓｓａｇｅ（ｓ）；
ｅｎｄ；
ｅｎｄ；
ｐｒｏｃｅｄｕｒｅ ＴＦ０ｒｍ１．Ｂｕｔｔｏｎ３Ｃｌｉｃｋ（＇，，＇Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；
ｖａｒ
ＳｅｒｖｅｒＮａｌｍｅ：ｓｔｒｉｎｇ；
ｓ：ｗｉｄｅｓｔｒｉｎｇ，：
ｂｅｇｍ
ｉｆ Ｉ［ＩｎｐｕｔＯｕｅｒｙ（ Ｅｎｔｅｒ Ｓｅｒｖｅｒ Ｎａｍｅ＇， Ｓｅｒｖｅｒ Ｎａｍｅ ，
ＳｅｒｖｅｒＮａｍｅ））ｔｈｅｎ
ｂｅｇｉｎ
ＦＥｘａｍｐＤＣＯＭ－ ＝ＣｏＥｘ￣ｍｐＤＣＯＭ．ＣｒｅａｔｅｌＲｅｍｏｔｅ
Ｉ［ＷｉｄｅＳｔｒｉｎｇ（ＳｅｒｖｅｒＮａｌｍｅ））
ＦＥｘａｍｐＤＣＯＭ．Ｇｅｔ｝、ｌａｍｅ（ｓ）；
ｃａｋｐｔｉｏｎ：＝＇Ｒｅｍｏｔｅ Ｃｏｎｎｅｃｔ ｔｏ：ＤＣＯＭ：Ｕｎｈｔ＿ｌＥｘａｍ１．ｅｘｅ ：
ｓｈｏｗｍｅｓｓ￣ａｇｅ（ｓ）：
ｅｎｄ；
ｅｎｄ；
ｅｎｄ．
其运行示意图如图５所示。
ｌ掣豳阉 霸固
ｌ匠
ｍ
毫 Ｉ
Ｉ ｌ
ｌ蛳正翮ｌ ｍ Ｉ
图５ Ｗｄｃｏｍ．ｄｐｒ运行示意图
需要指出的是．在单元ｗｄｃｏｎ３．．ｐａｓ中一定要ｕｓｅｓ
ＵｎｉｔＴＬＢ
＿
ＴＬＢ，再者运行该示例，需要把本机的ＲＰＣ服务启
动，如果是远程调用的话，还需将ＤＣＯＭ组件ＵｎｉＬＥｘａｍ１．ｅｘｅ
复制到远程主机并启动，同时将远程主机的ＲＰＣ服务启动
（关闭防火墙），还需在远程主机上运行Ｏｃｏｍｃｎｆｇ．ｅｘｅ，进入组
件服务窗口，展开左边组件服务一计算机一我的电脑一ＤＣ０Ｍ
配制（展开）一右击找到的ＥｘａｍｐＤｃｏｍ ｏｂｊｅｃｔ－－．点击属性进入
ＥｘａｍｐＤｃｏｍ ０ｂｉｅｃｔ属性对话框．在常规选项卡上将身份验证
级别选无，在标识选项卡上选交户式用户，在位置选项卡上
将在此计算机上运行应用程序 选项打钩，在安全选项卡上
将启动激活权限、方问权限设为自定义并将Ｅｖｅｒｙｏｎｅ添加到其
中且Ｅｖｅｒｙｏｎｅ本地访问、远程访问均允许。
３结语
上述示例是典型的使用Ｄｅｌｐｈｉ开发工具进行ＤＣＯＭ组件
制作及调用应用示例，在Ｗｉｎｄｏｗｓ ＸＰ及Ｗｉｎｄｏｗｓ Ｓｅｒｖｅｒ ２００３
成功运行，示例简单过程完整，希望对初步从事分布式应用组
件开发的软件技术人员参考。
参考文献
［１】东方人华，吕伟臣．Ｄｅｌｐｈｉ＂／，．０入门与提高．清华大学出版
社．２００３．０６．
（收稿日期：２０１２—０５—０４）
ｌ｜ｉ鳞 糕
发布评论