VC调用JS

bool CGetWebApp::SetDocument(IDispatch* pDisp)

{

    CHECK_POINTER(pDisp);

    m_spHtmlDoc = NULL;

    CComPtr<IDispatch> spScript = pDisp;

    HRESULT hr = spScript->QueryInterface(IID_IHTMLDocument2,(void**)&m_spHtmlDoc);

    if(FAILED(hr))

    {

        return false;

    }

    return true;

}   

bool CGetWebApp::GetJScript(CComPtr<IDispatch>& spScript)

{

    CHECK_POINTER(m_spHtmlDoc);

    HRESULT hr = m_spHtmlDoc->get_Script(&spScript);

    ATLASSERT(SUCCEEDED(hr));

    return SUCCEEDED(hr);

}

bool CGetWebApp::CallJScript(const CString strFunc, const CStringArray& paramArray, CComVariant* pVarResult)

{

    CComPtr<IDispatch> spScript;

    if (!GetJScript(spScript))

    {

        return FALSE;

    }

    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 INT_PTR = paramArray.GetSize();

    DISPPARAMS dispparams;

    memset(&dispparams, 0, sizeof dispparams);

    dispparams.cArgs = INT_PTR;

    dispparams.rgvarg = new VARIANT[dispparams.cArgs];

    for( int i = 0; i < INT_PTR; i++)

    {

        CComBSTR bstr = paramArray.GetAt(INT_PTR - 1 - i); // back reading

        bstr.CopyTo(&dispparams.rgvarg[i].bstrVal);

        dispparams.rgvarg[i].vt = VT_BSTR;

    }

    dispparams.cNamedArgs = 0;

    EXCEPINFO excepInfo;

    memset(&excepInfo, 0, sizeof excepInfo);

       CComVariant vaResult;

    UINT nArgErr = (UINT)-1;  // initialize to invalid arg

    

    hr=spScript->Invoke(dispid,IID_NULL,0,DISPATCH_METHOD,&dispparams,&vaResult,&excepInfo,&nArgErr);  //调用js函数

    delete [] dispparams.rgvarg;

    if(FAILED(hr))

    {

        return FALSE;

    }   

    *pVarResult = vaResult;

    return TRUE;

}