关于串口操作的问题记录

 

1、我们操作串口时，发现数据返回不对，或者没有数据返回，首先需要看一下波特率是不是设置正确

2、DELPHI下用TMSCOM的串口操作

      1）发送数据

           

function   SendData(Data: array of Byte;Len: Integer): Boolean;
var
  temp:   Variant;
  i: Integer;
begin
  Result := False;
  if   MSComm.PortOpen   then
  begin

    temp := VarArrayCreate([0,Len-1],varbyte);
    for i:=0 to Len-1 do
    begin
      temp[i] := Data[i];
    end;

       MSComm.Output := temp;
        Result := True;
  end;
end;

 

      2）接收数据

var
  RecBuf: array of Byte;
  RecLen: Integer;
begin
  try
    case MSComm.CommEvent of
      comEvReceive: //接收到数据
        begin
          RecLen := MSComm.InBufferCount;

          SetLength(RecBuf,RecLen);
          try
            RecBuf := MSComm.Input;

....