类型转化问题 olevariant 如何转化为Byte数组

[yuqzhang]

olevariant 转化为一个byte用的是 (olevariant).AsType(varByte)。我现在olevariant里面存放的是一个byte数组，怎么把它转化成一个byte数组。急，请大家指教。

[rookieme]

OleVariant Oles;
int Length,i;
unsigned char tmp;
Oles="ok hello";
Length=Oles.ArrayHighBound(1); // 取得字节数
for(i=0;i<Length;i++)
{
tmp=Oles.GetElement(i); // 依次复制
//如果为文本字符则可直接使用：
//String Strs=Oles; 复制
ComBuf[I++]=tmp;

}

[rookieme]

先定义:
BYTE ComBuf[200];

[yuqzhang]

我用oleVariant从mscomm串口的到2进制文件的数据，但是依上面的实例从olevariant中的到byte类型的数据。得到的数量会发生变化。你的方法可以转化可是却解决不了我得问题。郁闷。下面是我oncomm响应事件中的相关代码：
if(MSComm1->InBufferCount)
{
*s = MSComm1->Input;
j = s->ArrayHighBound(1);
for(int m = 0; m<j ; m++)
{
rByte[0] = s->GetElement(m);
fwrite(rByte,1,1,fp);
}
其中 *s 声明为 OleVariant *s = new OleVariant(Bounds,1,varByte); 这样的声明是否必要？

[rookieme]

void __fastcall TForm1::MSComm1Comm(TObject *Sender)
{ //接收二进制数
OleVariant Oles;
int Length,i,j;
unsigned char tmp;
//Length=MSComm1->InBufferCount ;取得接收的字节数
Oles=MSComm1->Input;
Length=Oles.ArrayHighBound(1); // 取得接收的字节数

for(i=0;i<Length;i++)
{
tmp=Oles.GetElement(i); // 依次复制
//如果为文本字符则可直接使用：
//String Strs=Oles; 复制
ComBuf[I++]=tmp;
if(tmp==0xf)// 显示
{
for(j=0;j<I;j++)
Memo1->Text=Memo1->Text+IntToHex((int)ComBuf[j],2);
Memo1->Lines->Add("");
I=0;
}
}
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{ //发送二进制数
Variant Oles;
unsigned char tmp;
int i;
Oles=VarArrayCreate(OPENARRAY(int,(0,116)),varByte);
VarArrayRedim(Oles,116);
for(i=0;i<117;i++)
{
tmp=i;
Oles.PutElement(tmp,i);
}
MSComm1->Output=Oles;
}