西安少儿俄语培训学校:变体数据类型--VARIANT

来源：百度文库编辑：偶看新闻时间：2024/05/06 19:59:25

VARIANT的结构可以参考头文件VC98\Include\OAIDL.H中关于结构体tagVARIANT的定义。
对于VARIANT变量的赋值：首先给vt成员赋值，指明数据类型，再对联合结构中相同数据类型的变量赋值，举个例子：
VARIANT va;
int a=2001;
va.vt=VT_I4;///指明整型数据
va.lVal=a; ///赋值

::VariantInit(&va);   //清空变量
va.vt=VT_EMPTY;    //清空变量的另一种方法
Empty 值用来标记尚未初始化（给定初始值）的Variant 变量。内含 Empty 的 Variant 在数值的上下文中表示 0，如果是用在字符串的上下文中则表示零长度的字符串 ("")。不应将 Empty 与 Null 弄混。Null 是表示 Variant 变量确实含有一个无效数据

对于不马上赋值的VARIANT，最好先用Void VariantInit(VARIANTARG FAR* pvarg);进行初始化,其本质是将vt设置为VT_EMPTY,下表我们列举vt与常用数据的对应关系:

unsigned char bVal; VT_UI1
short iVal; VT_I2
long lVal;    VT_I4
float fltVal;    VT_R4
double dblVal;    VT_R8
VARIANT_BOOL boolVal;    VT_BOOL
SCODE scode;    VT_ERROR
CY cyVal;    VT_CY
DATE date;    VT_DATE
BSTR bstrVal;    VT_BSTR
IUnknown FAR* punkVal;    VT_UNKNOWN
IDispatch FAR* pdispVal;    VT_DISPATCH
SAFEARRAY FAR* parray;    VT_ARRAY|*
unsigned char FAR* pbVal;    VT_BYREF|VT_UI1
short FAR* piVal;    VT_BYREF|VT_I2
long FAR* plVal;    VT_BYREF|VT_I4
float FAR* pfltVal;    VT_BYREF|VT_R4
double FAR* pdblVal; VT_BYREF|VT_R8
VARIANT_BOOL FAR* pboolVal; VT_BYREF|VT_BOOL
SCODE FAR* pscode;    VT_BYREF|VT_ERROR
CY FAR* pcyVal;    VT_BYREF|VT_CY
DATE FAR* pdate; VT_BYREF|VT_DATE
BSTR FAR* pbstrVal;    VT_BYREF|VT_BSTR
IUnknown FAR* FAR* ppunkVal;    VT_BYREF|VT_UNKNOWN
IDispatch FAR* FAR* ppdispVal; VT_BYREF|VT_DISPATCH
SAFEARRAY FAR* FAR* pparray;    VT_ARRAY|*
VARIANT FAR* pvarVal;    VT_BYREF|VT_VARIANT
void FAR* byref;    VT_BYREF

_variant_t是VARIANT的封装类，其赋值可以使用强制类型转换，其构造函数会自动处理这些数据类型。
例如：
long l=222;
ing i=100;
_variant_t lVal(l);
lVal = (long)i;

COleVariant的使用与_variant_t的方法基本一样，请参考如下例子：
COleVariant v3 = "字符串", v4 = (long)1999;
CString str =(BSTR)v3.pbstrVal;
long i = v4.lVal;

//(1). 定义变量，如：
int uIsRead = 10;
DOUBLE bVal[] = {0,1,2,3,4,5,6,7,8,9};

//(2). 创建SafeArray描述符：
SAFEARRAY *psa;
SAFEARRAYBOUND rgsabound[1];// = {10,1};
rgsabound[0].cElements =uIsRead;
rgsabound[0].lLbound = 0;
psa = SafeArrayCreate(VT_R8,1,rgsabound);

//(3). 放置数据元素到SafeArray：
for(long index=0;index<=uIsRead;index++)
{
SafeArrayPutElement(psa,&index,&bVal[index ]);
}

//(4). 封装到VARIANT内：
   varChunk->vt = VT_R8;
   varChunk->parray = psa;
//(5)读取SafeArray中的数据的步骤：
DOUBLE buf[10];
for(long ind=0;ind<10;ind++)
{
   ::SafeArrayGetElement(pvar.parray,&ind,buf+ind);
}

double dou = 0;
for (long i = 0;i< 10;i++)
{
dou = buf[i];
}

VB的Variant问题 VB如何控制Variant 什么叫语言变体？变体美术字软件? 什么是词素变体关于vb 的Variant类型变体美术字_一小 VB里什么是变体变量 C++数据类型 vb数据类型 MSComm中Variant变量的应用问题。谁有变体美术字的课件吗？ “隶定”“变体形声”的意思硫变体，正交硫，单斜硫是什么意思基本数据类型与引用数据类型的区别 sql的数据类型 opaque是什么数据类型？数据类型转换？？高手请进！关于数据类型的几个问题 java数据类型的问题计算机数据类型有哪些建立一个自定义数据类型 RAW是什么数据类型什么叫数据类型