从ATL中返回字符串数组到JavaScript的示例

最新推荐文章于 2021-01-12 14:56:37 发布

kagula086

最新推荐文章于 2021-01-12 14:56:37 发布

阅读量3k

点赞数

分类专栏： C++ 混合编程文章标签： javascript vba button iterator 测试

本文链接：https://blog.csdn.net/lee353086/article/details/7557333

版权

C++ 同时被 2 个专栏收录

243 篇文章 3 订阅

订阅专栏

混合编程

24 篇文章 0 订阅

订阅专栏

测试环境：VS2008 SP1 + WinXP SP3

测试时间：2012-5-11

ATL中的代码

STDMETHODIMP CSnapshot::GetFilesFromClipboard(VARIANT* retVal)
{
	std::list<std::wstring> listFiles = getFilesFromClipboard(NULL);
	std::list<std::wstring>::iterator iter = listFiles.begin();

	//初始化，待返回数组
	SAFEARRAYBOUND   pSab[1];//一维数组
	pSab[0].lLbound = 0; 
	pSab[0].cElements = listFiles.size();  //数组中元素的数量
	SAFEARRAY   *pSa; 
	pSa=SafeArrayCreate(VT_VARIANT,1,pSab);//创建一维数组

	//填数组
	LONG i = 0;
	while(iter!=listFiles.end())
	{
		VARIANT v;
		v.vt = VT_BSTR;
		v.bstrVal = ::SysAllocString( iter->c_str() ) ;
		SafeArrayPutElement(pSa,&i,&v);
		::SysFreeString(v.bstrVal);
		iter++,i++;
	}

	//返回数组
	retVal-> vt = VT_VARIANT|VT_ARRAY;
	retVal->parray = pSa; //pSa是生成的一个安全数组

	return S_OK;
}

VB中的测试代码

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objTestATL As CWebsSnapshotLib.Snapshot
        Dim i As Integer
        Dim t As Array

        objTestATL = New CWebsSnapshotLib.Snapshot

        t = objTestATL.GetFilesFromClipboard()

        For i = 0 To t.Length - 1
            Debug.Print(i & ">>" & t(i))
        Next
    End Sub

JavaScript中的测试代码

<div id="txt">状态未定义</div>

.....这里省略若干行代码...

function goFilesFromClipboard()
{
    document.getElementById("txt").innerHTML = "返回数组：<br/>"
	var vba = CSnapshot.GetFilesFromClipboard();
	
	var jsa = vba.toArray(); //new VBArray(vba).toArray();
	for(i=0;i<jsa.length;i++){
	  document.getElementById("txt").innerHTML = document.getElementById("txt").innerHTML + "<br/>" +jsa[i];
	}	
}

注意：[Class View]窗口中，右键单击接口名称可以为这个接口添加方法和属性。

参考资料：

[1]《JavaScript与ActiveX之间传递数据 - 连载二》
http://leon-s-kennedy.iteye.com/blog/1545891
[2]《ATL控件如何获取网页中的参数》
http://blog.csdn.net/sunlab10987/article/details/3894187
[3]《ActiveX异步回调JavaScript》
http://blog.csdn.net/tingsking18/article/details/4278619
[4]《atl 标准控件在用多线程发消息时VC可以接收但网页无法接收的问题》
http://blog.csdn.net/zyc_sinacom/article/details/7427759

[5]javascript获取COM或ATL返回的数组(整型或字符串数组)VBArray相关
http://blog.sina.com.cn/s/blog_94e13967010129g4.html