睿豐德科技 專注RFID識別技術和條碼識別技術與管理軟件的集成項目。質量追溯系統、MES系統、金蝶與條碼系統對接、用友與條碼系統對接

轉載自： 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.   
11.     // 參數準備  
12.     CComVariant varResult;  
13.     CComVariant avarParams[3];  
14.     avarParams[0] = “開始計算股票”;        // bstrProgressName  
15.     avarParams[0].vt = VT_BSTR;  
16.     avarParams[1] = 100;                              // nTotalProgress  
17.     avarParams[1].vt = VT_I4;  
18.     avarParams[2] = 0;                                 // nCurrentProgress  
19.     avarParams[2].vt = VT_I4;  
20.     DISPPARAMS params = { avarParams, NULL, 3, 0 };  
21.   
22.   
23.     if(spCallback)  
24.           spCallback->Invoke(0,   
25.                 IID_NULL,   
26.                 LOCALE_USER_DEFAULT,   
27.                 DISPATCH_METHOD,   
28.                 ¶ms, &varResult, NULL, NULL);  
29.   
30.     BOOL  bFinished = false;  
31.       
32.   
33.     while(!bFinished)  
34.     {  
35.          // 計算工作…  
36.          Sleep(1000);  
37.          v1 = v1+v2;  
38.     
39.         // 回調客戶  
40.         if(spCallback)  
41.         {  
42.             avarParams[0] = “正在計算股票…”;  
43.             avarParams[2] = 0;  
44.             spCallback->Invoke(0,   
45.                          IID_NULL,   
46.                          LOCALE_USER_DEFAULT,   
47.                          DISPATCH_METHOD,   
48.                          ¶ms, &varResult, NULL, NULL);  
49.           }  
50.   
51.           if(…)  
52.                  bFinished = TRUE;  
53.      }  // while OK!  
54.   
55.       return S_OK;  
56. }  

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.    
9.       // 創建組件并執行longCalc  
10.       var objA = new ActiveXObject(“MyCom.A”);  
11.   
12.        // 使用回調: 執行時在IE狀態欄顯示進度  
13.        objA. longCalc (100, 200, scfDisplayProgress);   
14.   
15.        // 不使用回調  
16.        objA. longCalc (100, 200);   
17. //-->  
18. </script>  

3 說明

該技術僅適用于腳本。不適合于VB、C++客戶。
該技術和連接點、事件無關。
微軟的XML DOM對象廣泛使用這個方法。

RFID管理系統集成商 RFID中間件 條碼系統中間層 物聯網軟件集成