delphi TIdBytes 转换 16进制 串口通信问询

var

 s,s1,s2,str,address2,rstr:string;

 data_send,re_buf:TIdBytes;

 I,n,num,i1:integer;

begin

   s:='010400120002D1CE';

   n:=length(s) div 2;

   setlength(re_buf,255);

   setlength(data_send,n);

   for I := 1 to n do

   begin

      s1:=copy(s,i*2-1,2);

      data_send[I-1]:=HexStrToByte(s1);

   end;

IdTCPClient1.Socket.Write(data_send);

IdTCPClient1.Socket.ReadBytes(re_buf,-1);  //第二个参数使用-1表示接收所有长度。因为我们并不知道要接收的数据到底有多长