如何用SAFEARRAY向VBS傳遞數組　[金字塔]

最近寫了個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，可是我傳回去的都接受不到，不知道怎樣弄

給你一段金字塔的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;
}

 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;