c++builder6.0做的mscomm串口通讯

在bcb6.0下用mscomm控件作的通讯程序，希望对需要的有所帮助

//---------------------------------------------------------------------------

#include 
#pragma hdrstop

#include “shiyan15.h“
//---------------------------------------------------------------------------
#pragma package（smart_init）
#pragma link “MSCommLib_OCX“
#pragma link “AniGIFCtrl_OCX“
#pragma resource “*.dfm“
TForm1 *Form1;
Byte buff[1024];
int buff_wp=0;
int buff rp=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1（TComponent* Owner）
        : TForm（Owner）
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate（Tobject *Sender）
{
        MSComm1->InputLen=0;      // 确定希望从接收缓冲区移出的字符数量，InputLen＝0时一次把接收缓冲区的字符全部移出.
        MSComm1->InBufferSize=256;
        MSComm1->OutBufferSize=256;
        MSComm1->SThreshold=0;     //表示发送数据时不发生OnComm事件
        MSComm1->RThreshold=1;         //设定当接收9个字符时触发OnComm事件
        MSComm1->InputMode=comInputModeBinary;
        MSComm1->InBufferCount=0;
        MSComm1->OutBufferCount=0;
        MSComm1->DTREnable=true;
        MSComm1->RTSEnable=true;

        Shape1->Brush->Color=clYellow;
        BtnOpen->Enabled = true;
        BtnClose->Enabled = false;
        Memo1->Clear（）;
        Memo2->Clear（）;


}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click（Tobject *Sender）
{
        this->Close（）;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BtnOpenClick（Tobject *Sender）
{
        try
        {
              if（MSComm1->PortOpen!=true）
              {
                    MSComm1->CommPort=StrToInt（1） ;
                    MSComm1->Settings=“2400e81“;
                    MSComm1->InputMode = 1;
                    MSComm1->PortOpen = true;
                    MSComm1->SThreshold=0;
                    MSComm1->RThreshold=1;
                    MSComm1->DTREnable=true;
	            MSComm1->RTSEnable=true;
                    Form1->Caption=“TestPlateform:串口已打开“;
                    Shape1->Brush->Color=clGreen;
                    //AniGIF1->Play（）;
                    //AniGIF1->Speed = 1;
                    BtnOpen->Enabled =false;
                    BtnClose->Enabled =true;
              }

        }
                catch（Exception &exception）
                {
                        Application->ShowException（&exception）;
                }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BtnCloseClick（Tobject *Sender）
{
        try
        {
              if（MSComm1->PortOpen!=false）
              {
                    MSComm1->PortOpen = false ;
                    Form1->Caption=“TestPlateform:串口已关闭“;
                    BtnOpen->Enabled =true;
                    BtnClose->Enabled =false;
                    M

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1072  2010-06-17 12:44  实验14\shiyanProject15.cpp

     文件       4289  2010-07-02 10:14  实验14\shiyanProject15.bpr

     文件      17832  2010-07-02 10:16  实验14\shiyanProject15.obj

     文件        876  2010-06-17 12:47  实验14\shiyanProject15.res

     文件     431765  2010-07-02 11:10  实验14\shiyan15.obj

     文件      58368  2010-07-02 11:10  实验14\shiyanProject15.exe

     文件       1708  2010-07-02 10:43  实验14\shiyan15.~h

     文件    2752512  2010-07-02 11:12  实验14\shiyanProject15.tds

     文件       5447  2010-07-02 10:44  实验14\shiyan15.~cpp

     文件       1708  2010-07-02 10:43  实验14\shiyan15.h

     文件       2332  2010-07-02 10:47  实验14\shiyan15.dfm

     文件       2332  2010-07-02 10:47  实验14\shiyan15.~dfm

     文件         51  2010-07-02 11:12  实验14\shiyan15.ddp

     文件         51  2010-07-02 10:47  实验14\shiyan15.~ddp

     文件       5612  2010-07-02 11:16  实验14\shiyan15.cpp.bak

     文件       5663  2010-07-02 11:17  实验14\shiyan15.cpp

     目录          0  2010-07-02 10:15  实验14

----------- ---------  ---------- -----  ----

              3291618                    17