读取com口接收byte数据的处理

procedure Tfrm_CheckCloth.cnrs232ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
  var
    MyRcvData:Array[0..8] of byte;
    ChkStr:string;
    tmp : Integer;
begin
     move(buffer^,pchar(@MyRcvData)^,8);
    //  ChkStr :=  inttostr(MyRcvData[3]*256 +MyRcvData[4]) + inttostr(MyRcvData[5]*256 +MyRcvData[6]);
    ChkStr := Format('%0.2x%0.2x%0.2x%0.2x', [MyRcvData[3], MyRcvData[4],MyRcvData[5],MyRcvData[6]]);
     try
       tmp := strtoint('$'+ChkStr);
     except
       tmp := 0;
     end;
     GetRS232DateLen :=Format( '%.2f',[(tmp)/1000]);
 end;

烟台一码表厂的码表：

通讯举例：仪表地址假设为1

读取当前显示值（假设当前显示值为1000）

上位机发送(HEX)   01 03 00 14 00 02 84 0F

仪表回应(HEX)：   01 03 04 00 00 03 E8 FA 8D

红字表示码表数值。