大侠们，救命啊，在线等，高分，谁来告诉我SAFEARRAY具体怎么用啊？？

[explosun]

如题

[drip]

不懂，帮你up

[Eearbird]

你可以参考这个例子：
void GetScriptMaps()
{
IADsContainer* iContainer;
IADs* iAds;
VARIANT SC;
char s[5];
int i=0;
char dirName[MAX_PATH];
VARIANT path , state, sPort;
if(ADsGetObject(L"IIS://localhost/w3svc",IID_IADsContainer,(void**)&iContainer)==S_OK) {
//得到默认站点
iContainer->GetObject(_bstr_t("IIsWebServer"), _bstr_t("1"),(IDispatch**)&iAds);
if(iAds==NULL) return ;
VariantInit(&sPort);
HRESULT hr=iAds->Get(_bstr_t("ScriptMaps"),&sPort);
if(SUCCEEDED(hr))
{
if(sPort.vt ==VT_ARRAY|VT_VARIANT)
{
SAFEARRAY* psa = sPort.parray;
VARIANT* varArray=NULL;
SafeArrayAccessData(psa,(VOID**)&varArray);
UINT uDim = SafeArrayGetDim(psa);
if(1==uDim)
{
long lLbound,lRbound;
SafeArrayGetLBound(psa,1,&lLbound);
SafeArrayGetUBound(psa,1,&lRbound);
for(long i=lLbound;i<=lRbound;i++)
{
if(varArray[i].vt==VT_BSTR)
{
_bstr_t bstmp(varArray[i].bstrVal,true);
printf((LPCTSTR)bstmp);
printf("\n");
}
}
SafeArrayUnaccessData(psa);
}
}
}
iAds->Release();
}
}

[atEleven]

http://www.codeproject.com/atl/udtdemo.asp

[flyingjust]

SAFEARRAY* psaDataID = NULL;


long lSize=prsID->RecordCount*sizeof(long);
SAFEARRAYBOUND rgsabound[1];
rgsabound[0].lLbound = 0;
rgsabound[0].cElements = lSize;
psaDataID= SafeArrayCreate( VT_I4, 1, rgsabound );

SafeArrayAccessData( psaDataID, (void**)&plData );
for(int i=0;i<iCount;i++)
{
long lID=prsID->Fields->GetItem(L"DOCID")->Value;
plData[i]=lID;
prsID->MoveNext();
}
SafeArrayUnaccessData(psaDataID);
long lRet=-2;
SafeArrayDestroy(psaDataID);