UnitMain.cpp
资源名称:第6章 多线程编程.rar [点击查看]
上传用户:gyjjlc
上传日期:2013-03-29
资源大小:2124k
文件大小:1k
源码类别:
多显示器编程
开发平台:
C++ Builder
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #pragma hdrstop
- #include "UnitMain.h"
- //---------------------------------------------------------------------------
- #pragma package(smart_init)
- #pragma link "MSCommLib_OCX"
- #pragma resource "*.dfm"
- TFormMain *FormMain;
- //---------------------------------------------------------------------------
- __fastcall TFormMain::TFormMain(TComponent* Owner)
- : TForm(Owner)
- {
- }
- void __fastcall TFormMain::FormCreate(TObject *Sender)
- {
- //打开指定串行口
- MSComm1->PortOpen=true;
- }
- //---------------------------------------------------------------------------
- void __fastcall TFormMain::MSComm1Comm(TObject *Sender)
- {
- OleVariant recstr;
- //确认发送了收到有效字符事件
- if(MSComm1->CommEvent==2)
- {
- //从串行口内部接收缓冲区读取字符到内存变量
- recstr=MSComm1->Input;
- //接收的字符追加到主线程接收缓冲区
- MyInput=MyInput+WideString(recstr);
- //实时显示
- RichEdit2->Lines->Text=MyInput;
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TFormMain::RichEdit1KeyPress(TObject *Sender, char &Key)
- {
- WideString str=Key;
- MSComm1->Output=str;
- }
- //---------------------------------------------------------------------------
English
