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

 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