C++和JavaScript脚本的相互调用

Posted 2022-09-05 blogpro

脚本调用C++相对比较容易,使用ATL组件只需要抛双接口即可,但在exe里如何做到呢?本文实现了在exe里脚本和C++的相互调用.在EXE里也需要对外抛送一个继承自IDispatch的接口.并需要重载它的所有接口。由于水平有限，所以难免有错。

 // 头文件

 static const GUID IID_CExternal =

  0x52fee9af, 0xb3b3, 0x4756,  0x80, 0x10, 0xfe, 0xa8, 0xf9, 0xfd, 0xd3, 0x3f  ;

 

 

 class CExternal:public IDispatch

 

 public:

     CExternal(HWND h);

     virtual ~CExternal();

     ULONG __stdcall AddRef()  return 1; 

     ULONG __stdcall Release()    return 1; 

 

       HRESULT __stdcall QueryInterface(REFIID riid, void FAR* FAR* ppv)

       

          if (ppv == NULL)

             return E_POINTER;

          *ppv = NULL;

          if (InlineIsEqualGUID(riid, IID_IUnknown))

          

             *ppv = static_cast<IUnknown *>(this);

             return S_OK;

          

          if(InlineIsEqualGUID(riid, IID_IDispatch) )

          

             *ppv = static_cast<IDispatch FAR *>(this);

             return S_OK;

          

          if(InlineIsEqualGUID(riid, IID_CExternal) )

          

             *ppv = static_cast<CExternal *>(this);

             return S_OK;

          

          return E_NOINTERFACE;

       

 

     HRESULT __stdcall GetTypeInfoCount(UINT FAR* pctinfo)

     

       if (pctinfo == NULL)

       

         return E_INVALIDARG;

        

       // there is only one function

        *pctinfo = 1;

        return NOERROR;

       

 

       HRESULT __stdcall GetTypeInfo(UINT iTInfo,LCID lcid,ITypeInfo FAR* FAR* ppTInfo)

       

          if (ppTInfo == NULL)

             return E_INVALIDARG;

          *ppTInfo = NULL;

          if (iTInfo != 0)

             return DISP_E_BADINDEX;

          *ppTInfo = m_typeinfo;

          if (m_typeinfo!=NULL)

             m_typeinfo->AddRef();

          return NOERROR;

       

 

       HRESULT __stdcall GetIDsOfNames(REFIID  riid,OLECHAR FAR* FAR* rgszNames, unsigned int  cNames,  LCID   lcid,DISPID FAR*rgdispid)

       

          if(lstrcmpiW(*rgszNames,L"exec")==0)

          

             *rgdispid=0;

             return S_OK;

          

          return E_FAIL;

       

 

       HRESULT __stdcall Invoke(DISPID dispidMember,REFIID riid,LCID lcid,WORD wFlags,DISPPARAMS FAR* pdispparams,VARIANT FAR* pvarResult,EXCEPINFO FAR* pexcepinfo,UINT FAR* puArgErr)

       

          if((DISPATCH_PROPERTYGET&wFlags || DISPATCH_METHOD&wFlags)

             && dispidMember==0)

          

             CComBSTR sRet;

             exec(pdispparams, &sRet);

             if (DISPATCH_PROPERTYGET&wFlags)

             

                pvarResult->vt=VT_BSTR;

                pvarResult->bstrVal=sRet.Detach();

             

             return S_OK;

          

          return E_FAIL;

       

        HRESULT  __stdcall exec(DISPPARAMS FAR* pdispparams, BSTR  *pbstrValue);

 

 private:

  HWND m_hWnd;

  LPTYPEINFO  m_typeinfo;

  CString GetVariantStr(VARIANT vVal);

 ;

 

 // 实现的文件

 CExternal::CExternal(HWND h)

 

  csDisplayStr = "";

  m_typeinfo =NULL;

  m_hWnd = h;

  // Create an exec function

  static PARAMDATA  PARAM_VALUE[]=OLESTR("fnName"),VT_BSTR,OLESTR("p1"),VT_BSTR;

  static METHODDATA  rgmdataCCalc=OLESTR("exec"),PARAM_VALUE,0,0,CC_CDECL,2,DISPATCH_METHOD|DISPATCH_PROPERTYGET,VT_BSTR;

  static INTERFACEDATA ifdata=&rgmdataCCalc, 1;

  HRESULT hres=CreateDispTypeInfo(&ifdata, LOCALE_SYSTEM_DEFAULT, &m_typeinfo);

 

 

 CString CExternal::GetVariantStr(VARIANT vVal)

 

    CString csReVal;

 

 

    switch (vVal.vt)

    

       case VT_BOOL:

       

          if (vVal.boolVal == VARIANT_TRUE)

          

             return("1");

          

          else

          

             return("0");

          

          break;

 

       

       case VT_I2:

       

          csReVal.Format("%d",vVal.iVal);

          return(csReVal);

       

 

       case VT_I4:

       

          csReVal.Format("%d",vVal.lVal);

          return(csReVal);

       

 

 //      case VT_R8:

 //      

 //         //csReVal.Format("%f",vVal.dblVal);

 //         csReVal=vVal.dblVal;

 //         return(csReVal);

 //      

 

 

       case VT_BSTR:

       

 

          return(CString(vVal.bstrVal));

       

    

       return "";

 

 

 HRESULT  __stdcall CExternal::exec(DISPPARAMS FAR* pdispparams, BSTR  *pbstrValue) // 脚本的入口点

 

    //  no argument return

    if (pdispparams->cArgs < 1)

    

       *pbstrValue = bstrRet.Detach();

       return S_OK;

    

    int args = pdispparams->cArgs;

 

    // C calling convention order of parameters is in reversed

    CString action = pdispparams->rgvarg[args-1].bstrVal;

    debugIt(" exec***action:%s:%d ",action,args);

    if (action == "alert")

    

         CString csMessage;

         CString csTitle;

 

         if (args > 1)

         

             csMessage=  GetVariantStr(pdispparams->rgvarg[args-2]);

         

         if (args > 2)

         

             csTitle = GetVariantStr(pdispparams->rgvarg[args-3]);

         

       MessageBox(m_hWnd, LPCSTR(csMessage), LPCSTR(csTitle), MB_OK);

    

 //else if(action == "什么")

 //

 //

      *pbstrValue=bstrRet.Detach(); // 返回值

    return S_OK;

 

 

 

 CExternal::~CExternal()

 

  if(m_typeinfo) m_typeinfo->Release();

 

 

C++调用脚本可以使用下面的代码,此代码是我在网上下载的,具体的来源我已经不记得了,但在网上应该可以找到类似的.原理是用到了WebBrowser2,但是C++和脚本的相互调用都用到了html页面,使用HTML页面成了包袱,能否丢掉它,我不知道如何实现,望高手指点.......

 // 头文件

 #pragma once

 #include <atlbase.h>

 #include <Mshtml.h>

 

 class CCallScript

 

 public:

     CCallScript();

     virtual ~CCallScript();

     BOOL DocumentSet()return(m_bDocumentSet);

     BOOL SetDocument(IDispatch* pDisp);

     LPDISPATCH GetHtmlDocument() const;

     const CComBSTR GetLastError() const;

     BOOL GetScript(CComPtr<IDispatch>& spDisp);

     BOOL GetScripts(CComPtr<IHTMLElementCollection>& spColl);

 

     BOOL Run(const CComBSTR strFunc,CComVariant* pVarResult = NULL);

     BOOL Run(const CComBSTR strFunc,const CComBSTR strArg1,CComVariant* pVarResult = NULL);

     BOOL Run(const CComBSTR strFunc,const CComBSTR strArg1,const CComBSTR strArg2,CComVariant* pVarResult = NULL);

     BOOL Run(const CComBSTR strFunc,const CComBSTR strArg1,const CComBSTR strArg2,const CComBSTR strArg3,CComVariant* pVarResult = NULL);

     BOOL Run(const CComBSTR strFunc,const CSimpleArray<CComBSTR> & paramArray,CComVariant* pVarResult = NULL);

 private:

     BOOL m_bDocumentSet;

 protected:

 

 

     void ShowError(CComBSTR lpszText);

 

 protected:

 

     CComPtr<IHTMLDocument2>    m_spDoc;

     CComBSTR    m_strError;

 ;

 

 inline void CCallScript::ShowError(CComBSTR lpszText)

 

     m_strError = "Error: ";

     m_strError.Append(lpszText);

 

 inline const CComBSTR CCallScript::GetLastError() const

 

     return m_strError;

 

 inline LPDISPATCH CCallScript::GetHtmlDocument() const

 

     return m_spDoc;

 

 // CPP文件

 #include "stdafx.h"

 #include "CallScript.h"

 

 #define CHECK_POINTER(p)

     ATLASSERT(p != NULL);

     if(p == NULL)

     

         ShowError("NULL pointer");

         return FALSE;

     

 

 const CComBSTR GetSystemErrorMessage(DWORD dwError)

 

     CComBSTR strError;

     LPTSTR lpBuffer;

 

     if(!FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,

             NULL,  dwError,

             MAKELANGID(LANG_NEUTRAL, SUBLANG_SYS_DEFAULT),

             (LPTSTR) &lpBuffer, 0, NULL))

 

     

         strError = "FormatMessage Netive Error" ;

     

     else

     

         strError = lpBuffer;

         LocalFree(lpBuffer);

     

     return strError;

 

 

 CCallScript::CCallScript()

 

     m_bDocumentSet = FALSE;

 

 

 

 CCallScript::~CCallScript()

 

 

 

 

 BOOL CCallScript::SetDocument(IDispatch* pDisp)

 

     CHECK_POINTER(pDisp);

 

     m_spDoc = NULL;

 

     CComPtr<IDispatch> spDisp = pDisp;

 

     HRESULT hr = spDisp->QueryInterface(IID_IHTMLDocument2,(void**)&m_spDoc);

     if(FAILED(hr))

     

         ShowError("Failed to get HTML document COM object");

         return FALSE;

     

     m_bDocumentSet = TRUE;

     return TRUE;

 

 

 BOOL CCallScript::GetScript(CComPtr<IDispatch>& spDisp)

 

     CHECK_POINTER(m_spDoc);

     HRESULT hr = m_spDoc->get_Script(&spDisp);

     ATLASSERT(SUCCEEDED(hr));

     return SUCCEEDED(hr);

 

 

 BOOL CCallScript::GetScripts(CComPtr<IHTMLElementCollection>& spColl)

 

     CHECK_POINTER(m_spDoc);

     HRESULT hr = m_spDoc->get_scripts(&spColl);

     ATLASSERT(SUCCEEDED(hr));

     return SUCCEEDED(hr);

 

 

 BOOL CCallScript::Run(const CComBSTR strFunc,CComVariant* pVarResult)

 

     CSimpleArray<CComBSTR>  paramArray;

     return Run(strFunc,paramArray,pVarResult);

 

 

 BOOL CCallScript::Run(const CComBSTR strFunc,const CComBSTR strArg1,CComVariant* pVarResult)

 

     CSimpleArray<CComBSTR>  paramArray;

     paramArray.Add((CComBSTR &)strArg1);

     return Run(strFunc,paramArray,pVarResult);

 

 

 BOOL CCallScript::Run(const CComBSTR strFunc,const CComBSTR strArg1,const CComBSTR strArg2,CComVariant* pVarResult)

 

     CSimpleArray<CComBSTR>  paramArray;

     paramArray.Add((CComBSTR &)strArg1);

     paramArray.Add((CComBSTR &)strArg2);

     return Run(strFunc,paramArray,pVarResult);

 

 

 BOOL CCallScript::Run(const CComBSTR strFunc,const CComBSTR strArg1,const CComBSTR strArg2,const CComBSTR strArg3,CComVariant* pVarResult)

 

     CSimpleArray<CComBSTR>  paramArray;

     paramArray.Add((CComBSTR &)strArg1);

     paramArray.Add((CComBSTR &)strArg2);

     paramArray.Add((CComBSTR &)strArg3);

     return Run(strFunc,paramArray,pVarResult);

 

 

 BOOL CCallScript::Run(const CComBSTR strFunc, const CSimpleArray<CComBSTR>& paramArray,CComVariant* pVarResult)

 

     CComPtr<IDispatch> spScript;

     if(!GetScript(spScript))

     

         ShowError("Cannot GetScript");

         return FALSE;

     

     CComBSTR bstrMember(strFunc);

     DISPID dispid = NULL;

     HRESULT hr = spScript->GetIDsOfNames(IID_NULL,&bstrMember,1,

                                             LOCALE_SYSTEM_DEFAULT,&dispid);

     if(FAILED(hr))

     

         ShowError(GetSystemErrorMessage(hr));

         return FALSE;

     

 

     //const int arraySize = paramArray.GetCount();

     const int arraySize = paramArray.GetSize();

 

     DISPPARAMS dispparams;

     memset(&dispparams, 0, sizeof dispparams);

     dispparams.cArgs = arraySize;

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

     //__asm int 3

     CComBSTR bstr;

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

     

         bstr.Empty();

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

         bstr = paramArray[arraySize - 1 - i]; // back reading

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

         dispparams.rgvarg[i].bstrVal = bstr.m_str; //also cause problem when paras are more than 1

         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);

 

 /////////////// bug fix memory leak code start ///////////////

 //    for( int j = 0; j < arraySize; j++)

 //        ::SysFreeString(dispparams.rgvarg[j].bstrVal);

 /////////////// bug fix memory leak code end ///////////////

 

     delete [] dispparams.rgvarg;

     if(FAILED(hr))

     

         ShowError(GetSystemErrorMessage(hr));

         return FALSE;

     

 

     if(pVarResult)

     

         *pVarResult = vaResult;

     

     return FALSE;

 

 

这两个文件的使用的方法:

     // Get the browser control.

     CAxWindow wnd = GetDlgItem(IDC_EXPLORER); // WebBrowser

     wnd.QueryControl( &m_spBrowser );

     CComPtr<IAxWinAmbientDispatch> spAmbient;

     HRESULT hr = wnd.QueryHost(&spAmbient);

 

     // diable the context menu

     // disable the scrollbar

     if( SUCCEEDED(hr) )

     

         spAmbient->put_AllowContextMenu(VARIANT_TRUE);

         spAmbient->put_DocHostFlags(docHostUIFlagFLAT_SCROLLBAR);

     

 

     // navigate to the base html

     VARIANT flag = 0;

     VARIANT name = 0;

     VARIANT post = 0;

     VARIANT head = 0;

     // 

 //    m_spBrowser->Navigate(_bstr_t(GetFullName("WhizConsoleSlave.html")), &flag, &name, &post, &head);

     TCHAR szFileName[MAX_PATH];

     ::GetModuleFileName(_Module.GetModuleInstance(), szFileName, MAX_PATH);

     TCHAR szRes[MAX_PATH+10];

     ::wsprintf(szRes, _T("res://%s/%0d"), szFileName, IDR_HTML);

     CComVariant vURL(szRes);

     m_spBrowser->Navigate2(&vURL, &flag, &name, &post, &head); // 显示指定的页面

 

     // Create a wrapper about the external dispatch interface

     CComObject<CWrapperDispatch>*   spdispWrapper = 0;

     hr = CComObject<CWrapperDispatch>::CreateInstance(&spdispWrapper);

     if( FAILED(hr) ) return 0;

 

     // Dummy for refcount management

     CComPtr<IUnknown> spUnk = spdispWrapper;

 

     // Create the object that will handle the external interface for the

     // html file.

     pExternal = new CExternal(m_hWnd);

     m_oExternal = static_cast<IDispatch *>(pExternal);

 

     // Set the external dispatch interface

     spdispWrapper->SetDispatch(m_oExternal); // 对脚本抛送接口

     hr = wnd.SetExternalDispatch(spdispWrapper);

 //    wnd.SetFocus();

 

 

 // ******************************************************************

 // 调用脚本比较容易

     if ( m_CallScript.DocumentSet() == FALSE)

     

         IDispatch* d = NULL;

         m_spBrowser->get_Document(&d);

         m_CallScript.SetDocument(d);

         d->Release();

     

     m_CallScript.Run(L"DisplayStr"); // DisplayStr就是脚本的函数

     m_CallScript.Run(L"AddDir","a","b"); // AddDir也是脚本的函数,a和b是AddDir的参数.