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

调用函数代码和示例

 

Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--> 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;

}