我有一个十六进制字符串,如何将该字符串转换为二进制文件并另存为具有自定义扩展名的二进制文件? 下面是一个示例代码块,我用它来将字符串保存到文件中。
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;
Delphi的RTL具有HexToBin()
函数。您可以使用 FileCreate()
+ FileWrite()
或 TFileStream
,使用所需的任何文件名 + 扩展名将二进制数据写入文件。