我使用了您提供的串口通讯控件 TYbCommdevice控件;
端口=COM5;波特率=br2400;奇偶=N;数位=7;停止位=2;
每次打开该串口时,系统CPU 显示100%使用,并系统进入忙状态!并无数据可读。
我是通过电脑与电子天平联机!
主要程序如下:
//----------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
try
{
YbCommDevice1->Active = true;
}
catch(Exception &e)
{
ShowMessage("串口COM: "+e.Message);
}
}
//------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
unsigned char Buf[8192]; //分配一个缓存容量相同的Buf
int n=0;
AnsiString s;
//ShowMessage("reading...");
n= YbCommDevice1->Read(Buf,8192); //检测收到的字节个数N
//ShowMessage("Data :"+ n);
if(n>0)
{ // ShowMessage("Get data");
for(int i=0; i s += IntToHex(Buf[i],2) + " ";
s = s.Trim();
edtPort->Text=s; //edtPort 属于TEdit
}
}
--------------------next---------------------
阅读(1164) | 评论(0) | 转发(0) |