unit1.cpp

TBCOMM串口类使用用例.TBCOMM是本人在CNCOMM的基础上改良后的一个类块,这个用例是在C++ BUILDER 2007上开发的

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "com.h"
//#include "SPCOMM.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TBComm MM;
//TComm xx;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void   __fastcall TForm1::MyComRev(Messages::TMessage message)
{
  String m_sPack;
  m_sPack.sprintf((char*)message.WParam);
  try
  {
  Rev->Lines->Add("Receive(str)> "+AnsiString(message.LParam) +":"+ m_sPack);
  }
  catch(...)
  {return;}
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 if(Button1->Caption=="打开")
 {
 
  if(MM.Open(atoi(Edit1->Text.c_str()),this->Handle))
  {
  Button1->Caption="关闭";
  }
  else
  {
  ShowMessage("打开失败!确认串口号是否正确?");
  }
 }
 else
 {
  MM.Close();
  Button1->Caption="打开";
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 Rev->Clear();
}
//---------------------------------------------------------------------------