installer – 将String转换为Byte数组将不起作用

我想将String转换为字节数组,代码如下所示：

procedure StringToByteArray(const s : String; var tmp: array of Byte);
var
  i : integer;
begin
       For i:=1 to Length(s) do
       begin
            tmp[i-1] := Ord(s[i]);
       end;

end;

s [i]这里是第i个String元素(= pos i处的char),我将其数值保存到tmp.

这适用于某些角色,但并非适用于所有角色,例如：

Ord(‘•’)返回Dec(149),这是我所期望的.

但在我的程序中,Ord(s [i])返回相同角色的Dec(8226)！

Edit1：我认为缺陷在于我的其他功能“ByteArrayToStr”

转换时……

tmp:= 149    // tmp is of type byte
Log('experiment: ' + Chr(tmp));  // prints "•"
Log('experiment2 ' + IntToStr(Ord(Chr(tmp)))); // prints 149

……来回,这似乎有效.

但是在以下函数中使用相同的转换将不会这样做：

function ByteArrayToStr( a : array of Byte ) : String;
var
  S:String;
  I:integer;
begin
     S:='';
     For I:=0 to Length(a) -1 do
     begin
          tmp := Chr(a[I]) ;   // for a[I] equals 149 this will get me "?" instead of "•"
          S:=S+tmp;

     end;

     Result:=S;
end;

为清楚起见：ByteArrayToStr没有按预期将Ord(149)转换为“•”,因此StringToByteArray以后不会工作

解决方法

您需要将参数转换为AnsiString类型.通过这样做,您可以编写如下函数：

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
OutputDir=userdocs:Inno Setup Examples Output

[Code]
procedure StringToByteArray(const S: AnsiString; out ByteArray: array of Byte);
var
  I: Integer;
begin
  SetArrayLength(ByteArray,Length(S));
  for I := 1 to Length(S) do
    ByteArray[I - 1] := Ord(S[I]);
end;

function ByteArrayToString(const ByteArray: array of Byte): AnsiString;
var
  I: Integer;
begin
  SetLength(Result,GetArrayLength(ByteArray));
  for I := 1 to GetArrayLength(ByteArray) do
    Result[I] := Chr(ByteArray[I - 1]);
end;

procedure InitializeWizard;
var
  S: AnsiString;
  ByteArray: array of Byte;
begin
  S := '•';
  StringToByteArray(S,ByteArray);
  MsgBox(IntToStr(ByteArray[0]),mbInformation,MB_OK);
  S := '';
  S := ByteArrayToString(ByteArray);
  MsgBox(S,MB_OK);
end;