Delphi CnPack CnRS232 以16进制 串口接收数据 ReceiveData

使用Delphi组件CnPack里面的CnRs232，以十六进制对串口发送消息 ReceiveData

最新版CnRS232 Delphi 10+ 几个版本都测试，可以通过

procedure TForm1.CnRS2321ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
 s,s1,TXT:AnsiString;
 i,k,L:Integer;
 rbuf:ARRAY[0..2048] of BYTE;
begin
 Str := '';
 Move(Buffer^, pchar(@rbuf)^, BufferLength); 
 L:=BufferLength;
 for k := 0 to L - 1 do
 Str := Str + inttohex(rbuf[k], 2) + ' ';
 Str := '接收16进制：' + Str;
 //接收RS232的数据显示在Memo1上
 Memo1.Lines.Add(Str);
 Memo1.Lines.Add(' ');
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CnRS2321.StopComm;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 CnRS2321.StartComm;
end;