向串口发送数据问题

[7年]

协议如下：
1 报文头 2 固定值：0xAA2F
2 报文长度 4 HEX，包含头与校验字节
3 报文类型 1 固定值：0x02
4 白名单版本号 4 BCD
5 白名单总数 2 HEX
6 卡号1 10 HEX
7 卡类型1 1 HEX 1:M1 2:电信卡 3:ID卡
8 人员姓名1 8 GB2312汉字（4个汉字）
9 部门1 10 GB2312汉字（5个汉字）
10 身份序号1 1 HEX（身份标号）
11 余额1 3 HEX（前两字节表示整数，第三字节表示小数）
N ACC校验字 2 HEX

现在我有个长度为16位的电信卡卡号字符串（0863030600686719），需要发送到串口的数00 00 08 63 03 06 00 68 67 19


卡号我定义为10位的byte数组.
请问，该怎么转换？
我用挨个赋值给赋值，再发送到串口后，就变成16进制了（00 00 08 3F 03 06 00 44 43 13）。。。。

正确发送到串口的数据是00 00 08 63 03 06 00 68 67 19

[bdmh]

引用 4 楼 zzflover 的回复:

用了笨方法，将字符串2位2位取10进制。再发送。

这个不笨

[7年]

我在设置断点的时候读取串口给我发送的数据个数与直接运行的不一样。。。。各位大大，谁知道咋回事？

[该用户很帅]

肯定是你校验位什么的哪里不一样，一个个调试看看

[7年]

还有个问题是：在串口通信调试的时候可以接收到回应报文，而程序运行时，就接收不到了。这是什么问题呢？

[看那山瞧那水]

"现在我有个长度为16位的电信卡卡号字符串（0863030600686719）"－－－－这个定义个ASCII码数组，长度16； "在串口通信调试的时候可以接收到回应报文，而程序运行时，就接收不到了。"－－－可能是你设置好设备的响应时间，上位机发个命令的时候，要等下位设置的响应，调整下这个时间

[7年]

数组定义不能变，因为还要兼容别的卡。。。

[7年]

用了笨方法，将字符串2位2位取10进制。再发送。 第2个问题有遇到过的没？

[ZyxIp]

var
  s:String;
  arr:array [0..9] of Byte;
  i,j:Integer;
begin
  s:='0863030600686719';
  i:=1;
  j:=0;
  ZeroMemory(@arr[0],10);
  while i<=Length(s) do
  begin
    arr[j]:=StrToInt('$'+S[i]+S[i+1]);
    i:=i+2;
    j:=j+1;
  end;

[7年]

sleep下就好了，得等待串口往回发送数据。