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

最新推荐文章于 2015-10-28 10:02:55 发布
最新推荐文章于 2015-10-28 10:02:55 发布
阅读量1.6k 收藏 1
点赞数
文章标签： vbscript javascript button null input byte

COM组件的方法在IDL中的声明：
[id(1), helpstring("方法InputArray")] HRESULT InputArray([in] VARIANT vData);

在脚本中建立数组并调用COM组件的方法：
当数组很大的时候，like 100k ,javascript在给数组赋值的时候效率非常低！完成时间，cpu占用率，占用的内存都大的可怕。反而VBScript却完成的很好。
测试页面：
<HTML>
 <HEAD>
  <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  <TITLE>对象 BigParamCtl 的 ATL 7.0 测试页</TITLE>
 </HEAD>
 <BODY>
  <OBJECT id="BigParamCtl" data="data:application/x-oleobject;base64,G2I3cgi4DEazi5wM0glIGRAHAADYEwAA2BMAAA=="
   classid="CLSID:7237621B-B808-460C-B38B-9C0CD2094819" >
  </OBJECT>
  <SCRIPT LANGUAGE="VBScript">
   Sub InputArray_VBScript
 
    On Error Resume Next
    Set BigParamCtla = CreateObject("BigParam.BigParamCtl")
    if err<>0 then
     Alert("BigParam not properly installed on this PC!")
    else
     Dim i
     
     Dim a(10)
    
     For i = 0 To 10
      a(i) = asc("0")
     Next
     MsgBox("vbscript complete")    
     BigParamCtla.InputArray a
   
           end if
    
   End Sub
  </SCRIPT>
  <SCRIPT language="javascript">
   
   function InputArray_javascript()
   {
    var a = new Array(10);
    for(var i = 0; i < 10; i++)
    {
     a[i] = 49 ;
    }
    alert("javascript complete");
    BigParamCtl.InputArray(a);
   }
   
 
   
  </SCRIPT>
  <form name="form1" method="post" action="" ID="Form1">
   <p>
    Ret <input type="text" name="Ret" value="" ID="Text1"> <input type="button" name="Button" value="InputArray_VBScript" οnclick="InputArray_VBScript"
     ID="Button1">
   </p>
   <p>
    Ret <input type="text" name="Ret" value="" ID="Text2"> <input type="button" name="Button" value="InputArray_javascript" οnclick="InputArray_javascript"
     ID="Button2">
   </p>
  </form>
 </BODY>
</HTML>
<script language="VBScript" type="text/javascript">
?Sub InputArray_VBScript
?
??On Error Resume Next
??Set BigParamCtla = CreateObject("BigParam.BigParamCtl")
??if err<>0 then
???Alert("BigParam not properly installed on this PC!")
??else
???Dim i
???Dim a(10)

???For i = 0 To 10
????a(i) = asc("0")
???Next

???MsgBox("vbscript complete")????
???BigParamCtla.InputArray a
???????? end if
?End Sub
</script>

<script language="javascript" type="text/javascript">
???
?function InputArray_javascript()
?{
??var a = new Array(10);
??for(var i = 0; i < 10; i++)
??{
???a[i] = 49 ;
??}
??alert("javascript complete");
??BigParamCtl.InputArray(a);
?}
</script>

COM组件的代码：
从代码中可以看到vbscript传进来的是个SafeArray。而javascript的情况就复杂了，javascript中得数组并不是真正意义上的数组，这个“数组”传到COM中被放进一个集合里，参数VARIANT的类型被置为VT_DISPATCH，我们得通过这个IDispatch指针调用invoke才能得到用来读取集合的枚举接口。
STDMETHODIMP CBigParamCtl::InputArray(VARIANT vData)
{
 LPBYTE p ;
 
 DWORD nLen;

 HRESULT hr;

 if( vData.vt == VT_DISPATCH)
 { 
  //deal with javascript array
  hr = VariantEnumToBytes(vData.pdispVal,&p,  &nLen);
 }
 else
 {
  //deal with vbscript array
  hr = VariantArrayToBytes(&vData, &p,  &nLen) ;
 }

 if(  S_OK ==  hr)
 {
  //....... do sth on p  
  delete[] p;
 }
 
 return S_OK;
}

HRESULT VariantEnumToBytes(IDispatch* disp, LPBYTE *ppBytes, DWORD *pdwBytes)
{
 // DebugBreak();
 HRESULT hr;
 DISPPARAMS noArgs = { NULL, NULL, 0, 0 };
 CComVariant resultV;
 hr = disp->Invoke( DISPID_NEWENUM,
  IID_NULL,
  LOCALE_SYSTEM_DEFAULT,
  DISPATCH_PROPERTYGET,
  &noArgs,
  &resultV,
  NULL,
  NULL );
 if( FAILED( hr ) && FAILED( resultV.ChangeType( VT_UNKNOWN ) ) )
  return E_FAIL;
 // Bug 37459, above Invoke succeeds, but returns resultV.vt == VT_EMPTY, resultV->other param unchanged
 if (resultV.vt != VT_UNKNOWN && resultV.vt != VT_DISPATCH)
 {
  return E_FAIL;
 }
 
 CComQIPtr<IEnumVARIANT> pEnum( resultV.punkVal );
 if( !pEnum )
  return E_FAIL;
 // Count the elements
 *pdwBytes = 0;
 hr = S_OK;
 
 //Get Enum Size
 while( hr == S_OK )
 {
  hr = pEnum->Skip(1);
  if( hr == S_OK )
   (*pdwBytes)++;
 }

 //allocate memory
 *ppBytes = (LPBYTE)new BYTE[*pdwBytes];

 int nCount = 0;
 CComVariant elemV;
 pEnum->Reset();
 hr = S_OK;
 while( hr == S_OK )
 {
  // Could switch to use Skip when Cary gets
  // it working.
  hr = pEnum->Next( 1, &elemV, NULL );
  if( elemV.vt != VT_I4 )
   hr = S_FALSE; // correct for dispproxy bug 19307
  else
  {
   int nTmp = elemV.lVal;
   (*ppBytes)[nCount] = (BYTE)nTmp;
  }
 
  if( hr == S_OK )
   nCount++;
 }
 
 
 return S_OK;
}

HRESULT VariantArrayToBytes(VARIANT *pVariant, LPBYTE *ppBytes, DWORD *pdwBytes)
{
 USES_CONVERSION;
 if (pVariant->vt != (VT_VARIANT | VT_BYREF))
  return E_INVALIDARG;

 if (!(pVariant->pvarVal->vt & VT_ARRAY))
  return E_INVALIDARG;


 SAFEARRAY* pX = NULL;
 

 if (pVariant->pvarVal->vt & VT_BYREF)
  pX = *(pVariant->pvarVal->pparray);
 else
  pX = pVariant->pvarVal->parray;

 if (::SafeArrayGetDim(pX) != 1)
  return E_INVALIDARG;


    *ppBytes = NULL;
    *pdwBytes = 0;

  VARIANT *pArray = NULL;
  HRESULT hr = E_FAIL;

  _variant_t v;
 hr = SafeArrayAccessData(pX, (void **) &pArray );
 if( SUCCEEDED(hr))
 {
  *pdwBytes = pX->rgsabound->cElements;
  *ppBytes = (LPBYTE)new BYTE[*pdwBytes];

  for( DWORD i = 0; i < *pdwBytes; i++)
  {
   v = pArray[i];
   v.ChangeType(VT_UI1);
   (*ppBytes)[i] = v.bVal;
  }

  SafeArrayUnaccessData( pX );
 }
 else
  return hr;

 SafeArrayDestroy(pX);

    return S_OK;
}

 
wzsy
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
javascript数组与php数组的地址传递及值传递用法实例
10-24
在编程语言中，数据的传递方式分为值传递和引用传递，这两种传递方式在JavaScript和PHP中对于数组的处理有所不同。本文将深入探讨JavaScript和PHP数组的地址传递（引用传递）和值传递的区别，并通过实例来解析它们的...
ATL或COM如何处理JS传递的数组
tulunta
02-24 250
最近碰到方正客户提出的一个问题，就是对于js定义的数组传递给我们的接口（ATL控件），值设置不进去，一直返回false。 经过查找原因，发现控件代码只处理了vb脚本类的数组，而js数组要特殊处理vbscript传进来的是个SafeArray。而javascript的情况就复杂了，javascript中得数组并不是真正意义上的数组，这个“数组”传到COM中被放进一个集合里，参数VARIANT的类型...
如何从ActiveX控件向JavaScript传递数组
txjchen的专栏
04-28 4795
        从ActiveX控件向JavaScript传递数组似乎不是一件容易的事，因为JavaScript好像不能接受从ActiveX控件传来的引用参数，所以实际上我并没有找到直接传递的方案（如果有朋友找到了，欢迎留言），而是绕了个弯，将数组格式化成字符串传了出去。看到这里，可能很多朋友已经完全明白我的做法了。对于不太熟悉COM编程的朋友，可以看看下面的具体步骤：（1）为ActiveX控
php实现向javascript传递数组的方法
10-23
主要介绍了php实现向javascript传递数组的方法,涉及php数组转json传递到javascript的实现技巧,具有一定参考借鉴价值,需要的朋友可以参考下
给Javascript数组插入一条记录的代码
10-30
2. JavaScript中的数组：JavaScript中的数组是一种特殊的对象，可以使用push、pop、shift、unshift等方法来操作数组。 3. 索引：数组的索引是从0开始的，负索引表示从数组的结尾开始计数。 4. 循环：在JavaScript中...
JavaScript把数组作为堆栈使用的方法
10-24
在JavaScript中，数组是一种非常灵活的数据结构，可以用于多种用途，包括模拟其他数据结构，比如堆栈。堆栈是一种后进先出（Last In, First Out, LIFO）的数据结构，通常用于临时存储和检索数据。本文将详细介绍如何...
使用VARIANT传递数组的方法及步骤
热门推荐
Joe_wang的专栏
05-22 1万+
在使用COM/DCOM写组件时经常要传递数组，一般比如SHORT，LONG等指针可以直接传递相应的指针，但是当遇到需要传递BYTE数组就有问题了，COM不支持BYTE类型参数，传递BYTE数组也就无从说起了。经过查找资料发现使用VARIANT变量可以传递任何类型的数组，随将使用VARIANT数组的方法总结一下。其实在VARIANT传递数组的方法非常简单，只要理解SAFEARRAY数组的使用方法即可
vbscript数组传入c#写的类库
奋斗吧程序猿
10-28 625
由于我参加的一个项目中有一部分asp的代码，新加一个功能，需要调用c#写的类库，字符串和数字类型的参数都能正确传入，唯独数组类型的无法传入。经过大量尝试，最终找到了解决方法。原来asp页面传递数组时，需要把数组变量用括号括起来。例如声明了a=Array(5,10,15,20)，那么传参数时，需要写(a)而不是a，虽然不知道为什么这样，不过这样试了一下是可以工作的。希望大家遇到相同问题时可以看到并解
ADO编程中ATL所遇到的定义问题
小发猫
12-08 1069
ADO编程中ATL所遇到的定义问题  　 当欲向接口中定义方法如下：[id(1), helpstring("method SearchCust")] HRESULT SearchCust([in] BSTR bstrcustid,[out,retval] _Recordset **ptr); 由于用到_Recordset类型，所以必须    importlib("C:/Progra
vbscript 与 javascript如何传递变量（包括服务器端与客户端）
编程岁月
09-07 1193
1：vbscript与javascipt传变量（客户端） dim strTemp 首先，我们在这里用vbscript定义一个变量strTemp=10 紧接着，在这里给其负值。-->function document_onclick() {window.alert(strTemp); /**在这里，我们不经过定义就可以直接用刚才vbscript里的遍量了。**/}//-->document_on
父组件传递数组给子组件
最新发布
09-09
### 回答1： 父组件可以通过props将数组传递给子组件。具体操作如下： 1. 在父组件中定义一个包含数组的变量，例如： ```javascript const myList = [1, 2, 3, 4]; ``` 2. 在父组件中使用子组件，并将数组通过props传递给子组件，例如： ```jsx <ChildComponent myList={myList} /> ``` 3. 在子组件中通过props获取父组件传递的数组，例如： ```jsx function ChildComponent(props) { const myList = props.myList; // ... } ``` 现在，子组件就可以使用父组件传递的数组了。 ### 回答2： 父组件如何传递数组给子组件取决于使用的框架或库，但是基本的思路是将数组作为属性传递给子组件。 在 React 中，可以通过在父组件的 JSX 代码中使用属性来传递数组。例如，父组件的代码可以是这样的： ``` class ParentComponent extends React.Component { render() { const dataArray = [1, 2, 3, 4, 5]; return ( <ChildComponent arrayProp={dataArray} /> ); } } ``` 在这个例子中，父组件创建了一个名为 `dataArray` 的数组，并将它作为 `arrayProp` 属性传递给子组件 `ChildComponent`。 在子组件中，可以通过 `props` 对象访问到传递进来的属性。例如，子组件的代码可以是这样的： ``` class ChildComponent extends React.Component { render() { const arrayProp = this.props.arrayProp; // 对数组进行操作或展示 return ( <div>{arrayProp}</div> ); } } ``` 在这个例子中，子组件通过 `this.props.arrayProp` 来获取传递进来的数组，并在 JSX 中展示它。 通过这种方式，父组件就成功地将数组传递给子组件了。子组件可以在 `render` 方法中使用传递进来的数组来进行操作或展示。 ### 回答3： 当父组件需要将一个数组传递给子组件时，可以使用props属性来进行传递。具体步骤如下： 1. 在父组件中定义一个包含所需数组的变量。例如，可以使用一个名为"array"的变量，并在其中存储要传递给子组件的数组。 2. 在父组件中使用子组件，并通过props属性将数组传递给子组件。在子组件的标签中，添加一个属性，名称可以是任意的，如"myArray"，并将其值设置为父组件中的"array"变量。 3. 在子组件中，使用props属性接收父组件传递的数组。在子组件的props属性中，添加一个名称为"myArray"的属性，并将其值设置为数组。这样，子组件就可以通过访问this.props.myArray来获取父组件传递的数组。 通过以上步骤，父组件成功将数组传递给子组件。子组件可以根据需要使用这个数组，例如，可以遍历数组中的每个元素，并进行相应的操作。 需要注意的是，在父组件中更改数组的值不会直接影响子组件中的数组。如果需要在父组件中修改数组，并使修改后的值在子组件中生效，可以通过props属性传递一个函数给子组件，并在函数中修改数组的值。这样，子组件调用该函数时，就可以将修改后的值传递回父组件进行更新。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值