c/c++/MFC 调用 js 函数代码

调用函数代码和示例

 1 首先 .h 文件中定义：

 CComPtr<IHTMLWindow2> m_sphtmlWnd;
 CComPtr<IHTMLDocument2> m_spHtmlDoc;



//方法1 可以取得返回值。。。。。

//调用方法示例：stringArray为传入参数列表，getSum为js函数，pVarResult 为返回值

/* CStringArray stringArray;
 stringArray.RemoveAll();
 stringArray.SetSize(5); 
 stringArray[0].Format(L"%d",m_poiStart.x);
 stringArray[1].Format(L"%d",m_poiStart.y);
 stringArray[2].Format(L"%d",m_poiEnd.x);
 stringArray[3].Format(L"%d",m_poiEnd.y);
 stringArray[4].Format(L"%d",a + 1);
 CComVariant pVarResult = CallJScript(L"getSum", stringArray);*/

bool Cems_mysql_appView::GetJScript(CComPtr<IDispatch>& spDisp)
{
 m_spHtmlDoc =  (IHTMLDocument2*)(GetHtmlDocument());
 if(m_spHtmlDoc == NULL)
 {
  return false;
 }
 HRESULT hr = m_spHtmlDoc->get_Script(&spDisp);
 ATLASSERT(SUCCEEDED(hr));
 return SUCCEEDED(hr);
}

CComVariant Cems_mysql_appView::CallJScript(const CString strFunc,const CStringArray& paramArray)
{
 //Getting IDispatch for Java Script objects
 CComPtr<IDispatch> spScript;
 if(!GetJScript(spScript))
 {
  return false;
 }
 //Find dispid for given function in the object
 CComBSTR bstrMember(strFunc);
 DISPID dispid = NULL;
 HRESULT hr = spScript->GetIDsOfNames(IID_NULL,&bstrMember,1,
  LOCALE_SYSTEM_DEFAULT,&dispid);
 if(FAILED(hr))
 {
  return false;
 }

 const int arraySize = paramArray.GetSize();
 //Putting parameters
 DISPPARAMS dispparams;
 memset(&dispparams, 0, sizeof dispparams);
 dispparams.cArgs      = arraySize;
 dispparams.rgvarg     = new VARIANT[dispparams.cArgs];
 dispparams.cNamedArgs = 0;

 for( int i = 0; i < arraySize; i++)
 {
  CComBSTR bstr = paramArray.GetAt(arraySize - 1 - i);
  // back reading
  bstr.CopyTo(&dispparams.rgvarg[i].bstrVal);
  dispparams.rgvarg[i].vt = VT_BSTR;
 }
 EXCEPINFO excepInfo;
 memset(&excepInfo, 0, sizeof excepInfo);
 CComVariant vaResult;
 UINT nArgErr = (UINT)-1;      // initialize to invalid arg
 //Call JavaScript function
 hr = spScript->Invoke(dispid,IID_NULL,0,DISPATCH_METHOD,&dispparams,&vaResult,&excepInfo,&nArgErr);
 delete [] dispparams.rgvarg;
 if(FAILED(hr))
 {
  return false;
 }
 return vaResult;
}



//方法2 

/*调用方法，不必多说。

CString str;
 str.Format(L"getSum(%d,%d,%d,%d,%d)",m_poiStart.x,m_poiStart.y,m_poiEnd.x,m_poiEnd.y,a+1);
 ExecScript(str);

*/
HRESULT Cems_mysql_appView::ExecScript(CString strjs)
{
 HRESULT hr;
 m_spHtmlDoc =  (IHTMLDocument2*)(GetHtmlDocument());
 if(m_sphtmlWnd == NULL)
 {
  hr = m_spHtmlDoc->get_parentWindow(&m_sphtmlWnd);//获取脚本指针
 }
 CComBSTR bstrjs = strjs.AllocSysString();
 CComBSTR bstrlan = SysAllocString(L"javascript");
 VARIANT varRet;
 hr = m_sphtmlWnd->execScript(bstrjs, bstrlan, &varRet);
 //m_sphtmlWnd = NULL;
 return 1;
}