Question

如何在Delphi中将字节数组转换为字符串（base 256）？

Answer 1

使用内置SetString命令。它将字符串设置为所需的长度并复制字节。数组不需要以null结尾。实际上，如果数组中有零值字节，它们将正确地出现在字符串中;他们不会终止字符串。

SetString(AnsiStr, PAnsiChar(@ByteArray[0]), LengthOfByteArray);

如果你有一个UnicodeString，那么你需要将length参数减半，因为它测量字符而不是字节：

SetString(UnicodeStr, PWideChar(@ByteArray[0]), LengthOfByteArray div 2);

另见Converting TMemoryStream to String in Delphi 2009。

Answer 2

我不确定Base256是什么意思。如果要获取数据的十六进制表示，请使用：

function bintostr(const bin: array of byte): string;
const HexSymbols = '0123456789ABCDEF';
var i: integer;
begin
  SetLength(Result, 2*Length(bin));
  for i :=  0 to Length(bin)-1 do begin
    Result[1 + 2*i + 0] := HexSymbols[1 + bin[i] shr 4];
    Result[1 + 2*i + 1] := HexSymbols[1 + bin[i] and $0F];
  end;
end;

如果您只想将数据呈现为字符串（这不会改变内容！），对于每个数据字节，您将获得带有该代码的单个ASCII符号，请执行

function bintoAscii(const bin: array of byte): AnsiString;
var i: integer;
begin
  SetLength(Result, Length(bin));
  for i := 0 to Length(bin)-1 do
    Result[1+i] := AnsiChar(bin[i]);
end;

Answer 3

我认为还有另一种很好的方法来转换字符串中的字节数组 - BytesToString中包含一个名为 IdGlobal 的Indy函数。它还允许您为字符串指定StartIndex，Length和TEncoding。我已经多次使用它，我发现它非常有用。

Answer 4

var
   LString : string;
   LBytes : TArray<byte>;
begin    
   LBytes := TArray<byte>.Create($01, $02, $03);
   LString := TEncoding.ANSI.GetString(ABytes);
end;

GetString（）是GetBytes（）的反向操作。

Answer 5

    function bintostr_r(const bin: array of byte): string;
    var i,j:integer;
        res:string ;
    begin
    res:='';
        for i:=0 to length(bin)-1 do
        begin
           for j:=1 to 8 do
           res:=Inttostr( ((bin[i] shr (j - 1)) and ((1 shl 1) - 1)) ) +res  ;
        end;
        result:=res;

    end;



procedure TForm1.FormCreate(Sender: TObject);
var OrigStat: array [1..6] of byte;  
  res:integer;
begin

  OrigStat[1]:=253; // 11111101
  OrigStat[2]:=252;
  OrigStat[3]:=251;
  OrigStat[4]:=250;
  OrigStat[5]:=249;
  OrigStat[6]:=248;
  Edit9.text:=bintostr_r(OrigStat);
end;


result => 111110001111100111111010111110111111110011111101

Delphi - 将字节数组转换为字符串

5 个答案: