// 十六进制字符串 换成字符数组转

// 十六进制字符串 换成字符数组转
procedure StringToByte(var aData: array of Byte; sStr: string;
  iBeginIndex: integer);
var
  i, iDataLen: integer;
begin
  iDataLen := length(sStr);
  if (iDataLen mod 2) <> 0 then
    Exit;


  for i := 0 to Trunc(iDataLen / 2) - 1 do
    aData[iBeginIndex + i] := StrToInt('$' + Copy(sStr, i * 2 + 1, 2));
end;