请问怎么用HexToBin

Question

Delphi syntax:function HexToBin(Text, Buffer: PChar; BufSize: Integer): Integer我有一整数，可以IntToHex(i,c)转成字符串，
能通过什么方法，转成2进制吗？

Answer 1

var
  s: String;
  b: PChar;
begin
  s := 'AB12';
  GetMem(b,100);
  try
    HexToBin(PChar(s),b,100);
    s := b;
    ShowMessage(s);  // 1010101100010010
  finally
    FreeMem(b);
  end;
end;

Answer 2

怎么我的运行结果是
?4DElphi7

Answer 3

不好意思，我搞错了，这个函数根本不会得到二进制字符串var
  s: String;
  b: PChar;
begin
  s := 'ab12345678';
  GetMem(b,(Length(s)+1) div 2);
  try
    HexToBin(PChar(s),b,100); // 返回5
    // after call b has followwing values
    // b[0] = #$ab
    // b[1] = #$12
    // b[2] = #$34
    // b[3] = #$56
    // b[4] = #$78
  finally
    FreeMem(b);
  end;
end;