ActiveX获取JavaScript传递的二维数组

于 2016-11-01 14:02:43 发布
阅读量706 收藏
点赞数
文章标签： ActiveX JavaScript 二维数组 VARIANT 数组长度
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/jfu22/article/details/52994893
版权

此文参考了http://blog.csdn.net/playstudy/article/details/8259737，在此基础上做了改进

// WebDlg.idl : WebDlg 的 IDL 源
//

// 此文件将由 MIDL 工具处理以
// 产生类型库(WebDlg.tlb)和封送处理代码。

#include "olectl.h"
import "oaidl.idl";
import "ocidl.idl";

[
	object,
	uuid(1DC366A1-3040-4376-B4CD-26B0E7032641),
	dual,
	nonextensible,
	pointer_default(unique)
]
interface IGetJavaScriptArray : IDispatch
{
	[id(1)] HRESULT getArrayValue2D([in] VARIANT arrayPoints, [out,retval] LONG *result);
};

[
	uuid(9C070B0B-F506-44C6-8163-CC9C502B12A3),
	version(1.0),
]
library WebDlgLib
{
	importlib("stdole2.tlb");
	[
		uuid(E5466677-5CF1-4870-98EA-01E9C4A198DF),
		control
	]
	coclass GetJavaScriptArray
	{
		[default] interface IGetJavaScriptArray;
	};
};

// GetJavaScriptArray.h : CGetJavaScriptArray 的声明
#pragma once
#include "resource.h"       // 主符号
#include <atlctl.h>
#include "WebDlg_i.h"

#if defined(_WIN32_WCE) && !defined(_CE_DCOM) && !defined(_CE_ALLOW_SINGLE_THREADED_OBJECTS_IN_MTA)
#error "Windows CE 平台(如不提供完全 DCOM 支持的 Windows Mobile 平台)上无法正确支持单线程 COM 对象。定义 _CE_ALLOW_SINGLE_THREADED_OBJECTS_IN_MTA 可强制 ATL 支持创建单线程 COM 对象实现并允许使用其单线程 COM 对象实现。rgs 文件中的线程模型已被设置为“Free”，原因是该模型是非 DCOM Windows CE 平台支持的唯一线程模型。"
#endif

using namespace ATL;



// CGetJavaScriptArray
class ATL_NO_VTABLE CGetJavaScriptArray :
	public CComObjectRootEx<CComSingleThreadModel>,
	public IDispatchImpl<IGetJavaScriptArray, &IID_IGetJavaScriptArray, &LIBID_WebDlgLib, /*wMajor =*/ 1, /*wMinor =*/ 0>,
	public IOleControlImpl<CGetJavaScriptArray>,
	public IOleObjectImpl<CGetJavaScriptArray>,
	public IOleInPlaceActiveObjectImpl<CGetJavaScriptArray>,
	public IViewObjectExImpl<CGetJavaScriptArray>,
	public IOleInPlaceObjectWindowlessImpl<CGetJavaScriptArray>,
	public ISupportErrorInfo,
	public IQuickActivateImpl<CGetJavaScriptArray>,
#ifndef _WIN32_WCE
	public IDataObjectImpl<CGetJavaScriptArray>,
#endif
	public IProvideClassInfo2Impl<&CLSID_GetJavaScriptArray, NULL, &LIBID_WebDlgLib>,
	public CComCoClass<CGetJavaScriptArray, &CLSID_GetJavaScriptArray>,
	public CComControl<CGetJavaScriptArray>
{
public:


	CGetJavaScriptArray()
	{
	}

DECLARE_OLEMISC_STATUS(OLEMISC_RECOMPOSEONRESIZE |
	OLEMISC_CANTLINKINSIDE |
	OLEMISC_INSIDEOUT |
	OLEMISC_ACTIVATEWHENVISIBLE |
	OLEMISC_SETCLIENTSITEFIRST
)

DECLARE_REGISTRY_RESOURCEID(IDR_GETJAVASCRIPTARRAY)


BEGIN_COM_MAP(CGetJavaScriptArray)
	COM_INTERFACE_ENTRY(IGetJavaScriptArray)
	COM_INTERFACE_ENTRY(IDispatch)
	COM_INTERFACE_ENTRY(IViewObjectEx)
	COM_INTERFACE_ENTRY(IViewObject2)
	COM_INTERFACE_ENTRY(IViewObject)
	COM_INTERFACE_ENTRY(IOleInPlaceObjectWindowless)
	COM_INTERFACE_ENTRY(IOleInPlaceObject)
	COM_INTERFACE_ENTRY2(IOleWindow, IOleInPlaceObjectWindowless)
	COM_INTERFACE_ENTRY(IOleInPlaceActiveObject)
	COM_INTERFACE_ENTRY(IOleControl)
	COM_INTERFACE_ENTRY(IOleObject)
	COM_INTERFACE_ENTRY(ISupportErrorInfo)
	COM_INTERFACE_ENTRY(IQuickActivate)
#ifndef _WIN32_WCE
	COM_INTERFACE_ENTRY(IDataObject)
#endif
	COM_INTERFACE_ENTRY(IProvideClassInfo)
	COM_INTERFACE_ENTRY(IProvideClassInfo2)
END_COM_MAP()

BEGIN_PROP_MAP(CGetJavaScriptArray)
	PROP_DATA_ENTRY("_cx", m_sizeExtent.cx, VT_UI4)
	PROP_DATA_ENTRY("_cy", m_sizeExtent.cy, VT_UI4)
	// 示例项
	// PROP_ENTRY_TYPE("属性名", dispid, clsid, vtType)
	// PROP_PAGE(CLSID_StockColorPage)
END_PROP_MAP()


BEGIN_MSG_MAP(CGetJavaScriptArray)
	CHAIN_MSG_MAP(CComControl<CGetJavaScriptArray>)
	DEFAULT_REFLECTION_HANDLER()
END_MSG_MAP()
// 处理程序原型:
//  LRESULT MessageHandler(UINT uMsg, WPARAM wParam, LPARAM lParam, BOOL& bHandled);
//  LRESULT CommandHandler(WORD wNotifyCode, WORD wID, HWND hWndCtl, BOOL& bHandled);
//  LRESULT NotifyHandler(int idCtrl, LPNMHDR pnmh, BOOL& bHandled);

// ISupportsErrorInfo
	STDMETHOD(InterfaceSupportsErrorInfo)(REFIID riid)
	{
		static const IID* const arr[] =
		{
			&IID_IGetJavaScriptArray,
		};

		for (int i=0; i<sizeof(arr)/sizeof(arr[0]); i++)
		{
			if (InlineIsEqualGUID(*arr[i], riid))
				return S_OK;
		}
		return S_FALSE;
	}

// IViewObjectEx
	DECLARE_VIEW_STATUS(VIEWSTATUS_SOLIDBKGND | VIEWSTATUS_OPAQUE)

// IGetJavaScriptArray
public:
	HRESULT OnDraw(ATL_DRAWINFO& di)
	{
		RECT& rc = *(RECT*)di.prcBounds;
		// 将剪辑区域设置为 di.prcBounds 指定的矩形
		HRGN hRgnOld = NULL;
		if (GetClipRgn(di.hdcDraw, hRgnOld) != 1)
			hRgnOld = NULL;
		bool bSelectOldRgn = false;

		HRGN hRgnNew = CreateRectRgn(rc.left, rc.top, rc.right, rc.bottom);

		if (hRgnNew != NULL)
		{
			bSelectOldRgn = (SelectClipRgn(di.hdcDraw, hRgnNew) != ERROR);
		}

		Rectangle(di.hdcDraw, rc.left, rc.top, rc.right, rc.bottom);
		SetTextAlign(di.hdcDraw, TA_CENTER|TA_BASELINE);
		LPCTSTR pszText = _T("GetJavaScriptArray");
#ifndef _WIN32_WCE
		TextOut(di.hdcDraw,
			(rc.left + rc.right) / 2,
			(rc.top + rc.bottom) / 2,
			pszText,
			lstrlen(pszText));
#else
		ExtTextOut(di.hdcDraw,
			(rc.left + rc.right) / 2,
			(rc.top + rc.bottom) / 2,
			ETO_OPAQUE,
			NULL,
			pszText,
			ATL::lstrlen(pszText),
			NULL);
#endif

		if (bSelectOldRgn)
			SelectClipRgn(di.hdcDraw, hRgnOld);

		return S_OK;
	}


	DECLARE_PROTECT_FINAL_CONSTRUCT()

	HRESULT FinalConstruct()
	{
		return S_OK;
	}

	void FinalRelease()
	{
	}

	STDMETHOD(getArrayValue2D)(VARIANT arrayPoints, LONG *result);
	
	HRESULT getArrayLength1D(IDispatch *pDisp, int *pLength);
	HRESULT getArrayNumberOfIndex1D(IDispatch *pDisp, int index, int *pValue);
	HRESULT setArrayNumberOfIndex1D(IDispatch *pDisp, int index, int value);

	HRESULT getArrayLength2D(IDispatch *pDisp, int *pLength1, int *pLength2);
	HRESULT getArrayNumberOfIndex2D(IDispatch *pDisp, int index1, int index2, int *pValue);
	
};

OBJECT_ENTRY_AUTO(__uuidof(GetJavaScriptArray), CGetJavaScriptArray)

// GetJavaScriptArray.cpp : CGetJavaScriptArray 的实现
#include "stdafx.h"
#include "GetJavaScriptArray.h"
#include <atlstr.h>


using namespace ATL;


// CGetJavaScriptArray

STDMETHODIMP CGetJavaScriptArray::getArrayValue2D(VARIANT arrayPoints, LONG *result)
{
	if(arrayPoints.vt != VT_DISPATCH){*result = 0; return S_FALSE;} //数据类型不是VT_DISPATCH
	
	int len1 = 0;
	int len2 = 0;
	HRESULT hr = getArrayLength2D(arrayPoints.pdispVal, &len1, &len2);
	if(FAILED(hr)){*result = 0; return S_FALSE;}
	
	//----------------------------------------
	CString str = _T("CGetJavaScriptArray::getArrayValue2D():\n");

	for(long i = 0; i < len1; i++)
	{
		for(long j = 0; j < len2; j++)
		{
			int value = -1;
			getArrayNumberOfIndex2D(arrayPoints.pdispVal, i, j, &value);
			CString str_temp = _T("");
			str_temp.Format(_T("a[%d,%d]=%d\n"), i, j, value);
			str += str_temp;
		}
	}
	
	//----------------------------------------
	this->MessageBoxW(str, _T("ActiveX获取JavaScript传递的二维数组"), MB_OK);

	*result = 1;
	return S_OK;
}


//获取Javascript数组长度
HRESULT CGetJavaScriptArray::getArrayLength1D(IDispatch *pDisp, int *pLength)
{
	BSTR varName = L"length";
	VARIANT varValue;
	DISPPARAMS noArgs = {NULL, NULL, 0, 0};
	DISPID dispId;
	HRESULT hr = 0;
	*pLength = 0;

	hr = pDisp->GetIDsOfNames(IID_NULL, &varName, 1, LOCALE_USER_DEFAULT, &dispId);
	if (FAILED(hr)){return hr;}

	hr = pDisp->Invoke(dispId, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET, &noArgs, &varValue, NULL, NULL);
	if(SUCCEEDED(hr))
	{
		*pLength = varValue.intVal;
	}
	return hr;
}


//获取Javascript数组中指定位置的整数元素值
HRESULT CGetJavaScriptArray::getArrayNumberOfIndex1D(IDispatch *pDisp, int index, int *pValue)
{
	CComVariant varName(index, VT_I4); //数组下标
	DISPPARAMS noArgs = {NULL, NULL, 0, 0};
	DISPID dispId;
	VARIANT varValue;
	HRESULT hr = 0;

	varName.ChangeType(VT_BSTR); //将数组下标转为数字型，以进行GetIDsOfNames
	
	hr = pDisp->GetIDsOfNames(IID_NULL, &varName.bstrVal, 1, LOCALE_USER_DEFAULT, &dispId); //获取通过下标访问数组的过程，将过程名保存在dispId中
	if(FAILED(hr)){return hr;}

	hr = pDisp->Invoke(dispId, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET, &noArgs, &varValue, NULL, NULL); //调用COM过程，访问指定下标数组元素，根据dispId 将元素值保存在varValue中
	if(SUCCEEDED(hr))
	{
		*pValue = varValue.intVal; //将数组元素按int类型取出
	}
	return hr;
}


// 设置Javascript数组中指定位置的整数元素值
HRESULT CGetJavaScriptArray::setArrayNumberOfIndex1D(IDispatch *pDisp, int index, int value)
{
	CComVariant varName(index, VT_I4);
	DISPID dispId;
	CComVariant varValue;
	HRESULT hr = 0;

	varName.ChangeType(VT_BSTR); // 将数组下标转为数字型，以进行GetIDsOfNames

	hr = pDisp->GetIDsOfNames(IID_NULL, &varName.bstrVal, 1, LOCALE_USER_DEFAULT, &dispId);
	if (FAILED(hr)){return hr;}

	DISPID dispidPut = DISPID_PROPERTYPUT; //put操作
	DISPPARAMS dispparams;
	dispparams.rgvarg = new VARIANTARG[1]; //初始化rgvarg
	dispparams.rgvarg[0].vt = VT_I4; //数据类型
	dispparams.rgvarg[0].intVal = value; //更新值
	dispparams.cArgs = 1; //参数数量
	dispparams.cNamedArgs = 1; //参数名称
	dispparams.rgdispidNamedArgs = &dispidPut; //操作DispId，表明本参数适用于put操作

	hr = pDisp->Invoke(dispId, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYPUT, &dispparams, NULL, NULL, NULL);

	return hr;
}


//获取Javascript数组长度
HRESULT CGetJavaScriptArray::getArrayLength2D(IDispatch *pDisp, int *pLength1, int *pLength2)
{
	BSTR varName = L"length";
	VARIANT varValue;
	DISPPARAMS noArgs = {NULL, NULL, 0, 0};
	DISPID dispId;
	HRESULT hr = 0;
	*pLength1 = 0;
	*pLength2 = 0;

	hr = pDisp->GetIDsOfNames(IID_NULL, &varName, 1, LOCALE_USER_DEFAULT, &dispId);
	if (FAILED(hr)){return hr;}

	hr = pDisp->Invoke(dispId, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET, &noArgs, &varValue, NULL, NULL);
	if(SUCCEEDED(hr)){*pLength1 = varValue.intVal;}

	//---------获取第二维长度-----------------------
	if(*pLength1 > 0)
	{
		CComVariant varNameIndex(0, VT_I4); //数组下标
		varNameIndex.ChangeType(VT_BSTR); //将数组下标转为数字型，以进行GetIDsOfNames
		DISPID dispId2;
		VARIANT varValue2;
		hr = pDisp->GetIDsOfNames(IID_NULL, &varNameIndex.bstrVal, 1, LOCALE_USER_DEFAULT, &dispId2); //获取通过下标访问数组的过程，将过程名保存在dispId中
		if(FAILED(hr)){return hr;}
		
		hr = pDisp->Invoke(dispId2, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET, &noArgs, &varValue2, NULL, NULL); //调用COM过程，访问指定下标数组元素，根据dispId 将元素值保存在varValue中
		if(FAILED(hr)){return hr;}
		
		if(varValue2.vt != VT_DISPATCH){return S_FALSE;}
		
		IDispatch *pDisp2 = varValue2.pdispVal;

		VARIANT varValue3;
		DISPPARAMS noArgs = {NULL, NULL, 0, 0};
		DISPID dispId3;

		hr = pDisp2->GetIDsOfNames(IID_NULL, &varName, 1, LOCALE_USER_DEFAULT, &dispId3);
		if(FAILED(hr)){return hr;}

		hr = pDisp2->Invoke(dispId3, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET, &noArgs, &varValue3, NULL, NULL);
		if(SUCCEEDED(hr)){*pLength2 = varValue3.intVal;}
	}else
	{
		return S_FALSE;
	}
	return hr;
}


//获取Javascript数组中指定位置的整数元素值
HRESULT CGetJavaScriptArray::getArrayNumberOfIndex2D(IDispatch *pDisp, int index1, int index2, int *pValue)
{
	CComVariant varNameIndex1(index1, VT_I4);
	CComVariant varNameIndex2(index2, VT_I4);
	DISPPARAMS noArgs1 = {NULL, NULL, 0, 0};
	DISPID dispId1;
	DISPID dispId2;
	CComVariant varValue1;
	CComVariant varValue2;
	HRESULT hr = 0;

	varNameIndex1.ChangeType(VT_BSTR); //将数组下标转为数字型，以进行GetIDsOfNames
	varNameIndex2.ChangeType(VT_BSTR); //将数组下标转为数字型，以进行GetIDsOfNames

	hr = pDisp->GetIDsOfNames(IID_NULL, &varNameIndex1.bstrVal, 1, LOCALE_USER_DEFAULT, &dispId1);
	if (FAILED(hr)){return hr;}
	
	hr = pDisp->Invoke(dispId1, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET, &noArgs1, &varValue1, NULL, NULL); //调用COM过程，访问指定下标数组元素，根据dispId 将元素值保存在varValue中
	if(FAILED(hr)){return hr;}
	
	if(varValue1.vt != VT_DISPATCH){return S_FALSE;} //varValue2.vt为第二维

	//--------------------------------------------
	IDispatch *pDisp2 = varValue1.pdispVal;
	hr = pDisp2->GetIDsOfNames(IID_NULL, &varNameIndex2.bstrVal, 1, LOCALE_USER_DEFAULT, &dispId2);
	if (FAILED(hr)){return hr;}
	
	hr = pDisp2->Invoke(dispId2, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET, &noArgs1, &varValue2, NULL, NULL); //调用COM过程，访问指定下标数组元素，根据dispId 将元素值保存在varValue中
	if(FAILED(hr)){return hr;}

	*pValue = varValue2.intVal;

	return S_OK;
}

<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>
<TITLE>对象 GetJavaScriptArray 的 ATL 8.0 测试页</TITLE>
</HEAD>
<BODY>


<OBJECT ID="GetJavaScriptArray" CLASSID="CLSID:E5466677-5CF1-4870-98EA-01E9C4A198DF" width='100%' height='50%'></OBJECT>

<input type="button" value="测试按钮" οnclick="test();" />

<script type ="text/javascript">
    function test()
    {
        var points = [[175, 42], [289, 72], [216, 64], [301, 131]];
        var result = GetJavaScriptArray.getArrayValue2D(points); //将javascript二维数组传递到ActiveX控件中
    }
</script>

</BODY>
</HTML>
运行结果：






jfu22
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
mfc ActiveX 结构体数组的传递
06-29
在涉及到ActiveX控件与客户端应用程序交互时，有时我们需要传递复杂的数据类型，比如结构体数组。本文将详细讲解如何在MFC ActiveX控件中处理和传递结构体数组。 首先，我们需要了解结构体的基本概念。结构体是C++...
activex java 控件_swt java 内嵌ActiveX控件
weixin_35970195的博客
02-15 147
这里用的是SWT/JFace开发application中SWT自带的org.eclipse.swt.ole.win32 包可以支持内嵌OLE和ActiveX。具体用法如下：//创建一个OleFrame做为OLE(或ActiveX)的框架OleFrame oleFrame = new OleFrame(this, SWT.NONE);//创建ActiveX的容器，其中的classID是ActiveX...
如何从ActiveX控件向JavaScript传递数组
txjchen的专栏
04-28 4795
        从ActiveX控件向JavaScript传递数组似乎不是一件容易的事，因为JavaScript好像不能接受从ActiveX控件传来的引用参数，所以实际上我并没有找到直接传递的方案（如果有朋友找到了，欢迎留言），而是绕了个弯，将数组格式化成字符串传了出去。看到这里，可能很多朋友已经完全明白我的做法了。对于不太熟悉COM编程的朋友，可以看看下面的具体步骤：（1）为ActiveX控
ActiveX事件参数传输数组
06-27
ActiveX事件参数传输字符串、数组、字符串数组。VS2013调试通过。 如果 C＃测试程序 打开有问题，请注意： 1.首先 编译、注册 activex控件 2.重新手动引入 该控件到 窗体中 控件上按下鼠标左键、右键、键盘出发测试...
ActiveX获取PC硬件信息,IE浏览器
最新发布
02-06
本文将深入探讨如何利用ActiveX在IE浏览器中获取PC的硬件信息。 首先，ActiveX控件可以访问本地文件系统。通过调用特定的API函数，ActiveX可以读取、写入或管理用户计算机上的文件，这在需要与本地数据交互的应用...
javascript学习笔记（二）数组和对象部分
01-19
）以及 ActiveX 对象（外部组件）。 3.Microsoft Jscript 提供了 11 个内部（或“内置”）对象。它们是Array、Boolean、Date、Function、Global、Math、Number、Object、RegExp、Error 以及 String 对象。 4.对象...
JScript中调用ActiveX获取访客网卡MAC地址实现代码
10-25
主要介绍了JScript中调用ActiveX获取访客网卡MAC地址实现代码,注意本文代码只适应运行在IE浏览器上,需要的朋友可以参考下
js传递数组参数到ActiveX
wxdvc的专栏
01-22 4505
//JS                                     function sendMsg()     {         var arrPath=new Array();         arrPath[0]="path0";         arrPath[1]="path1";         arrPath[2]=
Delphi编程基础：二维静态数组与多维数组解析
在Delphi编程中，二维静态数组是一种特殊的数据结构，它是由一维数组构成的数组。这种数组的每个元素本身也是一个一维数组。二维数组的一般声明方式有两种形式。第一种是： ```delphi type <数组标识符>=Array[...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值