十六进制转换为二进制 [英] Hex to Binary convert

问题描述

我已经通过十六进制转换器将jpeg文件转换为十六进制代码。

I have converted my jpeg file as HEX code through hex converter.

现在如何将十六进制转换为二进制文件并另存为 Jpeg 磁盘上的文件。

Now how to convert that hex to binary and save as Jpeg file on disk.

类似：

将var声明为十六进制代码，然后将该var十六进制代码转换为二进制并保存在磁盘上？

var declared as Hex code and then convert that var hex code to binary and save on disk ?

编辑：

Var 
  myfileHex := 'FAA4F4AAA444444'; // long as HEX code of my JPEG 

function HexToBin(myfileHex): string;
begin    
  // Convert Hex to bin and save file as...
end; 

推荐答案

Delphi已拥有 HexToBin （ Classes ）过程，因为至少D5。

尝试使用此代码：

Delphi already has HexToBin (Classes) procedure, since at least D5.
Try this code:

procedure HexStringToBin;
var
  BinaryStream: TMemoryStream;
  HexStr: AnsiString;
begin
  HexStr := 'FAA4F4AAA44444';
  BinaryStream := TMemoryStream.Create;
  try
    BinaryStream.Size := Length(HexStr) div 2;
    if BinaryStream.Size > 0 then
    begin
      HexToBin(PAnsiChar(HexStr), BinaryStream.Memory, BinaryStream.Size);
      BinaryStream.SaveToFile('c:\myfile.bin')
    end;
  finally
    BinaryStream.Free;
  end;
end;

---

对于任何二进制 TStream 例如 TFileStream 。

这篇关于十六进制转换为二进制的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！