求一BCB基于MSComm控件的RS232串口通信程序。。谢谢。
如题

[解决办法]
//---------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
//打开串口
if(!MSComm1-> PortOpen)
{
MSComm1-> PortOpen=true;
}
}
//---------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
//关闭串口
if(MSComm1-> PortOpen)
{
MSComm1-> PortOpen=false;
}
}
//---------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
try
{
//发送数据
MSComm1-> Output=Edit1-> Text;
Sleep(20);
//接收数据
Edit2-> Text=MSComm1-> Input;
}
catch(Exception &e)
{
ShowMessage(e.Message);
}
}
//---------------------------------------