COM 入门(4)

本篇介绍COM自动化，对脚本的支持。

1. 实现IDispatch接口
COM自动化是指实现了IDispatch接口，这样可以供VBScript，JScript能脚本调用。
实现IDispatch接口的对象，对应到VBScript和JScript中的Object。
IDispatch接口定义为：

interface IDispatch : IUnknown
{
    HRESULT GetTypeInfoCount(
        [ out ] UINT * pCountTypeInfo);

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

    HRESULT GetIDsOfNames(
        [ in ] REFIID riid,
        [ in , size_is(cNames)] LPOLESTR * rgszNames,
        [ in ] UINT cNames,
        [ in ] LCID lcid,
        [ out , size_is(cNames)] DISPID * rgDispId);

    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);
};

方法数量不多，但很复杂，特别是Invoke方法，不过微软提供了一些辅助方法来简化实现过程。VARIANT在C/C++中的定义是一个结构体，比较复杂，具体内容可参考Windows SDK。

idl中提供了dispinterface关键字实现IDispatch接口，因为功能限制的原因不推荐使用，推荐的是实现双接口(Dual Interface)，既可以通过用户定义的接口也可以通过IDispatch接口访问对象。
BeginningCOM示例中，IDL接口的定义：

[ object , uuid(93C3840F - AD5A - 4020 - AAAB - 313C4B61B184), dual]
interface IBeginningCOM : IDispatch
{
    [id( 1 )] HRESULT Sum([ in ] int a, [ in ] int b, [ out , retval] int * sum);
    [id( 2 ), propget] HRESULT Num([ out , retval] int * pVal);
    [id( 2 ), propput] HRESULT Num([ in ] int val);
}

dual标记该接口为双接口，id为成员的ID。

GetTypeInfoCount方法获取对象提供的类型信息的数量，如果对象提供类型信息，pCountTypeInfo设为1，否则为0。

STDMETHODIMP BeginningCOM::GetTypeInfoCount(UINT * pCountTypeInfo)
{
     * pCountTypeInfo = 1 ;
     return S_OK;
}

GetTypeInfo获取类型信息，我们直接用API取的其信息返回即可。
取得类型信息作为类的成员变量：

ITypeLib * pTypeLib;
HRESULT hr = S_OK;

hr = LoadRegTypeLib(LIBID_BEGINNINGCOMLib, 1 , 0 , LANG_NEUTRAL, & pTypeLib);

if (SUCCEEDED(hr))
{
    pTypeLib -> GetTypeInfoOfGuid(IID_IBeginningCOM, & m_pTypeInfo);
// ...

GetTypeInfo的实现：

STDMETHODIMP BeginningCOM::GetTypeInfo(UINT iTypeInfo, LCID lcid,
    ITypeInfo ** ppITypeInfo)
{
     if ( * ppITypeInfo != NULL)
    {
         return DISP_E_BADINDEX;
    }

    m_pTypeInfo -> AddRef();
     * ppITypeInfo = m_pTypeInfo;

     return S_OK;
}

GetIDsOfNames函数获取成员的ID，上面取得了TypeInfo，那么调用DispGetIDsOfNames可根据成员名取得其ID，其实现为：

STDMETHODIMP BeginningCOM::GetIDsOfNames(REFIID riid,
    LPOLESTR * rgszNames, UINT cNames, LCID lcid,
    DISPID * rgDispId)
{
     if (riid != IID_NULL)
    {
         return DISP_E_UNKNOWNINTERFACE;
    }

     return DispGetIDsOfNames(m_pTypeInfo, rgszNames, cNames, rgDispId);
}

riid不使用，并且必须为IID_NULL。

Invoke函数用于调用类的成员函数。

STDMETHODIMP BeginningCOM::Invoke(DISPID dispIdMember, REFIID riid,
    LCID lcid, WORD wFlags, DISPPARAMS * pDispParams,
    VARIANT * pVarResult, EXCEPINFO * pExcepInfo,
    UINT * puArgErr)
{
     if (riid != IID_NULL)
    {
         return DISP_E_UNKNOWNINTERFACE;
    }

     return DispInvoke( this , m_pTypeInfo, dispIdMember, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
}

2. 脚本语言调用COM组件
JS:

var obj = new ActiveXObject( " BeginningCOM.1 " );
WScript.Echo(obj.Sum( 3 , 6 ));

VBS:

dim obj
set obj = CreateObject ( " BeginningCOM.1 " )
msgbox (obj.Sum( 5 , 6 ))

HTML:

< script type ="text/javascript" >
var obj = new ActiveXObject( " BeginningCOM.1 " )
alert(obj.Sum( 1 , 2 ));
</ script >

HTML在浏览器中运行中会出现不安全控件的提示，下一篇提供解决方法。

源文件下载： BeginningCOM4.zip