C++ Builder如何用MSComm控件进行二进制方式通信

原文地址：点击打开链接

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

　　需要采用二进制方式通信，看参考书上VC里可以用CByteArray，>>COleVariant等数据类型，方便的采用二进制方式通信，C++ Builder似乎没有这些类型吧？按照VC的方法试过了不行MSDN里介绍的也是VC里的一些方法，没有这方面的资料，哪为达人有，介绍一下。。。。。谢谢了

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

　　二进制？

　　我给你个例子，也许对你有帮助。

　　//串口打印函数

void __fastcall TfrmMain::MSCPrint( AnsiString DetailText )
{
  String s = DetailText;
  if( MSComm->PortOpen == false )
      MSComm->PortOpen = true;
  MSComm->Output = StringToOleStr( AnsiString(char(28)) + AnsiString(char(38)) );  //输出中文
  MSComm->Output = StringToOleStr( DetailText );
  MSComm->Output = StringToOleStr( AnsiString(char(10) ));
  MSComm->Output = StringToOleStr( AnsiString(char(10) ));
  MSComm->Output = StringToOleStr( AnsiString(char(10) ));
  MSComm->Output = StringToOleStr( AnsiString(char(10) ));
  MSComm->Output = StringToOleStr( AnsiString(char(10) ));
  MSComm->Output = StringToOleStr( AnsiString(char(10) ));
  MSComm->Output = StringToOleStr( AnsiString(char(10) ));
  MSComm->Output = StringToOleStr( AnsiString(char(10) ));
  MSComm->Output = StringToOleStr( AnsiString(char(27)) + AnsiString(char(109)) );
}
//---------------------------------------------------------------------------
以前做过这方面的程序，给你个代码段参考一下：
   OleVariant RxBuff;
   int bytenum;
   char c1;
   AnsiString st1;  //保存串口传送来的字符
   if(MSComm1->InBufferCount>0 && MSComm1->InputMode==1)
      {
      RxBuff=MSComm1->Input;
      bytenum=RxBuff.ArrayHighBound(1);
      int i=0;
      while(i<=bytenum)
        {
        c1=RxBuff.GetElement(i);
        st1=st1+c1;
        i++;
        }
      }
--------------------------------------------------------------------------------
更正一下：
   OleVariant RxBuff;
   int bytenum;
   char c1;
   AnsiString st1="";  //保存串口传送来的字符
   if(MSComm1->InBufferCount>0 && MSComm1->InputMode==1)
      {
      RxBuff=MSComm1->Input;
      bytenum=RxBuff.ArrayHighBound(1);
      int i=0;
      while(i<bytenum)
        {
        c1=RxBuff.GetElement(i);
        st1=st1+c1;
        i++;
        }
      }
--------------------------------------------------------------------------------
if (MSComm->PortOpen)
    return;
  MSComm->CommPort= 2;
  MSComm->Settings= "115200, n, 8, 1";
  MSComm->InBufferSize= 4096;
  MSComm->OutBufferSize= 2048;
  MSComm->RThreshold= 1;
  MSComm->SThreshold= 1;
  MSComm->InputMode= comInputModeBinary;
  try {
    MSComm->PortOpen= true;
    MSComm->InputLen= 0;
    MSComm->InBufferCount= 0;
    MSComm->OutBufferCount= 0;
    ShowStatueMessage(1);
    Log(1, "连接成功");
  }
  catch (...){
    ShowStatueMessage(0);
  }
..........
//---------------------------------------------------------------------------
void __fastcall TFrmMain::MSCommComm(TObject *Sender)
{
  char szBuf[RxBUFFERSIZE]={0};
  int i, j;
  OleVariant RxBuff;
  switch (MSComm->CommEvent)
  {
/*    case comEvSend:
      ShowMessage("Send！！！！");
    case comEvCTS:
      ShowMessage("CTS！！！！");
    case comEvDSR:
      ShowMessage("DSR！！！！");
    case comEvCD:
      ShowMessage("CD！！！！");
*/
///*
    case comEvReceive:
      if (MSComm->InBufferCount > 0) {
        RxBuff= MSComm->Input;
        j= RxBuff.ArrayHighBound(1);
        for (i=0; i<=j; i++)
          szBuf[i]= RxBuff.GetElement(i);
        szBuf[i]= NULL;
        #ifdef _DEBUG
        RichEdit1->Lines->Add(AnsiString(szBuf));
        #endif
        if (strstr(szBuf, "+CMTI") != 0) // 收到短消息了
        {
//        ShowMessage("来短消息了");
          ProcessSMS(szBuf);
        }
      }
      break;
//*/
    case comEvRing:
      ShowMessage("来电话了！！！！");
      break;
  }
}
你可能主要的麻烦在于  VC和BCB对于 OleVariant支持的不同。
--------------------------------------------------------------------------------
DWORD __fastcall TFrmMain::WriteComm(char *aTxBuff, int BuffSize)
{
  OleVariant TxBuff;
  int i;
  if (MSComm->PortOpen) {
    if (BuffSize > 0) {
      TxBuff= VarArrayCreate(OPENARRAY(int, (0, BuffSize-1)), varByte);
      for (i=0; i<BuffSize; i++)
        TxBuff.PutElement(aTxBuff[i], i);
      MSComm->Output= TxBuff;
    }
  }
  return 0;
}