UnitMain.cpp
上传用户:gyjjlc
上传日期:2013-03-29
资源大小:2124k
文件大小:1k
源码类别:

多显示器编程

开发平台:

C++ Builder

  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. #include "UnitMain.h"
  5. //---------------------------------------------------------------------------
  6. #pragma package(smart_init)
  7. #pragma link "MSCommLib_OCX"
  8. #pragma resource "*.dfm"
  9. TFormMain *FormMain;
  10. //---------------------------------------------------------------------------
  11. __fastcall TFormMain::TFormMain(TComponent* Owner)
  12.         : TForm(Owner)
  13. {
  14. }
  15. void __fastcall TFormMain::FormCreate(TObject *Sender)
  16. {
  17.     //打开指定串行口
  18.     MSComm1->PortOpen=true;
  19. }
  20. //---------------------------------------------------------------------------
  21. void __fastcall TFormMain::MSComm1Comm(TObject *Sender)
  22. {
  23.     OleVariant recstr;
  24.     //确认发送了收到有效字符事件
  25.     if(MSComm1->CommEvent==2)
  26.     {
  27.         //从串行口内部接收缓冲区读取字符到内存变量
  28.         recstr=MSComm1->Input;
  29.         //接收的字符追加到主线程接收缓冲区
  30.         MyInput=MyInput+WideString(recstr);
  31.         //实时显示
  32.         RichEdit2->Lines->Text=MyInput;
  33.     }
  34. }
  35. //---------------------------------------------------------------------------
  36. void __fastcall TFormMain::RichEdit1KeyPress(TObject *Sender, char &Key)
  37. {
  38.     WideString str=Key;
  39.     MSComm1->Output=str;
  40. }
  41. //---------------------------------------------------------------------------