ATL 介 绍( 四)
吕 思 伟--潘 爱 民
（接 上 期）
---- 4. 编 译 连 接 应 用、 注 册COM 服 务 程 序
---- 对ATL 工 程 的 编 译 连 接 过 程 包 括 下 面 的 几 个 步 骤：
使 用MIDL 编 译 工 程 的IDL 文 件， 形 成 接 口 定 义 的 头 文 件 和 用 于 调 度(Marshalling) 的 代 码。
编 译 工 程 的.cpp 文 件 形 成 目 标 文 件。
连 接 目 标 文 件， 形 成 应 用 模 块。
注 册COM 服 务 程 序。
---- 关 于 工 程 编 译 连 接 的 其 他 部 分 同Visual C++ 中MFC 工 程 的 编 译 连 接 过 程 相 似， 这 里 只 重 点 介 绍 一 下COM 服 务 程 序 的 注 册 过 程。
---- 在ATL 中，COM 服 务 程 序 的 注 册 是 在 工 程 编 译 连 接 的 最 后 阶 段， 由ATL 辅 助 完 成 的。 在 手 工 的COM 编 程 中， 服 务 程 序 的 注 册 是 比 较 麻 烦 的 工 作。 在ATL 中， 系 统 通 过 读 取 在 建 立 工 程 过 程 中 形 成 的 注 册 脚 本 文 件 来 完 成 注 册 工 作。 注 册 脚 本(Register Script， 简 称RGS) 是ATL 提 供 的 文 本 方 式 的 注 册 辅 助 文 件。 下 面 是 注 册 脚 本 文 件 的 一 个 实 例。
---- HKCR － 表 示 注 册 表 中COM 对 象 的 注 册 项， 是HKEY_CLASS_ROOT 的 缩 写
{
AuthTest.ActiveXObject.1 = s'ActiveXObject Class'
{
CLSID = s '{97A5CB10-AF82-11D2-B9BC-00104B04B867}'
} － 对 象 的ProgID
AuthTest.ActiveXObject = s 'ActiveXObject Class'
{
CLSID = s '{97A5CB10-AF82-11D2-B9BC-00104B04B867}'
} － 对 象 的 与 版 本 无 关 的ProgID
NoRemove CLSID － 对 象CLSID 注 册 项
{
ForceRemove {97A5CB10-AF82-11D2-B9BC-00104B04B867}
= s 'ActiveXObject Class'
{
ProgID = s 'AuthTest.ActiveXObject.1'
VersionIndependentProgID = s 'AuthTest.ActiveXObject'
InprocServer32 = s '%MODULE% '
－ 服 务 器 类 型， 表 示DLL 服 务 器
{
val ThreadingModel = s 'both'
－ 线 程 模 型， 这 里 是BOTH 型
}
}
}
}
---- RGS 文 件 包 含 注 册COM 服 务 程 序 的 各 项 内 容， 通 常 我 们 不 必 修 改 此RGS 文 件， 必 要 时 我 们 也 可 以 手 工 修 改RGS 文 件 来 定 制 模 块 的 注 册 过 程。
四、 应 用ATL 的 一 个 例 子
---- 上 面 介 绍 了 使 用ATL 创 建 一 个COM 服 务 程 序 的 基 本 过 程。 在 介 绍 过 程 中， 我 们 实 际 上 已 经 生 成 了 一 个COM 服 务 程 序 的 基 本 框 架， 只 是 没 有 填 写 实 际 的 内 容。 在 下 面 部 分， 我 们 将 具 体 开 发 一 个 十 分 简 单 的COM 服 务 程 序， 并 且 为 它 编 写 一 段 客 户 代 码 进 行 测 试， 使 大 家 对 使 用ATL 开 发COM 服 务 程 序 的 过 程 有 一 个 全 面 整 体 的 了 解。
---- 我 们 要 开 发 的 服 务 程 序 的 功 能 很 简 单， 它 只 实 现 一 个 接 口， 这 个 接 口 名 字 是ISimpleInterface， 接 口 只 有 一 个 成 员 函 数， 叫 做Welcome。 这 个 函 数 的 功 能 只 是 输 出 一 个"Hello World!" 的 字 符 串。
---- 按 照 上 一 部 分 介 绍 的 创 建COM 服 务 程 序 的 步 骤， 我 们 进 行 如 下 的 操 作。
打 开Visual C++ 集 成 开 发 环 境。
创 建 一 个 称 为SimpleTest 的ATL 工 程。
在 这 个 工 程 中 插 入 新 的 对 象， 对 象 的 名 字 是SimpleInterface。
设 置 接 口ISimpleInterface 的 有 关 属 性， 使 它 成 为 一 个 双 接 口。
在 对 象 的 接 口ISimpleInterface 中 加 入 方 法Welcome。
打 开ATL 加 入 的Welcome 方 法 的 框 架， 可 以 看 到 如 下 的 代 码 段。 STDMETHODIMP CActiveXObject::get_TestProp(long *pVal)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState())
// TODO: Add your implementation code here
return S_OK;
}
---- 7 ． 将 程 序 框 架 中 的 注 释 部 分 替 换 为 下 面 的 代 码：
::MessageBox(NULL,_T("Hello World!"),_T("Welcome"), MB_OK)。
Welcome 方 法 被 调 用 时 将 弹 出 一 个 消 息 框。
---- 8 ． 编 译 连 接 工 程。
---- 上 面 的 步 骤 完 成 以 后， 我 们 就 有 了 一 个 简 单 的COM 服 务 程 序， 而 且 已 经 被 注 册 到 当 前 系 统 中。
---- 下 面 我 们 要 完 成 一 个 简 单 的COM 客 户 程 序。 一 个COM 客 户 程 序 简 单 地 说 是 使 用COM 组 件 对 象 的 程 序。 客 户 程 序 调 用COM 对 象 的 基 本 流 程 如 下。
创 建COM 对 象 的 实 例。 这 可 以 通 过 调 用Windows 系 统 的API 函 数CoCreateInstance 来 完 成。
通 过 接 口 调 用 函 数。
调 用IUnknown::Release 释 放COM 对 象 实 例。
---- 我 们 的 客 户 程 序 是 使 用MFC 编 写 的 一 个 基 于 对 话 框 的 简 单 应 用 程 序。 具 体 的 过 程 如 下：
打 开Visual C++ 集 成 开 发 环 境。
创 建 一 个 称 为SimpleClient 的 基 于 对 话 框 的MFC 工 程。
在 对 话 框 中 加 入 一 个 按 钮， 名 字 为TEST。
在SimpleClient.cpp 文 件 中 加 入 如 下 的 代 码。
---- (1) 在.cpp 文 件 #include "simpleclientdlg.h" 之 后 加 入 下 面 的 代 码：
#include "d:\simpletest\simpletest_i.h"
// 根 据 需 要 修 改 头 文 件 的 路 径
---- 加 入 的 头 文 件 是 在 编 译COM 服 务 程 序 过 程 中 自 动 生 成 的， 其 中 包 含 接 口 本 身 的 定 义、 接 口IID 的 定 义 和COM 对 象 的CLSID 的 定 义。 包 含 该 头 文 件 可 以 使 客 户 程 序 能 够 使 用COM 服 务 程 序。
---- (2) 在 按 钮TEST 的 消 息 控 制 函 数 中 加 入 如 下 的 代 码：
HRESULT hr;
ISimpleInterface* pIntf = NULL;
hr = CoCreateInstance
(CLSID_SimpleInterface, NULL, CLSCTX_SERVER ,
IID_ISimpleInterface, (void **)& pIntf);
if(SUCCEEDED(hr))
{
pIntf- >Welcome();
pIntf- >Release();
}
---- 上 面 的 代 码 首 先 通 过 系 统API CoCreateInstance 创 建COM 对 象， 得 到 接 口 的 指 针， 然 后 调 用 接 口 成 员 函 数Welcome， 最 后 通 过IUnknown::Release() 函 数 释 放COM 对 象 实 例。
---- 5 ． 编 译 连 接 客 户 程 序。
---- 最 后， 我 们 可 以 测 试 客 户 程 序 是 否 正 常 运 行。 启 动 客 户 程 序， 当 单 击"TEST" 按 钮 时 我 们 可 以 看 到 弹 出 一 个 消 息 框， 这 正 是 我 们 的COM 服 务 程 序 提 供 的 功 能。 （ 全 文 完）
---- （ 作 者 地 址： 北 京 大 学 计 算 机 科 学 技 术 研 究 所，100871； 收 稿 日 期：1999.08）
---- 责 任 编 辑： 许 菊 芳 xu_jufang@ccw.com.cn
-
