开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 多显示器编程 > 查看源码
UnitMain.cpp
资源名称：第6章 多线程编程.rar　[点击查看]
上传用户：gyjjlc
上传日期：2013-03-29
资源大小：2124k
文件大小：5k
源码类别：

多显示器编程

开发平台：

C++ Builder

UnitMain.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "UnitMain.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. #define COMM_CONFIG_FILE "SetComm.ini"
  11. TFormMain *FormMain;
  12. //---------------------------------------------------------------------------
  13. __fastcall TFormMain::TFormMain(TComponent* Owner)
  14.         : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  18. //主窗体表单创建事件响应函数
  19. void __fastcall TFormMain::FormCreate(TObject *Sender)
  20. {
  21.     AnsiString DevicePort;
  22.     int BaudRate,ByteSize,Parity,StopBits;
  23.     //从初始化文件SetComm.ini中获取串行通信设备的设置参数
  24.     DevicePort=GetCommParameter(&BaudRate,&ByteSize,&Parity,&StopBits);
  25.     //创建串行通信对象实例
  26.     COMX=new TCommunication();
  27.     //初始化串行口
  28.     COMX->ComInitialization(DevicePort,BaudRate,ByteSize,Parity,StopBits);
  29.     //输入串初始化
  30.     input="";
  31.     //创建并启动线程，内部实现以挂起方式启动
  32.     pThread=new ThreadComm(false);
  33. }
  34. //---------------------------------------------------------------------------
  35. //从指定初始化文件中获取串行通信设备的设置参数
  36. AnsiString __fastcall TFormMain::GetCommParameter(int * pBaudRate,
  37.      int * pByteSize, int * pParity, int * pStopBits)
  38. {
  39.     char A1[16];
  40.     //文件全路径名。GetCurrentDir取当前目录，C++ Builder系统函数
  41.     AnsiString FileName=GetCurrentDir()+"\"+COMM_CONFIG_FILE;
  42.     //API函数，读取初始化文件的"Communication"节点下"BaudRate"条目，到A1
  43.     GetPrivateProfileString("Communication","BaudRate","9600",A1,15, FileName.c_str());
  44.     //字符串到整形数的变换
  45.     *pBaudRate=AnsiString(A1).ToInt();
  47.     GetPrivateProfileString("Communication","ByteSize","8",A1,15, FileName.c_str());
  48.     *pByteSize=AnsiString(A1).ToInt();
  50.     GetPrivateProfileString("Communication","Parity","无校验",A1,15, FileName.c_str());
  51.     if(AnsiString(A1).AnsiCompare("无校验")==0)
  52.         *pParity=0;
  53.     else if(AnsiString(A1).AnsiCompare("奇校验")==0)
  54.         *pParity=1;
  55.     else
  56.         *pParity=2;
  58.     GetPrivateProfileString("Communication","StopBits","1",A1,15, FileName.c_str());
  59.     if(AnsiString(A1).AnsiCompare("1")==0)
  60.         *pStopBits=0;
  61.     else if(AnsiString(A1).AnsiCompare("1.5")==0)
  62.         *pStopBits=1;
  63.     else
  64.         *pStopBits=2;
  66.     GetPrivateProfileString("Communication","Device","COM1",A1,15, FileName.c_str());
  67.     return AnsiString(A1);
  68. }
  69. //---------------------------------------------------------------------------
  70. //向指定初始化文件中写入串行通信设备的设置参数
  71. void __fastcall TFormMain::SetCommParameter(char * DeviceP, char * BaudRateP, char * ByteSizeP, char * ParityP, char * StopBitsP)
  72. {
  73.     AnsiString FileName=GetCurrentDir()+COMM_CONFIG_FILE;
  74.     WritePrivateProfileString("Communication","Device",DeviceP, FileName.c_str());
  75.     WritePrivateProfileString("Communication","BaudRate",BaudRateP, FileName.c_str());
  76.     WritePrivateProfileString("Communication","ByteSize",ByteSizeP, FileName.c_str());
  77.     WritePrivateProfileString("Communication","Parity",ParityP, FileName.c_str());
  78.     WritePrivateProfileString("Communication","StopBits",StopBitsP, FileName.c_str());
  79. }
  80. //---------------------------------------------------------------------------
  81. //RichEdit1控件中键入一字符即按键按下事件响应函数，从串行口发送当前字符
  82. void __fastcall TFormMain::RichEdit1KeyPress(TObject *Sender, char &Key)
  83. {
  84.     //调用开始发送函数StartSend，将当前字符发送出去
  85.     StartSend(AnsiString(Key));
  86. }
  87. //---------------------------------------------------------------------------
  88. //打开文件对话框按钮单击事件响应函数
  89. void __fastcall TFormMain::Button1Click(TObject *Sender)
  90. {
  91.     //打开打开文件对话框，选择了有效文件的情况...
  92.     if(OpenDialog1->Execute())
  93.     {
  95.         RichEdit1->Lines->Clear();
  96.         //在Edit1中显示文件名
  97.         Edit1->Text=OpenDialog1->FileName;
  98.         //将选中文件打开在Memo1中
  99.         RichEdit1->Lines->LoadFromFile(OpenDialog1->FileName);
  100.         //使“发送”按钮处于有效状态，允许拥护操作
  101.         Button2->Enabled=true;
  102.     }
  103. }
  104. //---------------------------------------------------------------------------
  105. //启动发送。文件发送情况，即数据块发送情况，以此方式发送首字符，后续字符
  106. //在发送缓冲区空/事件驱动下完成。对话发送方式，每按下一个字符就相当于发送
  107. //程度为1字节的数据块，认定这是一种机器等人的情况，不会出现发送覆盖的情况。
  108. void __fastcall TFormMain::StartSend(AnsiString strString)
  109. {
  110.     //装订线程中发送缓冲区参数
  111.     pThread->sendBuffer=strString;
  112.     pThread->sendCount=strString.Length();
  113.     //调用线程成员函数发送首字节字符
  114.     pThread->SendOneByte();
  115. }
  116. //---------------------------------------------------------------------------
  117. //“发送”按钮单击事件响应函数，启动数据块发送
  118. void __fastcall TFormMain::Button2Click(TObject *Sender)
  119. {
  120.     //自锁，发送期间，禁止被再次按下
  121.     Button2->Enabled=false;
  122.     //将此前打开在Memo1中的文件作为一个字串发送出去
  123.     StartSend(RichEdit1->Lines->Text);
  124. }
  125. //---------------------------------------------------------------------------
  126. //将实时接收到的字符显示出来，线程的同步函数间接调用该函数
  127. bool __fastcall TFormMain::CommInputProc(AnsiString Cmd)
  128. {
  129.     //实时接收到的字符串追加到成员变量中
  130.     input=input+Cmd;
  131.     //在Memo2中显示上述成员变量
  132.     RichEdit2->Lines->Text=input;
  133.     return true;
  134. }
  135. //---------------------------------------------------------------------------