网站首页 > 物联资讯 > 技术分享

在COM组件中调用JavaScript函数 .

2016-09-28 00:00:00 广州睿丰德信息科技有限公司 阅读
睿丰德科技 专注RFID识别技术和条码识别技术与管理软件的集成项目。质量追溯系统、MES系统、金蝶与条码系统对接、用友与条码系统对接

在COM组件中调用JavaScript函数

要求是很简单的,即有COM组件A在IE中运行,使用JavaScript(JS)调用A的方法longCalc(),该方法是一个耗时的操作,要求通知IE当前的进度。这就要求使用回调函数,设其名称为scriptCallbackFunc。实现这个技术很简单:

1 组件方(C++)

组件A 的方法在IDL中定义:
[id(2)] HRESULT longCalc([in] DOUBLE v1, [in] DOUBLE v2, [in, optional] VARIANT scriptCallback);

组件A的方法实现:
// 假设回调原型为: 
// scriptCallbackFunc(LONG nCurrentProgress, LONG nTotalProgress, BSTR bstrProgressName);
// 此方法由JS脚本来实现
STDMETHODIMP CA:: longCalc (DOUBLE v1, DOUBLE v2, VARIANT scriptCallback)
{
    CComPtr<IDispatch> spCallback;
    if (scriptCallback.vt == VT_DISPATCH)
         spCallback = scriptCallback.pdispVal;
    

    // 参数准备
    CComVariant varResult;
    CComVariant avarParams[3];
    avarParams[0] = “开始计算股票”;        // bstrProgressName
    avarParams[0].vt = VT_BSTR;
    avarParams[1] = 100;                              // nTotalProgress
    avarParams[1].vt = VT_I4;
    avarParams[2] = 0;                                 // nCurrentProgress
    avarParams[2].vt = VT_I4;
    DISPPARAMS params = { avarParams, NULL, 3, 0 };


    if(spCallback)
          spCallback->Invoke(0,
                IID_NULL,
                LOCALE_USER_DEFAULT,
                DISPATCH_METHOD,
                &params, &varResult, NULL, NULL);

    BOOL  bFinished = false;
   

    while(!bFinished)
    {
         // 计算工作…
         Sleep(1000);
         v1 = v1+v2;
  
        // 回调客户
        if(spCallback)
        {
            avarParams[0] = “正在计算股票…”;
            avarParams[2] = 0;
            spCallback->Invoke(0,
                         IID_NULL, 
                         LOCALE_USER_DEFAULT,
                         DISPATCH_METHOD, 
                         &params, &varResult, NULL, NULL);
          }

          if(…)
                 bFinished = TRUE;
     }  // while OK!

      return S_OK;
}


2 客户方(JS)

<script language="javascript">
<!--
      // 符合回调原型:scriptCallbackFunc
      function scfDisplayProgress(nCurrentProgress, nTotalProgress, bstrProgressName)
      {
             window.status = bstrProgressName + “:”+(nCurrentProgress *100/TotalProgress);
      }
 
      // 创建组件并执行longCalc
      var objA = new ActiveXObject(“MyCom.A”);

       // 使用回调: 执行时在IE状态栏显示进度
       objA. longCalc (100, 200, scfDisplayProgress); 

       // 不使用回调
       objA. longCalc (100, 200); 
//-->
</script>

3 说明

该技术仅适用于脚本。不适合于VB、C++客户。
该技术和连接点、事件无关。
微软的XML DOM对象广泛使用这个方法。

RFID管理系统集成商 RFID中间件 条码系统中间层 物联网软件集成