吕 思 伟 ---- 潘 爱 民 :: ATL 介 绍( 四)

ATL 介 绍( 四)

吕 思 伟--潘 爱 民

---

（接 上 期）

---- 4. 编 译 连 接 应 用、 注 册COM 服 务 程 序

---- 对ATL 工 程 的 编 译 连 接 过 程 包 括 下 面 的 几 个 步 骤：

1. 使 用MIDL 编 译 工 程 的IDL 文 件， 形 成 接 口 定 义 的 头 文 件 和 用 于 调 度(Marshalling) 的 代 码。
   
2. 编 译 工 程 的.cpp 文 件 形 成 目 标 文 件。
   
3. 连 接 目 标 文 件， 形 成 应 用 模 块。
   
4. 注 册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 服 务 程 序 的 步 骤， 我 们 进 行 如 下 的 操 作。

1. 打 开Visual C++ 集 成 开 发 环 境。
   
2. 创 建 一 个 称 为SimpleTest 的ATL 工 程。
   
3. 在 这 个 工 程 中 插 入 新 的 对 象， 对 象 的 名 字 是SimpleInterface。
   
4. 设 置 接 口ISimpleInterface 的 有 关 属 性， 使 它 成 为 一 个 双 接 口。
   
5. 在 对 象 的 接 口ISimpleInterface 中 加 入 方 法Welcome。
   
6. 打 开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 对 象 的 基 本 流 程 如 下。

1. 创 建COM 对 象 的 实 例。 这 可 以 通 过 调 用Windows 系 统 的API 函 数CoCreateInstance 来 完 成。
   
2. 通 过 接 口 调 用 函 数。
   
3. 调 用IUnknown::Release 释 放COM 对 象 实 例。

---- 我 们 的 客 户 程 序 是 使 用MFC 编 写 的 一 个 基 于 对 话 框 的 简 单 应 用 程 序。 具 体 的 过 程 如 下：

1. 打 开Visual C++ 集 成 开 发 环 境。
   
2. 创 建 一 个 称 为SimpleClient 的 基 于 对 话 框 的MFC 工 程。
   
3. 在 对 话 框 中 加 入 一 个 按 钮， 名 字 为TEST。
   
4. 在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）

---- 责 任 编 辑： 许 菊 芳 [e-mail]

-