delphi COM口的数据处理

我本将心照明月，奈何明月照沟渠...

要接受来自COM口（串口）的数据，使用SPCOMM.pas单元文件，即可实现

1、创建2个公共对象，如下：

FComm : TComm;
FCommRecivieStr : string;

2、初始化，代码段如下：

procedure initCOMScan;
begin
  FComm := TComm.Create(nil);
  FComm.CommName := COM1;//串口名
  FComm.CommPort := 1;
  FComm.BaudRate := 9600;//波特率
  FComm.OnReceiveData := CommReceiveData;//关联事件
  FComm.StartComm;//线程启动
end;

3、CommReceiveData事件：

procedure CommReceiveData(Sender: TObject; Buffer: PAnsiChar;
  BufferLength: Word);
var
  AtempStr : string;
begin
  SetLength(AtempStr, BufferLength);
  Move(Buffer^, PChar(AtempStr)^, BufferLength);
  FCommRecivieStr := FCommRecivieStr + AtempStr;//如果是一个字符一字符的发，便将它们连接起来
end;

4、SPCOMM.pas见附件