欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 如何用SAFEARRAY向VBS传递数组

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有4982人关注过本帖树形打印复制链接

主题：如何用SAFEARRAY向VBS传递数组
帅哥哟，离线，有人找我吗？
qq909675470
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：6 积分：0 威望：0 精华：0 注册：2013/8/19 11:03:33 		如何用SAFEARRAY向VBS传递数组  发帖心情 Post By：2013/8/29 19:02:54 [显示全部帖子]

最近写了个MFC Dll ，用VBS成功的向C++的Dll里传递了数组，可是处理完毕之后，我却不知道怎样传回来了。

我的函数体如下：

BaoHanTest(const VARIANT FAR& vbkh, const VARIANT FAR& vbkl,long length, VARIANT FAR& buffer)

其中vbkh，vbkl，length都是vbs传给dll的，这部分C++获取数据没问题，buffer是用来传出数组的

需要传给vbs的数组是这样定义的：

 float *kh=new float [length+1];

里面已经放好了数据，如今想通过buffer把它传回VBS，用Array()接受，    例如，object.函数名 Array

网上说用SAFEARRAY，可是我传回去的都接受不到，不知道怎样弄
 回到顶部
帅哥哟，离线，有人找我吗？
qq909675470
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：6 积分：0 威望：0 精华：0 注册：2013/8/19 11:03:33 		  发帖心情 Post By：2013/8/30 15:11:58 [显示全部帖子]

您好，我按照上面的思想写了个测试用例：

 VARIANT varColInfo[3];
//初始化 VARIANTs
for (int m = 0; m < 3; m++)
VariantInit(&varColInfo[m]);

// 每一列
varColInfo[0].vt = VT_UI4;
varColInfo[0].lVal = 1;


varColInfo[1].vt = VT_UI4;
varColInfo[1].lVal = 2;

COleSafeArray sa;
//创造一维
//用varColInfo初始化
sa.CreateOneDim(VT_VARIANT, 2, varColInfo);

 // 返回
 VARIANT vt = sa.Detach();
 return vt;

VARIANT VBSAddin::BaoHanTest(){ 刚才的那段代码}
在vbs里调用如下：
dim nkh(1)
 Dim MyAddin
   Set MyAddin = CreateObject("MyActiveXDemo.VBSAddin")
  nkh= MyAddin.BaoHanTest()
        msgbox nkh(0)
提示 运行时错误 ，描述为类型不匹配，是我在vbs里调用错误吗，应该怎样调用？

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 01.54688 秒, 6 次数据查询