在COM组件中调用JavaScript函数

转载自： http://blog.csdn.net/cheungmine/article/details/1451489

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

1 、组件方（C++）

组件A 的方法在IDL中定义：

[cpp] view plaincopy

1. [id(2)] HRESULT longCalc([in] DOUBLE v1, [in] DOUBLE v2, [in, optional] VARIANT scriptCallback);

组件A的方法实现：

[cpp] view plaincopy

1. // 假设回调原型为：
2. // scriptCallbackFunc(LONG nCurrentProgress, LONG nTotalProgress, BSTR bstrProgressName);
3. // 此方法由JS脚本来实现
4. STDMETHODIMP CA:: longCalc (DOUBLE v1, DOUBLE v2, VARIANT scriptCallback)
5. {
6. CComPtr<IDispatch> spCallback;
7. if (scriptCallback.vt == VT_DISPATCH)
8. spCallback = scriptCallback.pdispVal;
9. // 参数准备
10. CComVariant varResult;
11. CComVariant avarParams[3];
12. avarParams[0] = “开始计算股票”;        // bstrProgressName
13. avarParams[0].vt = VT_BSTR;
14. avarParams[1] = 100;                              // nTotalProgress
15. avarParams[1].vt = VT_I4;
16. avarParams[2] = 0;                                 // nCurrentProgress
17. avarParams[2].vt = VT_I4;
18. DISPPARAMS params = { avarParams, NULL, 3, 0 };
19. if(spCallback)
20. spCallback->Invoke(0,
21. IID_NULL,
22. LOCALE_USER_DEFAULT,
23. DISPATCH_METHOD,
24. ¶ms, &varResult, NULL, NULL);
25. BOOL  bFinished = false;
26. while(!bFinished)
27. {
28. // 计算工作…
29. Sleep(1000);
30. v1 = v1+v2;
31. // 回调客户
32. if(spCallback)
33. {
34. avarParams[0] = “正在计算股票…”;
35. avarParams[2] = 0;
36. spCallback->Invoke(0,
37. IID_NULL,
38. LOCALE_USER_DEFAULT,
39. DISPATCH_METHOD,
40. ¶ms, &varResult, NULL, NULL);
41. }
42. if(…)
43. bFinished = TRUE;
44. }  // while OK!
45. return S_OK;
46. }

2、 客户方（JS）

[javascript] view plaincopy

1. <script language="javascript">
2. <!--
3. // 符合回调原型：scriptCallbackFunc
4. function scfDisplayProgress(nCurrentProgress, nTotalProgress, bstrProgressName)
5. {
6. window.status = bstrProgressName + “:”+(nCurrentProgress *100/TotalProgress);
7. }
8. // 创建组件并执行longCalc
9. var objA = new ActiveXObject(“MyCom.A”);
10. // 使用回调: 执行时在IE状态栏显示进度
11. objA. longCalc (100, 200, scfDisplayProgress);
12. // 不使用回调
13. objA. longCalc (100, 200);
14. //-->
15. </script>

3 说明

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