main.cpp

来自「采用C++ Builer编的一个串口通信源码」· C++ 代码 · 共 62 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "MSCommLib_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
MSComm1->PortOpen=true;
MSComm2->PortOpen=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   MSComm1->Output=StringToOleStr(RichEdit2->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MSComm1Comm(TObject *Sender)
{
   AnsiString str;
   OleVariant s;
   if(MSComm1->CommEvent==comEvReceive)
   {
      s=MSComm1->Input;
      str=s.AsType(varString);
      RichEdit1->Text=str;
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::MSComm2Comm(TObject *Sender)
{
   AnsiString str;
   OleVariant s;
   if(MSComm2->CommEvent==comEvReceive)
   {
      s=MSComm2->Input;
      str=s.AsType(varString);
      RichEdit3->Text=str;
      MSComm1->InBufferCount=0;
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   MSComm2->Output=StringToOleStr(RichEdit4->Text);
}
//---------------------------------------------------------------------------