如何将十六进制字符串保存到二进制文件[重复]

Question

这个问题在这里已有答案：

• Hex to Binary convert 2回答

我有一个hexString，如何将该字符串转换为二进制文件并保存为自定义扩展名的二进制文件？以下是我用来将字符串保存到文件中的示例代码块。

function HexToString(H: String): String;
var I: Integer;
begin
  Result:= '';
  for I := 1 to length (H) div 2 do
    Result:= Result+Char(StrToInt('$'+Copy(H,(I-1)*2+1,2)));
end;

procedure saveAs();
p, k, c, tmp: HexStr;
begin

   k := StringToHex('mykey');

   //TO DO 
   //I need to convert 'k' into binary and save as new file
end;

Answer 1

Delphi的RTL具有HexToBin()功能。您可以使用FileCreate() + FileWrite()或TFileStream，使用您想要的任何文件名+扩展名将二进制数据写入文件。