ActiveX组件与JavaScript交互

转载 于 2008-12-05 01:00:00 发布 · 1.2k 阅读 · 1
文章标签：

#javascript #output #null #system #webbrowser #脚本

本文介绍了COM组件如何与JavaScript进行交互的方法，包括调用JavaScript函数、传递结构数组以及执行脚本等内容。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

 

1．在COM组件中调用JavaScript函数

  1. // 连接点方式页面javascript脚本
  2. <object classid="CLSID:B568F111-DFE4-4944-B67F-0728AB2AB30F" id="testCom" VIEWASTEXT></object>
  3. <script language="JavaScript" for="testCom" event="staTe(s)">
  4.         alert("State(" + s + ")");
  5.         return 123;
  6. </script>
  7. <script language="JavaScript">
  8.         testCom.FireStateEvent("Hello");
  9. </script>
  11. // 事件属性方式页面javascript脚本
  12. function onState(s){
  13.         alert("onState(" + s + ")");
  14.         return 456;
  15. }
  16. var o = new ActiveXObject("TestATL.TestCom");
  17. o.onstaTe=onState;
  18. o.FireStateEvent("Hello");
    1. // Com组件VC7.1 ATL代码
    2. __interface _ITestComEvents{
    3.         [id(1), helpstring("State事件")] HRESULT State([in] BSTR str);
    4. };
    5. __event __interface _ITestComEvents;
    6. IDispatchPtr m_onState;        // 事件属性
    7. STDMETHOD(get_onState)(IDispatch** pVal) {
    8.         *pVal = m_onState;
    9.         return S_OK;
    10. };
    11. STDMETHOD(put_onState)(IDispatch* newVal) {
    12.         m_onState = newVal;
    13.         return S_OK;
    14. };
    15. STDMETHOD(FireStateEvent)(BSTR str) {
    16.         __raise State(str);        // 激发连接点事件
    17.         CComVariant result;
    18.         CComVariant avarParams[1] = {str};
    19.         DISPPARAMS dispParams = {avarParams, NULL, 1, 0};
    20.         EXCEPINFO excepInfo;
    21.         memset(&excepInfo, 0, sizeof excepInfo);
    22.         UINT nArgErr = (UINT)-1;      // initialize to invalid arg
    23.         if (m_onState)        // 激发属性事件
    24.             HRESULT hr = m_onState->Invoke(0, IID_NULL, LOCALE_USER_DEFAULT,
    25.                 DISPATCH_METHOD, &dispParams, &result, &excepInfo, &nArgErr);
    26.         return S_OK;
    27. }
    参见：
    How To Call a Script Function from a VC WebBrowser Application
    如何在COM object中使用 Javascript function object?
    在COM组件中调用JavaScript函数
  22. 2．从页面javascript向Com组件传递结构数组
    1. // 页面脚本
    2. var o = new ActiveXObject("TestATL.TestCom");
    3. o.onstaTe=onState;
    4. o.Put("array", {0: 123, 1: "abc"});
    5. o.Put("array", [456, "def"]);
    6. o.Put("array", [{name: "tom", age: 8}, {name: "jack", age: 10}]);
    7. var a = new Array(789, "ghi"); // has "length" property
    8. o.Put("array", a);
    10. // Com组件VC7.1 ATL代码
    11. STDMETHODIMP CTestCom::Put(BSTR key, VARIANT value)
    12. {
    13. WCHAR output[4096] = L"";
    14. if(0 == wcsicmp(key, L"array") && VT_DISPATCH == value.vt)
    15. {
    16.      IDispatchPtr spDisp = value.pdispVal;
    17.      DISPID dispID = 0;
    18.      DISPPARAMS dispParams = {NULL, NULL, 0, 0};
    19.      CComVariant result;
    20.      EXCEPINFO excepInfo;
    21.      memset(&excepInfo, 0, sizeof excepInfo);
    22.      UINT nArgErr = (UINT)-1; // initialize to invalid arg
    23.      unsigned int length = 0; // 数组长度 或 属性 个数
    25.      LPOLESTR func = L"length";
    26.      HRESULT hr = spDisp->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &dispID);
    27.      if(S_OK == hr){       // 如果有"length"属性
    28.       hr = spDisp->Invoke(dispID, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &dispParams, &result, &excepInfo, &nArgErr);
    29.       if(S_OK == hr && VT_I4 == result.vt)
    30.        length = result.intVal;       // 直接读取数组长度
    31.      }else{
    32.       unsigned int nTypeInfo = 0;
    33.       hr = spDisp->GetTypeInfoCount(&nTypeInfo);
    34.       ATLASSERT(1 == nTypeInfo);
    35.       ITypeInfoPtr spTypeInfo;
    36.       hr = spDisp->GetTypeInfo(0, 0, &spTypeInfo);
    37.       TYPEATTR *pTypeAttr = NULL;
    38.       hr = spTypeInfo->GetTypeAttr(&pTypeAttr);
    39.       //ATLASSERT("{C59C6B12-F6C1-11CF-8835-00A0C911E8B2}" == pTypeAttr->guid);     // JScript: 
    40.       length = pTypeAttr->cVars;       // 从类型信息读取数组长度
    41.       spTypeInfo->ReleaseTypeAttr(pTypeAttr);
    42.      }
    43.      for(unsigned int i=0; i<length; i++)
    44.      {
    45.       WCHAR buf[32];
    46.       _itow(i, buf, 10);
    47.       func = buf;
    48.       hr = spDisp->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &dispID);
    49.       hr = spDisp->Invoke(dispID, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &dispParams, &result, &excepInfo, &nArgErr);
    50.       if(S_OK != hr)
    51.        continue;
    52.       if(VT_DISPATCH == result.vt){
    53.        IDispatchPtr spItem = result.pdispVal;
    54.        func = L"name";
    55.        hr = spItem->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &dispID);
    56.        hr = spItem->Invoke(dispID, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &dispParams, &result, &excepInfo, &nArgErr);
    57.        if(S_OK == hr && VT_BSTR == result.vt)
    58.         swprintf(output + wcslen(output), L"name=%s", result.bstrVal);
    59.        func = L"age";
    60.        hr = spItem->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &dispID);
    61.        hr = spItem->Invoke(dispID, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &dispParams, &result, &excepInfo, &nArgErr);
    62.        if(S_OK == hr && VT_I4 == result.vt)
    63.         swprintf(output + wcslen(output), L" age=%d/n", result.intVal);
    64.       }else if(VT_BSTR == result.vt)
    65.        swprintf(output + wcslen(output), L"BSTR:%s/n", result.bstrVal);
    66.       else if(VT_I4 == result.vt)
    67.        swprintf(output + wcslen(output), L"I4:%d/n", result.intVal);
    68.       else
    69.        swprintf(output + wcslen(output), L"item.vt=%d/n", result.vt);
    70.      }
    71. }
    72. FireStateEvent(output);
    73. return S_OK;
    74. }
  24. 3．枚举IE窗口的内容，并调用其中的脚本
    1. #import <mshtml.tlb>       // Internet Explorer 5
    2. #import <shdocvw.dll> 
    3.         SHDocVw::IShellWindowsPtr spSHWinds; 
    4.         spSHWinds.CreateInstance(__uuidof(SHDocVw::ShellWindows));
    5.         long nCount = spSHWinds->GetCount();
    6.         IDispatchPtr spDisp;
    7.         for (long i = 0; i < nCount; i++)
    8.         {
    9.          _variant_t va(i, VT_I4);
    10.          spDisp = spSHWinds->Item(va);
    11.          SHDocVw::IWebBrowser2Ptr spBrowser(spDisp);
    12.          if (spBrowser != NULL)
    13.          {
    14.           _bstr_t location = spBrowser->GetLocationName();
    15.           if(_bstr_t(L"Test DapCtrl") == location)       // 找指定IE窗口
    16.           {
    17.            IHTMLDocument2Ptr spDoc(spBrowser->GetDocument());
    18.            if (spDoc != NULL)
    19.            {
    20.             _bstr_t exp = m_onState;
    21.             IDispatch *pdis = NULL;
    22.             hr = spDoc->get_Script(&pdis);
    23.             if(pdis){
    24.              DISPID tmpDispID = 0;
    25.              LPOLESTR func = L"Test"; // javascript 函数名
    26.              hr = pdis->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &tmpDispID);
    27.              if(S_OK == hr)
    28.               hr = pdis->Invoke(tmpDispID, IID_NULL, LOCALE_USER_DEFAULT,
    29.                DISPATCH_METHOD, &dispParams, &result, &excepInfo, &nArgErr);
    30.             }
    31.            }
    32.           }
    33.          }
    34.         }
    参见：
    HOWTO: Connect to a Running Instance of Internet Explorer
    ActiveX组件与JavaScript交互
    ActiveX组件控制其所在的IE窗口
  27. 4．在VC中执行脚本
    1. #import <msscript.ocx>       // msscript.ocx 
    2. using namespace MSScriptControl;
    3.         IScriptControlPtr pScriptControl(__uuidof(ScriptControl));
    4.         LPSAFEARRAY psa;
    5.         SAFEARRAYBOUND rgsabound[]       = { 1, 0 }; // 1 elements, 0-based
    6.         int i;
    7.         psa = SafeArrayCreate(VT_VARIANT, 1, rgsabound);
    8.         if (!psa)
    9.         {
    10.          return E_OUTOFMEMORY;
    11.         }
    12.         VARIANT vFlavors[1];
    13.         for (i = 0; i < 1; i++)
    14.         {
    15.          VariantInit(&vFlavors[i]);
    16.          V_VT(&vFlavors[i]) = VT_BSTR;
    17.         }
    18.         V_BSTR(&vFlavors[0]) = SysAllocString(bstr);
    19.         long lZero = 0;
    20.         hr = SafeArrayPutElement(psa, &lZero,&vFlavors[0]);
    21.         for(i=0;i<1;i++)
    22.         {
    23.          SysFreeString(vFlavors[i].bstrVal);
    24.         }
    25.         pScriptControl->Language = "JScript";
    26.         pScriptControl->AllowUI = TRUE;
    27.         _bstr_t exp = L"1+2+3";
    28.         _variant_t outpar = pScriptControl->Eval(exp);
    29.         //_variant_t outpar = pScriptControl->ExecuteStatement(exp);
    30.         //_variant_t outpar = pScriptControl->Run("MyStringFunction", &psa);
    31.         _bstr_t bstrReturn = (_bstr_t)outpar;
    32.         char *pResult = (char *)bstrReturn;
    33.         SafeArrayDestroy(psa);
    参见：
    How To Call Run() Method of the Microsoft Script Control in C++

评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值