在COM的函数中如何使用SAFEARRAY返回二进制数据

Question

STDMETHOD  XXXXXX::Get_IntegerArray(VARIANT *pVal)
{
VariantInit(pVal);
pVal->vt = VT_ARRAY | VT_I4;
SAFEARRAY * psa;
SAFEARRAYBOUND bd = {10 /* 假定10个元素 */, 0 /*坐标下界*/};
psa = SafeArrayCreate(VT_I4 /*int 类型*/,1 /*一维数组*/, &bd);
int *pData;
SafeAccessData(psa, (void **)&pData);
//***************//  对pData[]赋值
for (int i =0;i<10;i++)
{
   pData[i]=1; //全为1
}//***************
SafeUnaccessData(psa);
pVal->parray = psa;
return (S_OK);
}