[转]在COM组件中调用JavaScript函数

在COM组件中调用JavaScript函数

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

 

 1 1 组件方（C++）
 2 
 3 组件A 的方法在IDL中定义：
 4 [id(2)] HRESULT longCalc([in] DOUBLE v1, [in] DOUBLE v2, [in, optional] VARIANT scriptCallback);
 5 
 6 组件A的方法实现：
 7 // 假设回调原型为： 
 8 // scriptCallbackFunc(LONG nCurrentProgress, LONG nTotalProgress, BSTR bstrProgressName);
 9 // 此方法由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对象广泛使用这个方法。