（转）如何在JavaScript与ActiveX之间传递数据2

本文研究如何在JS等脚本语言与ActiveX控件之间通信，如何传递各种类型的参数，以及COM的IDispatch接口。使用类似的方法，可以推广到其他所有脚本型语言，如LUA，AutoCad等。
本文将研究以下几个方面:

1.         整形数组传参

2.         字符串参数，字符串返回值

3.         修改传入字符串内容

4.         数组参数

5.         IDispatch接口介绍

6.         修改输入数组内容

7.         增加数组内容

8.         以数组传参方式，JS调用S4Execute( )

由于本文篇幅较长,所以将以连载方式进行发表,连载一主要讨论1-3点,连载二主要讨论4-6点,连载三主要讨论7-8点.

（四）数组参数

1.         在使用时，有时需要使用数组传参，如S4Execute( )的inBuff/ outBuff。

2.         JS中整形数据不分Byte/ Short/ Int等，因此数组元素类型都为int （COM中的VT_I4，其中I表示整形、4表示4字节）

3.         JS中的Array在COM中是一个实现了IDispatch的对象，可通过IDispatch接口api进行操作。关于IDispatch请看下一节介绍。

4.         COM中C++定义

下面代码中定义了两个函数 GetArrayNumberOfIndex、GetArrayLength两个函数，功能分别获取数组长度和获取指定序号元素

以下代码含义，请参考下一节 “IDispatch接口介绍”

JS数组在COM中是一个IDispatch对象，获取长度，实际是获取其中名为“length”的属性值。

而获取最后一个数组，实际是获取名为“4”的属性值（假设5个元素）

STDMETHODIMP CJsAtl::GetLastElement(VARIANT vArray, LONG* retVal)

{

int len = 0;

HRESULT hr = GetArrayLength(vArray.pdispVal, &len);

if (FAILED(hr))

return hr;

hr = GetArrayNumberOfIndex(vArray.pdispVal, len - 1, retVal);

return S_OK;

}

// ***

// 获取Javascript数组长度

//       Javascript中的数组length只计算列表中下标为数字的部分

// ***

HRESULT GetArrayLength(IDispatch* pDisp, int* pLength)

{

BSTR varName = L"length";

VARIANT varValue;

DISPPARAMS noArgs = {NULL, NULL, 0, 0};

DISPID dispId;

HRESULT hr = 0;

hr = pDisp->GetIDsOfNames(IID_NULL, &varName, 1, LOCALE_USER_DEFAULT, &dispId);

if (FAILED(hr))

return hr;

hr = pDisp->Invoke(dispId, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET, &noArgs, &varValue, NULL, NULL);

if (SUCCEEDED(hr))

{

*pLength = varValue.intVal;

return hr;

}

else

{

return hr;

}

}

// ***

// 获取Javascript数组中指定位置的整数元素值

// ***

HRESULT GetArrayNumberOfIndex(IDispatch* pDisp, int index, int * pValue)

{

CComVariant varName(index, VT_I4);   // 数组下标

DISPPARAMS noArgs = {NULL, NULL, 0, 0};

DISPID dispId;

VARIANT varValue;

HRESULT hr = 0;

varName.ChangeType(VT_BSTR);         // 将数组下标转为数字型，以进行GetIDsOfNames

//

// 获取通过下标访问数组的过程，将过程名保存在dispId中

//

hr = pDisp->GetIDsOfNames(IID_NULL, &varName.bstrVal, 1, LOCALE_USER_DEFAULT, &dispId);

if (FAILED(hr))

return hr;

//

// 调用COM过程，访问指定下标数组元素，根据dispId 将元素值保存在varValue中

//

hr = pDisp->Invoke(dispId, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTY GET , &noArgs, &varValue, NULL, NULL);

if (SUCCEEDED(hr))

{

*pValue = varValue.intVal;    // 将数组元素按int类型取出

return hr;

}

else

{

return hr;

}

}

5.         JS中调用

function test_get_last()

{

var array = new Array(0, 1, 2, 3);                      // 定义数组

try {

var obj = document.getElementByIdx_xx_x("obj");

var lastElement = obj.GetLastElement(array); // 获取数组最后一个元素

alert("lastElement: " + lastElement);

} catch (e) {

alert("JS ERROR: " + e.message);

}

}

6.         测试执行

数组定义：{0,1,2,3}

最后元素：3

（五）IDispatch接口介绍

1.         C程序调用时，调用者必须预先知道接口规范（如，参数类型、参数字节长度、参数顺序等）。由于不同语言这些规范有所不同，COM未解决不同语言之间调用，提供了IDispatch接口。

2.         IDispatch要求其实例必须自我描述，即拿到一个对象后，可从对象中直接获取调用方式，而无须预先明确。

3.         IDispatch中通过VT_TYPE来指定相关类型，如 VT_I4为4字节整形、VT_BSTR为unicode字符串，VT_DISPATCH表示是一个IDispatch对象

4.         给对象中每一属性或函数（Method）分配一个整形Id和一个字符串name，调用者可以通过name字符串确定如何调用。如，若name为"length"的属性，调用者就理解为长度。由于这里通常是根据name来理解相应属性，因此name描述应足够准确。如，以"length()"为名称的函数实现整数相加功能就是不恰当的。

5.         使用IDispatch对象时，首相调用 IDispatch::GetIDsOfNames()将属性、函数名称作为参数，获取对应的属性、函数id。

6.         再调用IDispatch::Invoke() 将id作为参数，实际调用功能。

7.         若为获取属性值，则 Invoke()调用时，传入 Dispatch_PropertyGet标志。

8.         若为设置属性值，则Invoke()调用时，传入 Dispatch_PropertyPut标志。并在 DispParams参数中指定修该属性改为何值。DispParams结构说明见后。

9.         若为调用函数，则 Invoke()调用时，传入 Dispatch_Method标志。若该Method需要参数，则通过IDispatch::Invoke()的DispParams参数指定。

10.     DispParams结构使用举例：

DISPPARAMS dispparams;

dispparams.rgdispidNamedArgs = &dispidOfNamedArgs;

dispparams.cArgs = 1;

dispparams.cNamedArgs = 1;

dispparams.rgvarg = new VARIANTARG[1];

dispparams.rgvarg[0].vt = VT_I4;

dispparams.rgvarg[0].intVal = 123;

a.         上面代码是一个用于给Method传参的简单例子，先创建一个DispParams对象

b.         cArgs指定Method中的参数个数。

c.         cNamedArgs指定Method中已经命名的参数个数。（命名参数是对应无名参数的概念。有些语言可定义不定参数，此时IDispatch的描述中不会给参数分配名称，而是调用时以无名参数存在。如，JS中 Array对象的push()方法，可支持不定个数的参数）

d.         rgvarg 为实际参数数组，每一元素表示一个参数，其中.vt表明此元素的数据类型，intVal项是一个C++联合结构，如vt == VT_I4时，应以intVal = xxx方式赋值；若 vt == VT_BSTR，则应以 bstrVal = xxx方式赋值

11.     举例：两个参数，都是无名称参数，第一个为整形，第二个为BSTR型

DISPPARAMS dispparams;

dispparams.rgdispidNamedArgs = NULL;

dispparams.cArgs = 2;

dispparams.cNamedArgs = 0;

dispparams.rgvarg = new VARIANTARG[2]; // 2个参数，分配2个空间

dispparams.rgvarg[0].vt = VT_I4;  // 整形

dispparams.rgvarg[0].intVal = 123;

dispparams.rgvarg[1].vt = VT_BSTR; // 字符串型

dispparams.rgvarg[1].bstrVal = L"abcd";

（六）修改输入数组内容

1.         第五节介绍了如何从JS向COM传递数组参数，以及如何在COM中获取参数。本节介绍如何在COM中修改JS传入的数组。

2.         修改JS数组值时，首先通过GetIDsOfNames获取指定序号元素的dispid；然后调用Invoke()，传入Dispatch_PropertyPut标志表明写操作，并在DispParams结构中指明此元素类型和元素值。

3.         COM中C++定义

STDMETHODIMP CJsAtl::ArrayModiy(VARIANT vArray)

{

SetArrayNumberOfIndex(vArray.pdispVal, 0, 123); // 修改数组第[0]个元素，值为

return S_OK;

}

// ***

// 设置Javascript数组中指定位置的整数元素值

// ***

HRESULT SetArrayNumberOfIndex(IDispatch* pDisp, int index, int value)

{

CComVariant varName(index, VT_I4);

DISPID dispId;

CComVariant varValue;

HRESULT hr = 0;

varName.ChangeType(VT_BSTR); // 将数组下标转为数字型，以进行GetIDsOfNames

hr = pDisp->GetIDsOfNames

(IID_NULL, &varName.bstrVal, 1, LOCALE_USER_DEFAULT, &dispId);

if (FAILED(hr))

return hr;

DISPID dispidPut = DISPID_PROPERTYPUT;             // put操作

DISPPARAMS dispparams;

dispparams.rgvarg = new VARIANTARG[1];                    // 初始化rgvarg

dispparams.rgvarg[0].vt = VT_I4;                                      // 数据类型

dispparams.rgvarg[0].intVal = value;                                  // 更新值

dispparams.cArgs = 1;                                                       // 参数数量

dispparams.cNamedArgs = 1;                                             // 参数名称

dispparams.rgdispidNamedArgs = &dispidPut;         // 操作DispId，表明本参数适用于put操作

hr = pDisp->Invoke(dispId, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTY PUT, &dispparams, NULL, NULL, NULL);

return hr;

}

4.         JS调用

function test_set_first()

{

var array = new Array(0, 1, 2, 3);

try {

var obj = document.getElementByIdx_xx_x("obj");

obj.ArrayModiy(array);

alert("first element: " + array[0]);

} catch (e) {

alert("JS ERROR: " + e.message);

}

}

5.         测试执行

原数组：{0,   1,2,3}

修改后：{123,1,2,3}