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

yuqzhang 2004-04-29 09:26:36
olevariant 转化为一个byte用的是 (olevariant).AsType(varByte)。我现在olevariant里面存放的是一个byte数组,怎么把它转化成一个byte数组。急,请大家指教。
...全文
192 4 点赞 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
rookieme 2004-05-02

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;
}

  • 打赏
  • 举报
回复
yuqzhang 2004-05-02
我用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 2004-04-29
先定义:
BYTE ComBuf[200];
  • 打赏
  • 举报
回复
rookieme 2004-04-29
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;

}
  • 打赏
  • 举报
回复
相关推荐
发帖
网络及通讯开发
加入

1304

社区成员

C++ Builder 网络及通讯开发
申请成为版主
帖子事件
创建了帖子
2004-04-29 09:26
社区公告
暂无公告