用C++ Builder编程实现串行通信

Author: 刘纪锋 Date: 1999年 第43期 13版


  用C++ Builder来编写串行通信程序,我们需要用到几个Windows API函数而不像在DOS下那样直接操作串口和中断芯片。这几个函数有OpenFile、CloseFile,GetCommState、SetCommState等。Microsoft的Visual Basic 中有一个OCX控件MSComm32,在VB中用它做串行通信程序很方便,将它装入Builder 3中,它的Input和Output属性是UnKnown,即Builder 3不认识MSComm32的这两个属性,我们升级到Borland 的C++ Builder4.0,在Object Inspector中将不再看到这两个属性,但它们仍然存在,这两个属性的类型是OleVariant,也就是Ole万能变量,使用这种类型方法如下:
  在要发送数据时,我们声明一个发送数据缓冲区,然后重置它的大小,填充它的元素,发送它,例如:
  buff[200];//请声明为全局变量
  OleVariant TxBuff;//声明一个OleVariant 变量
  TxBuff=VarArrayCreate(OPENARRAY(int,(0,n)),varByte);//重置它的大小,为0~n,int 为n的类型。 
  //varByte为TxBuff每一个元素的类型。
    for(int i=0;i<n+1;i++)TxBuff.PutElement(buff[i],i)
    //填充元素,其中buff为你定义的一个固定数组,其中有你要发的数据。
  MSComm1->Output=TxBuff;//发送数据,MSComm1为你放在窗体上的一个MSComm32控件。
  按收数据时请看下面的例子:
  int buff[200];//声明一个存储接收数据的缓冲区,全局变量
  int ByteNum;//收到的字节数
  int BuffPtr;//接收缓冲区的指针,请声明为全局变量,
  OleVariant RxBuff;//一个用于接收的OleVariant变量,
  if(MSComm1->InBufferCount>0)RxBuff=Communica1->Input;//如果缓冲区中有多于一个字节的数据
  ByteNum=RxBuff.ArrayHighBound(1);//将实际读的字节数取出
    for(int i=0;i<ByteNum+1;i++){buff[BuffPtr++]=RxBuff.GetElement(i);}//将接收数据读入自己的缓冲区
  在Object Inspector的Event标签中只有一个事件OnComm,这个事件在MSComm32控件收到数据时会被调用,但你必须设置RThreshold属性。这是一个门槛,表示收到几个字节就发送通知消息,如果为零,就不发送通知消息,这样你的OnComm函数就不会得到执行,TThreshold是发送门槛,不要忘记Settings。
  另外值得注意的是MSComm32的OnComm事件不是很准确,有时候会丢失,你不能过分依赖这个事件,否则,经常发生的不是发不出数据,就是接收不到数据,最好的办法是使用一个定时控件,需要的时候就去读MSComm32控件的缓冲区。