标题：如何用SAFEARRAY向VBS传递数组

1楼

qq909675470 发表于：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楼

王锋发表于：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;
}

3楼

qq909675470 发表于：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里调用错误吗，应该怎样调用？

4楼

王锋发表于：2013/9/2 12:58:58

把你的C++工程，去掉编译的中间文件，把工程打包压缩过来我们帮你看看

5楼

wsslei 发表于：2014/10/13 0:57:27

以下是引用王锋在2013/9/2 12:58:58的发言：
把你的C++工程，去掉编译的中间文件，把工程打包压缩过来我们帮你看看

王工，这兄弟的问题解决了吗？我也有一样的问题。。。。请教下

共5 条记录, 每页显示 10 条, 页签: [1]