delphi - Delphi Comport 没有得到完整的数据

Question

我有这个代码：

procedure Tfrm_main.cport_scanningRxChar(Sender: TObject; Count: Integer);
begin
  cport_scanning.ReadStr(data, Count);
  memo3.Text := data;
end;

实际结果是：

memo3.text := M000000;

然后变成了：

memo3.text := 021111D;

预期结果：

memo3.text := M000000021111D;

Answer 1

将来，它会帮助指出您正在使用的组件，特别是因为 TComPort 不随 Delphi 一起提供。

答案是因为可以在收到所有数据之前调用 OnRxChar。您的代码应为：

procedure Tfrm_main.cport_scanningRxChar(Sender: TObject; Count: Integer);
begin
  cport_scanning.ReadStr(data, Count);
  memo3.Text := memo3.Text + data;
end;