分享
 
 
 

COM组件设计与应用10 - IDispatch 接口 for vc.net

王朝c#·作者佚名  2006-03-30
窄屏简体版  字體: |||超大  

下载源代码

一、前言

终于写到了第十回,我也一直期盼着写这回的内容耶,为啥呢?因为自动化(automation)是非常常用、非常有用、非常精彩的一个 COM 功能。由于 WORD、EXCEL 等 OFFICE 软件提供了“宏”的功能,就连我们使用的VC开发环境也提供了“宏”功能,更由于 HTML、ASP、JSP 等都要依靠脚本(Script)的支持,更体现出了自动化接口的重要性。

如果你使用 vc6.0 的开发环境,请阅读前一回。

如果你使用 vc.net 2003,请继续......

二、IDispatch接口

如果是编译型语言,那么我们可以让编译器在编译的时候装载类型库,也就是装载接口的描述。在第七回文章当中,我们分别使用了 #include 方法和 #import 方法来实现的。装载了类型库后,编译器就知道应该如何编译接口函数的调用了---这叫“前绑定”。但是,如果想在脚本语言中使用组件,问题就大了,因为脚本语言是解释执行的,它执行的时候不会知道具体的函数地址,怎么办?自动化接口就为此诞生了---“后绑定”。

自动化组件,其实就是实现了 IDispatch 接口的组件。IDispatch 接口有4个函数,解释语言的执行器就通过这仅有的4个函数来执行组件所提供的功能。IDispatch 接口用 IDL 形式说明如下:(注1)

[

object,

uuid(00020400-0000-0000-C000-000000000046),// IDispatch 接口的 IID = IID_IDispatch

pointer_default(unique)

]

interface IDispatch : IUnknown

{

typedef [unique] IDispatch * LPDISPATCH;// 转定义 IDispatch * 为 LPDISPATCH

HRESULT GetTypeInfoCount([out] UINT * pctinfo);// 有关类型库的这两个函数,咱们以后再说

HRESULT GetTypeInfo([in] UINT iTInfo,[in] LCID lcid,[out] ITypeInfo ** ppTInfo);

HRESULT GetIDsOfNames(// 根据函数名字,取得函数序号(DISPID)

[in] REFIID riid,

[in, size_is(cNames)] LPOLESTR * rgszNames,

[in] UINT cNames,

[in] LCID lcid,

[out, size_is(cNames)] DISPID * rgDispId

);

[local]// 本地版函数

HRESULT Invoke(// 根据函数序号,解释执行函数功能

[in] DISPID dispIdMember,

[in] REFIID riid,

[in] LCID lcid,

[in] WORD wFlags,

[in, out] DISPPARAMS * pDispParams,

[out] VARIANT * pVarResult,

[out] EXCEPINFO * pExcepInfo,

[out] UINT * puArgErr

);

[call_as(Invoke)]// 远程版函数

HRESULT RemoteInvoke(

[in] DISPID dispIdMember,

[in] REFIID riid,

[in] LCID lcid,

[in] DWORD dwFlags,

[in] DISPPARAMS * pDispParams,

[out] VARIANT * pVarResult,

[out] EXCEPINFO * pExcepInfo,

[out] UINT * pArgErr,

[in] UINT cVarRef,

[in, size_is(cVarRef)] UINT * rgVarRefIdx,

[in, out, size_is(cVarRef)] VARIANTARG * rgVarRef

);

}

以上 IDispatch 接口函数的讲解,我们留到后回中进行介绍。如何在组件程序中实现这些函数那?还好,还好,就象 IUnknown 一样,MFC 和 ATL 都帮我们已经完成了。本回我们着重介绍组件的编写,下回则介绍组件的调用方法。

三、用 MFC 实现自动化组件

我写的这整个系列文章---《COM 组件设计与应用》,多是用 ATL 写组件程序,但由于自动化非常有用,在后续的文章中,还要给大家介绍组件的“事件”功能,还要介绍如何在 MFC 的程序中象 WORD 一样支持“宏”的功能。这些都要用到 MFC,所以就给读者唠一唠啦:-)

3-1:建立一个解决方案

3-2:建立一个 MFC DLL 项目,项目名称为“Simple7”

3-3:一定要选择附加功能中的“自动化”,切记!切记!

3-4:添加新类

3-5:在新建类中支持自动化

类名 你随便写个类名子啦

基类 一定要从 CComTarget 派生呀,只有它才提供了 IDispatch 的支持

自动化 - 无 表示不支持自动化,你要选择了它,那就白干啦

自动化 - 自动化 支持自动化,但不能被直接实例化。后面在讲解多个 IDispatch 的时候就用到它了,现在先不要着急。

自动化 - 可按类型ID创建 一定要选择这个项目,这样我们在后面的调用中,VB就能够CreateObject(),VC就能够CreateDispatch()对组件对象实例化了。注意一点,这个 ID 其实就是组件的 ProgID 啦。

3-6:选择接口,添加函数

3-7:添加函数。我们要写一个整数加法函数Add()。

3-8:再增加一个转换字符串大小写的函数 Upper()。

3-9:好了,下面开始输入程序代码:

LONG CDispSimple::Add(LONG n1, LONG n2)

{

AFX_MANAGE_STATE(AfxGetStaticModuleState());

return n1 + n2;

}

BSTR CDispSimple::Upper(LPCTSTR str)

{

AFX_MANAGE_STATE(AfxGetStaticModuleState());

CString strResult(str);

strResult.MakeUpper();

return strResult.AllocSysString();

}

3-10:编译注册

如果上面的操作由于疏忽而发生了错误,那么你可以手工进行改正。

其一、你可以打开 IDL 文件进行修改,修改时要特别小心函数的声明中,有一个[id(n)] 的函数序号,可不要乱了;

其二、同步修改 H/CPP 中的函数声明和函数体;

其三、在CPP文件中,根据情况也要修改 BEGIN_DISPATCH_MAP/END_DISPATCH_MAP()函数影射宏。

正确编译后,vc.net 2003 比 vc6.0 要聪明多了,它会自动注册组件。如果复制到其它计算机上,你也需要手工执行 regsvr32.exe 进行注册。

四、用 ATL 实现双接口组件(操作方法和步骤,请参考COM 组件设计与应用(六)》)

4-1:建立一个 ATL 项目,项目名称为“Simple8”

4-2:选择 DLL 类型、非属性方式、不要选择任何附加选项

4-3:添加新类,选择ATL 的简单对象

4-4:输入简称和选项,选项按默认进行,也就是双重接口方式(注2)

4-5:增加函数。选择接口、鼠标右键菜单、添加方法...

Add([in] VARIANT v1, [in] VARIANT v2, [out, retval] VARIANT * pVal);

Upper([in] BSTR str, [out,retval] BSTR * pVal);

关于Add()函数,你依然可以使用 Add([in] long n1, [in] long n2, [out,retval] long * pVal) 方式。但这次我们没有使用 long ,而是使用了 VARIANT 做参数和返回值。这里我先卖个关子,往下看,就知道使用 VARIANT 的精彩之处了。

4-6:完成代码

STDMETHODIMP CDispSimple::Add(VARIANT v1, VARIANT v2, VARIANT *pVal)

{

::VariantInit( pVal );// 永远初始化返回值是个好习惯

CComVariant v_1( v1 );

CComVariant v_2( v2 );

if((v1.vt & VT_I4) && (v2.vt & VT_I4) )// 如果都是整数类型

{// 这里比较没有使用 == ,而使用了运算符 & ,你知道这是为什么吗?

v_1.ChangeType( VT_I4 );// 转换为整数

v_2.ChangeType( VT_I4 );// 转换为整数

pVal->vt = VT_I4;

pVal->lVal = v_1.lVal + v_2.lVal;// 加法

}

else

{

v_1.ChangeType( VT_BSTR );// 转换为字符串

v_2.ChangeType( VT_BSTR );// 转换为字符串

CComBSTR bstr( v_1.bstrVal );

bstr.AppendBSTR( v_2.bstrVal );// 字符串连接

pVal->vt = VT_BSTR;

pVal->bstrVal = bstr.Detach();

}

return S_OK;

}

STDMETHODIMP CDispSimple::Upper(BSTR str, BSTR *pVal)

{

*pVal = NULL;// 永远初始化返回值是个好习惯

CComBSTR s(str);

s.ToUpper();// 转换为大写

*pVal = s.Copy();

return S_OK;

}

刚才卖的关子,现在开始揭密了......加法函数Add()不使用long类型,而使用VARIANT的好处是:函数内部动态判断参数类型,如果是整数则进行整数加法,如果是字符串,则进行字符串加法(字符串加法就是字符串连接哈)。也就是说,如果参数是VARIANT,那么我们就可以实现函数的可变参数类型呀。怪怪个咙,真爽!

五、脚本中调用举例

打开“记事本”程序,输入脚本程序,保存为 xxx.vbs 文件。然后在资源管理器里就可以双击运行啦。

如果你有能力,也可以用 JScript 书写上面的程序,然后保存为 xxx.js 文件,同样也可以在资源管理器里运行。另外需要说明的一点是,脚本程序文件的图标(win 2000下)是

,如果你不是这样的(有一个软件叫“XX 解霸”。写这款软件的人水平太低,它居然使用 .vbs 的扩展名文件作为它的数据流文件,破坏了系统默认的文件类型影射模式,咳......),那么需要重新设置,方法是:

六、WORD 中使用举例

6-1:录制一段宏程序

6-2:选择“键盘”,当然你也可以把这个“宏”程序放到“工具栏”上去。这里我们随便指定一个快捷键,比如Ctrl+Z

6-3:开始录制了,下面你随便输入点什么东东。然后点“停止”

6-4:接下来,我们执行菜单,选择这个刚刚录制的宏,然后编辑它

6-5:点“编辑”按钮,输入下面的程序:

不做解释了,你如果会一点点 VB ,就能看懂这个东东哈。然后保存关闭 VBA 的编辑器(注4)。

6-6:执行啦,执行啦,看看有什么效果呀......

然后按快捷键Ctrl+Z

你已经扩展了 MS WORD 的功能啦,嘿啦啦啦啦,嘿啦啦啦,天空出彩霞呀......我们只是举了一个简单的例子,其实这个例子并没有什么实际应用的意义,因为人家 WORD 本身就有大小写转换功能。但通过这个小例子,你可以体会出自动化组件的功能了,有够厉害吧?!

七、小结

没小结!嘿嘿......上当喽:-) 注1:以后我们描述接口函数,都采用 IDL 的形式了。

注2:双接口,是支持 IDispatch 接口的一种特殊接口方式,后面马上就要讲啦

注3:VBA 是专门开发 Office 的一种语言---Visual Basic for Application

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有