cport串口控件的应用

cport是一个很强大的串口控件。支持delphi/bcb.最新版本是v4.10.官网下载地址是：http://sourceforge.net/projects/comport/files/comport/

，配有详细的说明文档。在这我仅仅作为一个总结，方便以后自己查看。

由于我认为新学习pascal语言是件很头疼的事情！所以最终我决定使用bcb作为windows上的编程工具了。

安装好cport控件后在bcb的控件栏中将会多出如图示的cport控件。

常用的有ComPort和ComDataPacket控件，本例中我只用了ComPort控件实现简单的串口发送接收功能。

(1).将ComPort拖至窗体上，设置属性页中的DiscardNull为true,ControlDTR为dtrEnable.

(2).添加三个按钮控件到窗体，分别作为“设置串口”“打开/关闭串口”“发送”。

(3).添加Edit控件作为输入将要发送的数据，添加memo作为显示接收的数据。

如图示：

(4).分别双击三个按钮事件，“设置串口”“打开/关闭串口”“发送”函数。

(5).接收数据关键的一步：选中cport控件，进入其Events页，双击OnRxChar编写接收函数。（之前我一直是手动添加的该函数，导致最后没有与控件的events关联起来，从而无法正确接收数据，纠结的2天！）如图示：

 

代码：

1.com_pro.h

//---------------------------------------------------------------------------#ifndef Unit1H#define Unit1H//---------------------------------------------------------------------------#include <Classes.hpp>#include <Controls.hpp>#include <StdCtrls.hpp>#include <Forms.hpp>#include "CPort.hpp"//---------------------------------------------------------------------------class TForm1 : public TForm{__published:// IDE-managed Components TComPort *compt; TButton *btn_set; TButton *btn_open_close; TButton *btn_send; TMemo *memo_1; TEdit *edt_send; void __fastcall btn_setClick(TObject *Sender); void __fastcall btn_open_closeClick(TObject *Sender); void __fastcall btn_sendClick(TObject *Sender); // void __fastcall ComPortRxChar(TObject* Sender, int Count); void __fastcall comptRxChar(TObject *Sender, int Count);private:// User declarations int time;public:// User declarations __fastcall TForm1(TComponent* Owner);};//---------------------------------------------------------------------------extern PACKAGE TForm1 *Form1;//---------------------------------------------------------------------------#endif

2.com_port.cpp

//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit1.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma link "CPort"#pragma resource "*.dfm"TForm1 *Form1;//---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner){ memo_1->Text="";}//---------------------------------------------------------------------------void __fastcall TForm1::btn_setClick(TObject *Sender)//设置串口{ compt->ShowSetupDialog();}//---------------------------------------------------------------------------void __fastcall TForm1::btn_open_closeClick(TObject *Sender) //打开&关闭串口{ if(compt->Connected) { compt->Close(); btn_open_close->Caption="打开串口"; } else { compt->Open(); btn_open_close->Caption="关闭串口"; }}//---------------------------------------------------------------------------void __fastcall TForm1::btn_sendClick(TObject *Sender) //发送数据{ AnsiString Str; Str=edt_send->Text; Str=Str+"/r/n"; compt->WriteStr(Str); //memo_1->Text="yes,you are right!/r/n";}//---------------------------------------------------------------------------void __fastcall TForm1::comptRxChar(TObject *Sender, int Count) //接收数据{ AnsiString Str; compt->ReadStr(Str,Count); memo_1->Text=memo_1->Text+Str;}//---------------------------------------------------------------------------