把javascript,vbscript中得数组传递给COM组件（or Activex）

1. COM组件的方法在IDL中的声明：
2. [id(1), helpstring("方法InputArray")] HRESULT InputArray([in] VARIANT vData);
4. 在脚本中建立数组并调用COM组件的方法：
5. 当数组很大的时候，like 100k ,javascript在给数组赋值的时候效率非常低！完成时间，cpu占用率，占用的内存都大的可怕。反而VBScript却完成的很好。
8. COM组件的代码：
9. 从代码中可以看到vbscript传进来的是个SafeArray。而javascript的情况就复杂了，javascript中得数组并不是真正意义上的数组，这个“数组”传到COM中被放进一个集合里，参数VARIANT的类型被置为VT_DISPATCH，我们得通过这个IDispatch指针调用invoke才能得到用来读取集合的枚举接口。
10. STDMETHODIMP CBigParamCtl::InputArray(VARIANT vData)
11. {
12.  LPBYTE p ;
14.  DWORD nLen;
16.  HRESULT hr;
18.  if( vData.vt == VT_DISPATCH)
19.  { 
20.   //deal with javascript array
21.   hr = VariantEnumToBytes(vData.pdispVal,&p,  &nLen);
22.  }
23.  else
24.  {
25.   //deal with vbscript array
26.   hr = VariantArrayToBytes(&vData, &p,  &nLen) ;
27.  }
29.  if(  S_OK ==  hr)
30.  {
31.   //....... do sth on p  
32.   delete[] p;
33.  }
35.  return S_OK;
36. }
38. HRESULT VariantEnumToBytes(IDispatch* disp, LPBYTE *ppBytes, DWORD *pdwBytes)
39. {
40.  // DebugBreak();
41.  HRESULT hr;
42.  DISPPARAMS noArgs = { NULL, NULL, 0, 0 };
43.  CComVariant resultV;
44.  hr = disp->Invoke( DISPID_NEWENUM,
45.   IID_NULL,
46.   LOCALE_SYSTEM_DEFAULT,
47.   DISPATCH_PROPERTYGET,
48.   &noArgs,
49.   &resultV,
50.   NULL,
51.   NULL );
52.  if( FAILED( hr ) && FAILED( resultV.ChangeType( VT_UNKNOWN ) ) )
53.   return E_FAIL;
54.  // Bug 37459, above Invoke succeeds, but returns resultV.vt == VT_EMPTY, resultV->other param unchanged
55.  if (resultV.vt != VT_UNKNOWN && resultV.vt != VT_DISPATCH)
56.  {
57.   return E_FAIL;
58.  }
60.  CComQIPtr pEnum( resultV.punkVal );
61.  if( !pEnum )
62.   return E_FAIL;
63.  // Count the elements
64.  *pdwBytes = 0;
65.  hr = S_OK;
67.  //Get Enum Size
68.  while( hr == S_OK )
69.  {
70.   hr = pEnum->Skip(1);
71.   if( hr == S_OK )
72.    (*pdwBytes)++;
73.  }
75.  //allocate memory
76.  *ppBytes = (LPBYTE)new BYTE[*pdwBytes];
78.  int nCount = 0;
79.  CComVariant elemV;
80.  pEnum->Reset();
81.  hr = S_OK;
82.  while( hr == S_OK )
83.  {
84.   // Could switch to use Skip when Cary gets
85.   // it working.
86.   hr = pEnum->Next( 1, &elemV, NULL );
87.   if( elemV.vt != VT_I4 )
88.    hr = S_FALSE; // correct for dispproxy bug 19307
89.   else
90.   {
91.    int nTmp = elemV.lVal;
92.    (*ppBytes)[nCount] = (BYTE)nTmp;
93.   }
95.   if( hr == S_OK )
96.    nCount++;
97.  }
100.  return S_OK;
101. }
103. HRESULT VariantArrayToBytes(VARIANT *pVariant, LPBYTE *ppBytes, DWORD *pdwBytes)
104. {
105.  USES_CONVERSION;
106.  if (pVariant->vt != (VT_VARIANT | VT_BYREF))
107.   return E_INVALIDARG;
109.  if (!(pVariant->pvarVal->vt & VT_ARRAY))
110.   return E_INVALIDARG;
113.  SAFEARRAY* pX = NULL;
116.  if (pVariant->pvarVal->vt & VT_BYREF)
117.   pX = *(pVariant->pvarVal->pparray);
118.  else
119.   pX = pVariant->pvarVal->parray;
121.  if (::SafeArrayGetDim(pX) != 1)
122.   return E_INVALIDARG;
125.     *ppBytes = NULL;
126.     *pdwBytes = 0;
128.   VARIANT *pArray = NULL;
129.   HRESULT hr = E_FAIL;
131.   _variant_t v;
132.  hr = SafeArrayAccessData(pX, (void **) &pArray );
133.  if( SUCCEEDED(hr))
134.  {
135.   *pdwBytes = pX->rgsabound->cElements;
136.   *ppBytes = (LPBYTE)new BYTE[*pdwBytes];
138.   for( DWORD i = 0; i < *pdwBytes; i++)
139.   {
140.    v = pArray[i];
141.    v.ChangeType(VT_UI1);
142.    (*ppBytes)[i] = v.bVal;
143.   }
145.   SafeArrayUnaccessData( pX );
146.  }
147.  else
148.   return hr;
150.  SafeArrayDestroy(pX);
152.     return S_OK;
153. }