ActiveX组件与JavaScript交互


1．在COM组件中调用JavaScript函数
// 连接点方式页面javascript脚本
<object classid="CLSID:B568F111-DFE4-4944-B67F-0728AB2AB30F" id="testCom" VIEWASTEXT></object>
<script language="JavaScript" for="testCom" event="staTe(s)">
        alert("State(" + s + ")");
        return 123;
</script>
<script language="JavaScript">
        testCom.FireStateEvent("Hello");
</script>

// 事件属性方式页面javascript脚本
function onState(s){
        alert("onState(" + s + ")");
        return 456;
}
var o = new ActiveXObject("TestATL.TestCom");
o.onstaTe=onState;
o.FireStateEvent("Hello");

// Com组件VC7.1 ATL代码
__interface _ITestComEvents{
        [id(1), helpstring("State事件")] HRESULT State([in] BSTR str);
};
__event __interface _ITestComEvents;
IDispatchPtr m_onState;        // 事件属性
STDMETHOD(get_onState)(IDispatch** pVal) {
        *pVal = m_onState;
        return S_OK;
};
STDMETHOD(put_onState)(IDispatch* newVal) {
        m_onState = newVal;
        return S_OK;
};
STDMETHOD(FireStateEvent)(BSTR str) {
        __raise State(str);        // 激发连接点事件
        CComVariant result;
        CComVariant avarParams[1] = {str};
        DISPPARAMS dispParams = {avarParams, NULL, 1, 0};
        EXCEPINFO excepInfo;
        memset(&excepInfo, 0, sizeof excepInfo);
        UINT nArgErr = (UINT)-1;      // initialize to invalid arg
        if (m_onState)        // 激发属性事件
            HRESULT hr = m_onState->Invoke(0, IID_NULL, LOCALE_USER_DEFAULT,
                DISPATCH_METHOD, &dispParams, &result, &excepInfo, &nArgErr);
        return S_OK;
}
参见：
How To Call a Script Function from a VC WebBrowser Application
如何在COM object中使用 Javascript function object?
在COM组件中调用JavaScript函数

2．从页面javascript向Com组件传递结构数组
// 页面脚本
var o = new ActiveXObject("TestATL.TestCom");
o.onstaTe=onState;
o.Put("array", {0: 123, 1: "abc"});
o.Put("array", [456, "def"]);
o.Put("array", [{name: "tom", age: 8}, {name: "jack", age: 10}]);
var a = new Array(789, "ghi"); // has "length" property
o.Put("array", a);

// Com组件VC7.1 ATL代码
STDMETHODIMP CTestCom::Put(BSTR key, VARIANT value)
{
WCHAR output[4096] = L"";
if(0 == wcsicmp(key, L"array") && VT_DISPATCH == value.vt)
{
     IDispatchPtr spDisp = value.pdispVal;
     DISPID dispID = 0;
     DISPPARAMS dispParams = {NULL, NULL, 0, 0};
     CComVariant result;
     EXCEPINFO excepInfo;
     memset(&excepInfo, 0, sizeof excepInfo);
     UINT nArgErr = (UINT)-1; // initialize to invalid arg
     unsigned int length = 0; // 数组长度 或 属性 个数

     LPOLESTR func = L"length";
     HRESULT hr = spDisp->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &dispID);
     if(S_OK == hr){       // 如果有"length"属性
      hr = spDisp->Invoke(dispID, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &dispParams, &result, &excepInfo, &nArgErr);
      if(S_OK == hr && VT_I4 == result.vt)
       length = result.intVal;       // 直接读取数组长度
     }else{
      unsigned int nTypeInfo = 0;
      hr = spDisp->GetTypeInfoCount(&nTypeInfo);
      ATLASSERT(1 == nTypeInfo);
      ITypeInfoPtr spTypeInfo;
      hr = spDisp->GetTypeInfo(0, 0, &spTypeInfo);
      TYPEATTR *pTypeAttr = NULL;
      hr = spTypeInfo->GetTypeAttr(&pTypeAttr);
      //ATLASSERT("{C59C6B12-F6C1-11CF-8835-00A0C911E8B2}" == pTypeAttr->guid);     // JScript:
      length = pTypeAttr->cVars;       // 从类型信息读取数组长度
      spTypeInfo->ReleaseTypeAttr(pTypeAttr);
     }
     for(unsigned int i=0; i<length; i++)
     {
      WCHAR buf[32];
      _itow(i, buf, 10);
      func = buf;
      hr = spDisp->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &dispID);
      hr = spDisp->Invoke(dispID, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &dispParams, &result, &excepInfo, &nArgErr);
      if(S_OK != hr)
       continue;
      if(VT_DISPATCH == result.vt){
       IDispatchPtr spItem = result.pdispVal;
       func = L"name";
       hr = spItem->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &dispID);
       hr = spItem->Invoke(dispID, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &dispParams, &result, &excepInfo, &nArgErr);
       if(S_OK == hr && VT_BSTR == result.vt)
        swprintf(output + wcslen(output), L"name=%s", result.bstrVal);
       func = L"age";
       hr = spItem->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &dispID);
       hr = spItem->Invoke(dispID, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &dispParams, &result, &excepInfo, &nArgErr);
       if(S_OK == hr && VT_I4 == result.vt)
        swprintf(output + wcslen(output), L" age=%d/n", result.intVal);
      }else if(VT_BSTR == result.vt)
       swprintf(output + wcslen(output), L"BSTR:%s/n", result.bstrVal);
      else if(VT_I4 == result.vt)
       swprintf(output + wcslen(output), L"I4:%d/n", result.intVal);
      else
       swprintf(output + wcslen(output), L"item.vt=%d/n", result.vt);
     }
}
FireStateEvent(output);
return S_OK;
}

3．枚举IE窗口的内容，并调用其中的脚本
#import <mshtml.tlb>       // Internet Explorer 5
#import <shdocvw.dll>
        SHDocVw::IShellWindowsPtr spSHWinds;
        spSHWinds.CreateInstance(__uuidof(SHDocVw::ShellWindows));
        long nCount = spSHWinds->GetCount();
        IDispatchPtr spDisp;
        for (long i = 0; i < nCount; i++)
        {
         _variant_t va(i, VT_I4);
         spDisp = spSHWinds->Item(va);
         SHDocVw::IWebBrowser2Ptr spBrowser(spDisp);
         if (spBrowser != NULL)
         {
          _bstr_t location = spBrowser->GetLocationName();
          if(_bstr_t(L"Test DapCtrl") == location)       // 找指定IE窗口
          {
           IHTMLDocument2Ptr spDoc(spBrowser->GetDocument());
           if (spDoc != NULL)
           {
            _bstr_t exp = m_onState;
            IDispatch *pdis = NULL;
            hr = spDoc->get_Script(&pdis);
            if(pdis){
             DISPID tmpDispID = 0;
             LPOLESTR func = L"Test"; // javascript 函数名
             hr = pdis->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &tmpDispID);
             if(S_OK == hr)
              hr = pdis->Invoke(tmpDispID, IID_NULL, LOCALE_USER_DEFAULT,
               DISPATCH_METHOD, &dispParams, &result, &excepInfo, &nArgErr);
            }
           }
          }
         }
        }
参见：
HOWTO: Connect to a Running Instance of Internet Explorer
ActiveX组件与JavaScript交互
ActiveX组件控制其所在的IE窗口

4．在VC中执行脚本
#import <msscript.ocx>       // msscript.ocx
using namespace MSScriptControl;
        IScriptControlPtr pScriptControl(__uuidof(ScriptControl));
        LPSAFEARRAY psa;
        SAFEARRAYBOUND rgsabound[]       = { 1, 0 }; // 1 elements, 0-based
        int i;
        psa = SafeArrayCreate(VT_VARIANT, 1, rgsabound);
        if (!psa)
        {
         return E_OUTOFMEMORY;
        }
        VARIANT vFlavors[1];
        for (i = 0; i < 1; i++)
        {
         VariantInit(&vFlavors[i]);
         V_VT(&vFlavors[i]) = VT_BSTR;
        }
        V_BSTR(&vFlavors[0]) = SysAllocString(bstr);
        long lZero = 0;
        hr = SafeArrayPutElement(psa, &lZero,&vFlavors[0]);
        for(i=0;i<1;i++)
        {
         SysFreeString(vFlavors[i].bstrVal);
        }
        pScriptControl->Language = "JScript";
        pScriptControl->AllowUI = TRUE;
        _bstr_t exp = L"1+2+3";
        _variant_t outpar = pScriptControl->Eval(exp);
        //_variant_t outpar = pScriptControl->ExecuteStatement(exp);
        //_variant_t outpar = pScriptControl->Run("MyStringFunction", &psa);
        _bstr_t bstrReturn = (_bstr_t)outpar;
        char *pResult = (char *)bstrReturn;
        SafeArrayDestroy(psa);
参见：

How To Call Run() Method of the Microsoft Script Control in C++

来自CSDN网站ssli博客

时间： 2024-09-20 10:52:50

ActiveX组件与JavaScript交互的相关文章

一步一步实现ATL开发的ActiveX组件与javascript的交互（一）

1.      打开VS2008,单击起始页中的"New Project-",选择"ATL"分类下的"ATL Project"项目,项目名称为"ATLtest".在随后出现的项目向导中,使用默认配置即可.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <?xml:namespace p

前端开发框架UI组件和Javascript插件

文章简介:支持响应式设计的流行前端开发框架. 在几年前,并没有真正意义上的前端开发.随着网络技术的发展,网站和 Web 应用程序变得越来越复杂,前端部分的工作独立出来逐渐成为现在的前端开发.如今,我们可以看到越来越多的公司在招聘前端开发岗位. 前端开发并不容易,除了掌握基本的 HTML.CSS 和 Javascript 之外,因为不同版本的浏览器和平台,你需要知道如何做一个跨浏览器的网站.而最新的发展趋势--响应式设计,它不仅使 Web 项目开发更难,也需要花费更多的开发时间. 不过,有很多优秀

WEBJX推荐10个带有漂亮UI组件的JavaScript框架

文章简介:十个拥有丰富 UI 组件的 JavaScript 开发框架. 如今,网上有各种各样的JavaScript框架用来简化 Web 应用开发.这些框架都提供了一些核心的特性,例如 DOM 操作,动画,事件处理以及 Ajax 交互,但不是都带有 UI 组件.今天这篇文章向大家推荐的10个JavaScript框架提供了丰富的 Web UI 组件,帮助你构建一致,可靠以及高度交互的漂亮用户界面. ExtJS ExtJS 是最流行的 JavaScript 框架之一,提供了非常丰富的 UI 组件,包括

Visual C#创建和使用ActiveX组件

active|activex|visual|创建 开发基于.Net平台上的程序员是很难从本质上把Visual C#和ActiveX组件联起来,虽然在使用Visual C#开发应用程序时,有时为了快速开发或者由于.Net FrameWork SDK的不完整,还需要借助ActiveX.但即使如此,也很难把二者联系起来.其中的原因就是能够被Visual C#直接使用文件和通过Visual C#生成的可执行程序只可能是托管的文件.而Active X组件却都是非托管文件.这种文件的差异决定了二者本质"对立

使用AmplifyJS组件配合JavaScript进行编程的指南_基础知识

事件分发的作用 在为页面添加各类交互功能时,我们熟知的最简单的做法就是为页面元素绑定事件,然后在事件处理函数中,做我们想要做的动作.就像这样的代码: element.onclick = function(event){ // Do anything. }; 如果我们要做的动作不复杂,那么实际逻辑功能的代码,放在这里是可以的.如果今后需要修改,再到这段事件处理函数的位置来修改. 再进一步,为了做适当的代码复用,我们可能会把逻辑功能中的一部分分拆到一个函数内: element.onclick = f

ASP编程之ActiveX组件

active|activex|编程 从今天开始我们将正式学习 ASP 的精华部分 --ActiveX 组件.事实上,当你用 ASP 编写服务器端应用程序时,必须依靠 ActiveX 组件来强大 Web 应用程序的功能,譬如:你需要连接数据库,对数据库进行在线操作或者对 WEB 服务器上的文件系统进行操作,亦或你需要一个 WEB 广告交换程序,所有这一切你都必须通过调用 ASP 内建的 ActiveX 组件或自己编写所需的组件来完成. 那么,究竟什么是 ActiveX 组件呢?它又是如何运作的呢?

第十四篇 ActiveX 组件

当你用 ASP 编写服务器端应用程序时,必须依靠 ActiveX 组件来强大 Web 应用程序的功能,譬如:你需要连接数据库,对数据库进行在线操作等等,本文从本篇开始将陆续给大家介绍 ASP ActiveX 组件的使用方法. 从今天开始我们将正式学习 ASP 的精华部分 --ActiveX 组件.事实上,当你用 ASP 编写服务器端应用程序时,必须依靠 ActiveX 组件来强大 Web 应用程序的功能,譬如:你需要连接数据库,对数据库进行在线操作或者对 WEB 服务器上的文件系统进行操作,亦或

第十五篇 常用的ASP ActiveX组件

当你用 ASP 编写服务器端应用程序时,必须依靠 ActiveX 组件来强大 Web 应用程序的功能,譬如:你需要连接数据库,对数据库进行在线操作等等,继上篇介绍了 AD Rotator 组件后,本篇将接着给大家介绍其它一些常用的 ASP ActiveX 组件的使用方法. 最近仍有不少朋友来信问我, ASP 是否只能在 Microsoft IIS 上运行,是否可以在非 NT 平台上运作?本来这个问题我已经回答过很多遍了 : 我只是听说过有某种可以支持的软件,却从没见过.但一些热情的朋友仍然孜孜不

第十五课:常用的 ASP ActiveX 组件

当你用 ASP 编写服务器端应用程序时,必须依靠 ActiveX 组件来强大 Web 应用程序的功能,譬如:你需要连接数据库,对数据库进行在线操作等等,继上篇介绍了 AD Rotator 组件后,本篇将接着给大家介绍其它一些常用的 ASP ActiveX 组件的使用方法. 最近仍有不少朋友来信问我, ASP 是否只能在 Microsoft IIS 上运行,是否可以在非 NT 平台上运作?本来这个问题我已经回答过很多遍了 : 我只是听说过有某种可以支持的软件,却从没见过.但一些热情的朋友仍然孜孜不