VARIANT 的高级应用
如何构造一个元素类型为Struct的SafeArray：
在有些时候，我们需要构造一个元素类型为Struct的SafeArray，在MSDN并没有文档解释到底应该如何去做到这一点，下面的代码片断解释了如何去构造这样一个SafeArray。
假设我们有如下的Struct：
struct myStruct
{
unsigned char Name[255];
short Kind;
};
为了构造一个SafeArray，元素类型为mxStruct，首先我们必须得拿到mxStruct所对应的IRecordInfo接口，这可以通过调用GetRecordInfoFromGuids函数实现：
#import "TestStruct.tlb" no_namespace
HRESULT hr;
IRecordInfo *pRecordInfo;
hr = GetRecordInfoFromGuids(
__uuidof(TestStruct),
1,
0,
LOCALE_USER_DEFAULT,
__uuidof(mxStruct),
&pRecordInfo);
GetRecordInfoFromGuids在注册表中查询对应的Record信息，这个注册表信息位于HKCR/Record下，同时，对应的TypeLib也必须被注册在HKCR/TypeLib下面，这样GetRecordInfoFromGuids才可以查到对应的信息并返回IRecordInfo*指针。当获得了这个指针的时候，便可以通过CreateSafeArrayVectorEx来构造SafeArray：
SAFEARRAY *pArray = SafeArrayCreateVectorEx(VT_RECORD, 0, 3, pRecordInfo);
该行调用SafeArrayCreateVectorEx构造一个元素为pRecordInfo指定的结构，也就是myStruct的SafeArray，LowBound为0，元素个数为3。
对这个SafeArray中的元素赋值可以通过SafeArrayAccessData和SafeArrayUnaccessData做到：
myStruct *pStructs;
SafeArrayAccessData(pArray, (void **)&pStructs);
strcpy((char *)&pStructs[0].Name[0], "N1");
pStructs[0].Kind = 0;
strcpy((char *)&pStructs[1].Name[0], "N2");
pStructs[0].Kind = 1;
strcpy((char *)&pStructs[2].Name[0], "N3");
pStructs[0].Kind = 2;
SafeArrayUnaccessData(pArray);
SafeArrayAccessData获得数组的指针，用于修改数据，并Lock该SafeArray，防止被SafeArray被释放。而SafeArrayUnaccessData则Unlock这个SafeArray。
SAFEARRAY
使用SafeArray的具体步骤：
方法一：
包装一个SafeArray：
(1). 定义变量，如：
VARIANT varChunk;
SAFEARRAY *psa;
SAFEARRAYBOUND rgsabound[1];
(2). 创建SafeArray描述符：
uIsRead=f.Read(bVal,ChunkSize);//read array from a file.
if(uIsRead==0)break;
rgsabound[0].cElements =uIsRead;
rgsabound[0].lLbound = 0;
psa = SafeArrayCreate(VT_UI1,1,rgsabound);
(3). 放置数据元素到SafeArray：
for(long index=0;index<uIsRead;index++)
{
if(FAILED(SafeArrayPutElement(psa,&index,&bVal)))
::MessageBox(NULL,"出毛病了。","提示",MB_OK | MB_ICONWARNING);
}
一个一个地放，挺麻烦的。
(4). 封装到VARIANT内：
varChunk.vt = VT_ARRAY|VT_UI1;
varChunk.parray = psa;
这样就可以将varChunk作为参数传送出去了。
读取SafeArray中的数据的步骤：
(1). 用SafeArrayGetElement一个一个地读
BYTE buf[lIsRead];
for(long index=0;index<lIsRead;index++)
{
::SafeArrayGetElement(varChunk.parray,&index,buf+index);
}
就读到缓冲区buf里了。
方法二：
使用SafeArrayAccessData直接读写SafeArray的缓冲区：
(1). 读缓冲区：
BYTE *buf;
SafeArrayAccessData(varChunk.parray, (void **)&buf);
f.Write(buf,lIsRead);
SafeArrayUnaccessData(varChunk.parray);
(2). 写缓冲区：
BYTE *buf;
::SafeArrayAccessData(psa, (void **)&buf);
for(long index=0;index<uIsRead;index++)
{
buf=bVal;
}
::SafeArrayUnaccessData(psa);
varChunk.vt = VT_ARRAY|VT_UI1;
varChunk.parray = psa;
这种方法读写SafeArray都可以，它直接操纵SafeArray的数据缓冲区，比用SafeArrayGetElement和 SafeArrayPutElement速度快。特别适合于读取数据。但用完之后不要忘了调用::SafeArrayUnaccessData (psa)，否则会出错的。
如果SafeArray中存的是BSTR的二维数组,则代码如下：
if(varChunk.vt = VT_ARRAY | VT_BSTR)
{
BSTR* buf;
long LBound; // 数组下界
long UBound; // 数组上界
SafeArrayAccessData(varChunk.parray, (void **)&buf);
SafeArrayGetLBound(varChunk.parray, 1, &LBound);
SafeArrayGetUBound(varChunk.parray, 1, &UBound);
for(long i = LBound; i < UBound; i ++)
{
CString str(buf);
MessageBox(str);
}
SafeArrayUnaccessData(varChunk.parray);
}