void __fastcall cm1ReceiveData(TObject *Sender, Pointer Buffer,  // Buffer存放着读取的数据

          WORD BufferLength); //Bufferlength 存放着 读取的数据的长度

function TComm.WriteCommData( pDataToWrite: PChar; dwSizeofDataToWrite: Word ): Boolean; // 参数一：发送的数据；参数二：发送的数据的长度

TComm * cm1;

//1、打开串口
     try

      {

          cm1->StartComm();  //函数会让程序挂掉，不知道为什么 try catch可规避，不影响使用

          CM1PortOpenSucccessFlag=true;

      }

      catch(...)

      {

          m_step = -;

          //Application->MessageBoxA("OK","串口打开失败",MB_OK|MB_SYSTEMMODAL);

      }

//2、发送的数据
  char * cmd;
  cmd="MCH\r\n";  //注意：命令MCH末尾要跟着\r\n不然串口不回数据，至于为什么，各位开脑洞吧
  bool rtn = cm1->WriteCommData(cmd,strlen(cmd));  //注意：第二个参数如果按照函数定义那样用sizeof函数是有问题的，sizeof求的是所占空间，而不是字符个数

//3、睡眠等待Sleep(500);
　　　　发送数据后，接着要使用cm1ReceiveData串口返回的数据，需要等待一些时间。如果不等待，一直不等的 writeCommData将会出错。

//4、接收函数（自动接收）
void __fastcall TparaForm::cm1ReceiveData(TObject *Sender, Pointer Buffer,
      WORD BufferLength)
{
  char recvData[100];
  unsigned char revBuffer[100];
  memset(recvData, 0, 100);
  //AnsiString str;
  for(int i=0; i<BufferLength; i++, ((BYTE *)Buffer)++)
  {
    revBuffer[i] = *(BYTE *)Buffer ;
    recvData[i] = revBuffer[i];
  }
//得到char* 的recvData接收数据之后，根据需要使用，下面是个例子
    m_readData=recvData; //成员变量
    m_readDataLength=BufferLength;
}

//5、使用完，关闭串口
cm1->StopComm();