cport串口控件的应用

由于我认为新学习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

​

1. 1. 
      
2. //---------------------------------------------------------------------------
3. 
   
4. #ifndef Unit1H
5. #define Unit1H
6. //---------------------------------------------------------------------------
7. #include <Classes.hpp>
8. #include <Controls.hpp>
9. #include <StdCtrls.hpp>
10. #include <Forms.hpp>
11. #include "CPort.hpp"
12. //---------------------------------------------------------------------------
13. class TForm1 : public TForm
14. {
15. __published: // IDE-managed Components
16. TComPort *compt;
17. TButton *btn_set;
18. TButton *btn_open_close;
19. TButton *btn_send;
20. TMemo *memo_1;
21. TEdit *edt_send;
22. void __fastcall btn_setClick(TObject *Sender);
23. void __fastcall btn_open_closeClick(TObject *Sender);
24. void __fastcall btn_sendClick(TObject *Sender);
25. // void __fastcall ComPortRxChar(TObject* Sender, int Count);
26. void __fastcall comptRxChar(TObject *Sender, int Count);
27. 
    
28. private: // User declarations
29. int time;
30. public: // User declarations
31. __fastcall TForm1(TComponent* Owner);
32. };
33. //---------------------------------------------------------------------------
34. extern PACKAGE TForm1 *Form1;
35. //---------------------------------------------------------------------------
36. #endif
    1. 
       

2.com_port.cpp

​

1. 1. 
      
2. //---------------------------------------------------------------------------
3. 
   
4. #include <vcl.h>
5. #pragma hdrstop
6. 
   
7. #include "Unit1.h"
8. //---------------------------------------------------------------------------
9. #pragma package(smart_init)
10. #pragma link "CPort"
11. #pragma resource "*.dfm"
12. TForm1 *Form1;
13. //---------------------------------------------------------------------------
14. __fastcall TForm1::TForm1(TComponent* Owner)
15. : TForm(Owner)
16. {
17. memo_1->Text="";
18. }
19. //---------------------------------------------------------------------------
20. void __fastcall TForm1::btn_setClick(TObject *Sender)//设置串口
21. {
22. compt->ShowSetupDialog();
23. }
24. //---------------------------------------------------------------------------
25. void __fastcall TForm1::btn_open_closeClick(TObject *Sender) //打开&关闭串口
26. {
27. if(compt->Connected)
28. {
29. compt->Close();
30. btn_open_close->Caption="打开串口";
31. }
32. else
33. {
34. compt->Open();
35. btn_open_close->Caption="关闭串口";
36. }
37. }
38. //---------------------------------------------------------------------------
39. void __fastcall TForm1::btn_sendClick(TObject *Sender) //发送数据
40. {
41. AnsiString Str;
42. 
    
43. Str=edt_send->Text;
44. Str=Str+"/r/n";
45. compt->WriteStr(Str);
46. //memo_1->Text="yes,you are right!/r/n";
47. }
48. //---------------------------------------------------------------------------
49. void __fastcall TForm1::comptRxChar(TObject *Sender, int Count) //接收数据
50. {
51. AnsiString Str;
52. compt->ReadStr(Str,Count);
53. memo_1->Text=memo_1->Text+Str;
54. }
55. //---------------------------------------------------------------------------
    1.