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

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

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

共有4787人关注过本帖树形打印复制链接主题：如何用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，可是我传回去的都接受不到，不知道怎样弄

王锋

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：罗宾汉帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13

Post By：2013/8/29 21:34:02 [只看该作者]

给你一段金字塔的C++代码

VARIANT IFormulaRunTime::GetVARDATA(LPCTSTR Name)
{
COleSafeArray saRet;
if(!m_pCallBack->m_pExp)
  return saRet.Detach();

if(GetDataSize() == 0)
  return saRet.Detach();

int nLineIndex = m_pCallBack->GetLineIndex(Name);
if(nLineIndex < 0)
  return saRet.Detach();

// Create the safe-array...
saRet.CreateOneDim(VT_VARIANT, m_pCallBack->m_pRunTime->GetMainView()->m_pMarketData->m_dwDataNumber+1);

// Initialize it with values...
long lArrayIndex[1];
for(UINT i = 0; i <= m_pCallBack->m_pRunTime->GetMainView()->m_pMarketData->m_dwDataNumber; i++)
{
  int nIndex = i * m_pCallBack->m_pExp->m_nLineNum + nLineIndex;
  if(nIndex >= (int)m_pCallBack->m_pExp->m_arLineData.size())
  {
   return saRet.Detach();
  }

  lArrayIndex[0] = i;
  if(m_pCallBack->m_pExp->m_arLineData.m_pData[nIndex].m_bInvalid)
  {
   _variant_t vt(m_pCallBack->m_pExp->m_arLineData.m_pData[nIndex].m_dblVal);
   saRet.PutElement(lArrayIndex, &vt);
  }
  else
  {
   _variant_t vt(g_fInvalid);
   saRet.PutElement(lArrayIndex, &vt);
  }
}

// Return the safe-array encapsulated in a VARIANT...
VARIANT vt = saRet.Detach();
return vt;
}