把javascript,vbscript中得数组传递给COM组件(or Activex)

原创 2004年07月01日 17:03:00

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" onclick="InputArray_VBScript"
     ID="Button1">
   </p>
   <p>
    Ret <input type="text" name="Ret" value="" ID="Text2"> <input type="button" name="Button" value="InputArray_javascript" onclick="InputArray_javascript"
     ID="Button2">
   </p>
  </form>
 </BODY>
</HTML>

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

???MsgBox("vbscript complete")????
???BigParamCtla.InputArray a
???????? end if
?End Sub

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

浏览器访问串口与vb6 ActiveX dll ActiveX Exe Active Ocx 的区别

要 百度了很多讲解,说清楚的没几个,综合后我的理解如下:
  • wengkevin
  • wengkevin
  • 2014年06月13日 08:51
  • 610

js传递数组参数到ActiveX

//JS                                     function sendMsg()     {         var...
  • wxdvc
  • wxdvc
  • 2013年01月22日 10:34
  • 3428

VB ActiveX与JS交互

一、js访问activexVB:--------------------------------Public Property Let TxtVisible(ByVal New_TxtVisible ...
  • ikmb
  • ikmb
  • 2009年07月29日 12:33
  • 2278

COM组件,字符串数组的传递

前阵子做作业,需要用到COM。在ATL下开发简单的COM组件很简单,唯一的难点在于复杂参数的传递。比如说字符串数组,需要学习SAFFARRAY,bstr以及VARIANT的用法。     下面贴出代...
  • wwxie123
  • wwxie123
  • 2017年02月20日 13:42
  • 244

OLE、ActiveX 、COM和普通DLL的简单理解

COM: COM组件是以WIN32动态链接库(DLL)或可执行文件(EXE)形式发布的可执行代码组成。 COM组件是遵循COM规范编写的 COM组件是一些小的二进制可执行文件 COM组件可以给应用程序...
  • Liekkas
  • Liekkas
  • 2015年04月27日 11:22
  • 1103

COM组件开发笔记--字符串数组的传递

COM编程的好处就是可以跨语言,我们公司是用C#做开发的,所以用C++去开发COM组件就可以弥补图形渲染性能上的不足。但COM组件也有它的缺点,就是COM接口本身的调用开销比较大,所以我总结了,使用C...
  • Sayesan
  • Sayesan
  • 2013年12月09日 15:33
  • 1160

activeX com 组件开发 一

com组件开发  可以用vb   c#  vc++  等   个人对c#比较熟练 ,但是c# 做控件弊端太大,要求客户装framework 这比较强人所难 ,当然vb 也要装运行库库 ,vc++可以装...
  • studypower
  • studypower
  • 2014年09月27日 14:06
  • 1374

传递VB数组给DLL中的函数

用C++builder6编写一个标准的DLL给VB6调用,需要从DLL取出字节数组,在VB中接收。 Private Declare Function OpenComm Lib "ScaleWeight...
  • chinayu2007
  • chinayu2007
  • 2017年05月07日 19:40
  • 214

C#如何向js传递数组

这两天,就研究怎么把经纬度数据显示在百度地图上,查阅了很多资料,诸多磨难,因为很多网上提供的信息不知道是不是不对还是我不会用,没有解决问题,探索之路记载下来。1、C# 做的一个界面,想要实现鼠标移动实...
  • chongxinchufa2017
  • chongxinchufa2017
  • 2017年11月17日 15:03
  • 514

在VB中调用C/C++语言编写的dll,数组参数的传递

动态链接库(dll)的好处就不多说了,这里就把如何在VB中调用VC写的dll函数的方法介绍一下,供有需要的朋友们参考,同时也免得自己以后忘了。 初次接触DLL的用户经常会遇到一个问题:在VC环境...
  • shejiannan
  • shejiannan
  • 2014年05月19日 16:20
  • 1210
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:把javascript,vbscript中得数组传递给COM组件(or Activex)
举报原因:
原因补充:

(最多只允许输入30个字)