三、程序的实现

　　1.注册MSComm控件

　　众所周知，C++Builder本身并不提供串行通讯控件MSComm，但我们却可以通过注册后直接使用它。启动C++Builder5.0后，然后选择C++Builder主菜单中的Component菜单项，单击Import Active Control命令，弹出Import Active窗口，选择Microsoft Comm Control6.0，再选择Install按钮执行安装命令,系统将自动进行编译,编译完成后即完成MSComm控件在C++Builder中的注册,系统默认安装在控件板的Active页,接下来我们就可以像使用C++Builder本身提供的控件那样使用新注册的MSComm控件了。（前提条件是你的机子上安装了Visual Basic，或者有它的库）

　　2.具体实现

　　新建一个工程Project1，把注册好的MSComm控件加入到窗体中，然后再加入5个ComboBox用来设置串口的属性，4个Button分别用来"打开串口" "关闭串口""发送数据""保存数据" ，2个Memo控件分别用来显示接收到的数据和发送的数据。再加入一个Shape控件用来标明串口是否打开。

　　ComboBox1用来设置串口号，通过它的Items属性设置1，2，3，4四个列表项分别表示COM1,COM2,COM3,COM4口。ComboBox2用来设置波特率，ComboBox3用来设置奇偶校验位，ComboBox4用来设置数据位，ComboBox5用来设置停止位。他们的缺省值分别是9600，n，8，1。

　　Button1用来打开串口，Button2用来关闭串口，Button3用来发送数据，Button4用来保存数据。Memo1用来显示发送的数据，Memo2显示接收的数据。Shape1的Shape属性设置为stCircle。
下面给出部分源码：

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
if(MSComm1->PortOpen==true)
{
Button1->Enabled=false;
Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;
Shape1->Brush->Color=clGreen;
}
else
{
Button2->Enabled=true;
Button2->Enabled=false;
Button3->Enabled=false;
Button4->Enabled=false;
Shape1->Brush->Color=clRed;
}
}
void __fastcall TForm1::Button1Click(TObject *Sender) / /打开串口
{
if(MSComm1->PortOpen!=true)
{
MSComm1->CommPort=StrToInt(ComboBox1->Text);//选择串口号
MSComm1->Settings=
ComboBox2->Text+","+
ComboBox3->Text+","+
ComboBox4->Text+","+
ComboBox5->Text; file://设置串口的属性波特率、奇偶校验、数据位和、//停止位。
MSComm1->InputMode=0;//设置传入数据的格式，0表示文本形式
MSComm1->PortOpen=true;//打开串口
Button1->Enabled=false;
Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;
Shape1->Brush->Color=clGreen;
}
}
void __fastcall TForm1::Button2Click(TObject *Sender) / /关闭串口
{
if(MSComm1->PortOpen!=false)
{
  MSComm1->PortOpen=false;
  Button1->Enabled=true;
  Button2->Enabled=false;
  Button3->Enabled=false;
  Button4->Enabled=false;
  Shape1->Brush->Color=clRed;
}
  else
   {
      Button1->Enabled=false;
      Button2->Enabled=true;
      Shape1->Brush->Color=clRed;
   }
}

　　MSComm控件的Input和Output属性在Object Inspector中是看不到的，而且在C++Builder环境下这两个属性已不在是VB、VC中的原类型，而是OleVariant类型，也就是Ole万能变量，这就需要我们在发送接收数据时要把数据转换成Ole类型。

void __fastcall TForm1::Button3Click(TObject *Sender) file://发送Memo2中的数据
{
MSComm1->Output=StringToOleStr(Memo2->Text); file://把AnsiString型转化成//Ole形式。
}

　　通过OnComm事件接收数据，必须把MSComm的RThreshold属性设置为大于0，只有这样在接收到字符时才会产生一个OnComm事件。

void __fastcall TForm1::MSComm1Comm(TObject *Sender)
{
AnsiString str; file://声明一个AnsiString类型的变量
OleVariant s; file://声明一个用于接收数据的OleVariant变量。
if(MSComm1->CommEvent==comEvReceive)
// 接收缓冲区中是否收到Rthreshold个字符。
{
if(MSComm1->InBufferCount)// 是否有字符驻留在接收缓冲区等待被取出
{
s=MSComm1->Input;//接收数据
str=s.AsType(varString); file://把接收到的OleVariant变量转换成AnsiString类型
Memo1->Text=Memo1->Text+str;//把接收到的数据显示在Memo1中。
}
}
}

　　要保存数据应该再加入一个SaveDialog模块

void __fastcall TForm1::Button4Click(TObject *Sender)
file://把Memo1中的数据保存在指定的文件中
{
AnsiString filename1;
SaveDialog1->Filter="Text files (*.txt)|*.txt|All files (*.*)|*.*";//文件类型过滤器
SaveDialog1->FilterIndex=2;
if(SaveDialog1->Execute())
{
   filename1=SaveDialog1->FileName;
   Memo1->Lines->SaveToFile(filename1);//把收到的数据保存在文件filename1中
  }
}

　　四、结束语

　　上面给出了C++ Builder中利用MSComm控件进行串行通信编程的实现和部分源码，有了上面的参照读者可以根据实际需要编写出具有发送文件和接收文件功能的程序。