1 首先 .h 文件中定义：
2
3 CComPtr<IHTMLWindow2> m_sphtmlWnd;
4 CComPtr<IHTMLDocument2> m_spHtmlDoc;
5
6
7
8 //方法1 可以取得返回值。。。。。
9
10 //调用方法示例：stringArray为传入参数列表，getSum为js函数，pVarResult 为返回值
11
12 /* CStringArray stringArray;
13 stringArray.RemoveAll();
14 stringArray.SetSize(5);
15 stringArray[0].Format(L"%d",m_poiStart.x);
16 stringArray[1].Format(L"%d",m_poiStart.y);
17 stringArray[2].Format(L"%d",m_poiEnd.x);
18 stringArray[3].Format(L"%d",m_poiEnd.y);
19 stringArray[4].Format(L"%d",a + 1);
20 CComVariant pVarResult = CallJScript(L"getSum", stringArray);*/
21
22 bool Cems_mysql_appView::GetJScript(CComPtr<IDispatch>& spDisp)
23 {
24 m_spHtmlDoc = (IHTMLDocument2*)(GetHtmlDocument());
25 if(m_spHtmlDoc == NULL)
26 {
27 return false;
28 }
29 HRESULT hr = m_spHtmlDoc->get_Script(&spDisp);
30 ATLASSERT(SUCCEEDED(hr));
31 return SUCCEEDED(hr);
32 }
33
34 CComVariant Cems_mysql_appView::CallJScript(const CString strFunc,const CStringArray& paramArray)
35 {
36 //Getting IDispatch for Java Script objects
37 CComPtr<IDispatch> spScript;
38 if(!GetJScript(spScript))
39 {
40 return false;
41 }
42 //Find dispid for given function in the object
43 CComBSTR bstrMember(strFunc);
44 DISPID dispid = NULL;
45 HRESULT hr = spScript->GetIDsOfNames(IID_NULL,&bstrMember,1,
46 LOCALE_SYSTEM_DEFAULT,&dispid);
47 if(FAILED(hr))
48 {
49 return false;
50 }
51
52 const int arraySize = paramArray.GetSize();
53 //Putting parameters
54 DISPPARAMS dispparams;
55 memset(&dispparams, 0, sizeof dispparams);
56 dispparams.cArgs = arraySize;
57 dispparams.rgvarg = new VARIANT[dispparams.cArgs];
58 dispparams.cNamedArgs = 0;
59
60 for( int i = 0; i < arraySize; i++)
61 {
62 CComBSTR bstr = paramArray.GetAt(arraySize - 1 - i);
63 // back reading
64 bstr.CopyTo(&dispparams.rgvarg[i].bstrVal);
65 dispparams.rgvarg[i].vt = VT_BSTR;
66 }
67 EXCEPINFO excepInfo;
68 memset(&excepInfo, 0, sizeof excepInfo);
69 CComVariant vaResult;
70 UINT nArgErr = (UINT)-1; // initialize to invalid arg
71 //Call JavaScript function
72 hr = spScript->Invoke(dispid,IID_NULL,0,DISPATCH_METHOD,&dispparams,&vaResult,&excepInfo,&nArgErr);
73 delete [] dispparams.rgvarg;
74 if(FAILED(hr))
75 {
76 return false;
77 }
78 return vaResult;
79 }
80
81
82
83 //方法2
84
85 /*调用方法，不必多说。
86
87 CString str;
88 str.Format(L"getSum(%d,%d,%d,%d,%d)",m_poiStart.x,m_poiStart.y,m_poiEnd.x,m_poiEnd.y,a+1);
89 ExecScript(str);
90
91 */
92 HRESULT Cems_mysql_appView::ExecScript(CString strjs)
93 {
94 HRESULT hr;
95 m_spHtmlDoc = (IHTMLDocument2*)(GetHtmlDocument());
96 if(m_sphtmlWnd == NULL)
97 {
98 hr = m_spHtmlDoc->get_parentWindow(&m_sphtmlWnd);//获取脚本指针
99 }
100 CComBSTR bstrjs = strjs.AllocSysString();
101 CComBSTR bstrlan = SysAllocString(L"javascript");
102 VARIANT varRet;
103 hr = m_sphtmlWnd->execScript(bstrjs, bstrlan, &varRet);
104 //m_sphtmlWnd = NULL;
105 return 1;
106 }
107
