使用Dejan TComport Delphi组件读取串口的二进制数据

Question

很抱歉这个问题，但我对Delphi有点新手。我正在使用Dejan TComport组件从串口获取数据。连接到该端口的一盒设备将大约100字节的二进制数据发送到串行端口。我想做的是将字节作为数值提取到一个数组中，这样我就可以对它们执行计算。

TComport有一个从输入缓冲区读取数据的方法Read( buffer，Count)。

function Read(var Buffer; Count: Integer): Integer;

帮助说明Buffer变量必须足够大，以容纳计数字节数，但没有提供如何使用此函数的任何示例。我可以看到Count变量保存了接收到的字节数，但是我找不到访问Buffer中的字节的方法。

TComport还有一个methord Readstr，它将数据从输入缓冲区读取到字符串变量中。

function ReadStr(var Str: String; Count: Integer): Integer;

同样，Count变量显示接收到的字节数，我可以使用Memo1.Text:=str显示一些信息，但显然Memo1在显示控制字符方面有问题。我尝试了各种方法来尝试从Str中提取字节数据，但到目前为止都没有成功。

我相信这一定很简单。希望如此。

Answer 1

在此函数中

function Read(var Buffer; Count: Integer): Integer;

Count参数是您希望读取的字节数。而函数返回值实际上是读取字节。

如果您有一个定义为100字节数组的缓冲区，则可以编写

x := Read(Buffer, 100);

如果输入只有70个字节，那么x就是70。这样你就可以在x>0的时候阅读

Answer 2

// I use a timer to read a weight coming in on the Serial Port
// but the routing could also be triggered by OnRXChar (received data event)
// or OnRXBufferFull event.

var
  WeightString: String; //global

procedure TfmUDF.tmScaleTimer(Sender: TObject);
var
  Data: AnsiString;
begin
  ReadStr(Data,Count); //the individual bytes can be read Data[n].....
  WeightData:=WeightData+Data; //just keeps adding the incoming data
end;

这有帮助吗？