TIdBytes lesbar in INI speichern und wieder auslesen

[fisipjm]

hi,

irgendwie stehe ich mal wieder so richtig auf dem Schlauch.
Ich mache aktuell eine kleine Anwendung, um eine Kamera dazu zu bewegen, ihre vordefinierten Presets anzufahren.

Mein Code dafür schaut grob so aus

Delphi-Quellcode:

class procedure TPresets.preset1;
var
  MessageToSend: Tidbytes;
begin
  setlength(MessageToSend, 7);
  MessageToSend[0] := $81;
  MessageToSend[1] := $01;
  MessageToSend[2] := $04;
  MessageToSend[3] := $3F;
  MessageToSend[4] := $02;
  MessageToSend[5] := $01;
  MessageToSend[6] := $FF;

  with TIniFile.Create(ParamStr(0).Replace('.exe', '.conf')) do
  begin
    TIdUDPClient.Create(nil).SendBuffer(IP, PORT, MessageToSend);
  end;
end;

Ich versuche jetzt die Bytes in eine INI zu speichern. Das geht auch ganz gut damit:

Delphi-Quellcode:

class function TPresets.ByteArrayToString(byteArray: Tidbytes): string;
var
  i: Integer;
begin
  result := '';
  if byteArray <> nil then
  begin
    result := IntToHex(byteArray[0], 2);
    for i := 1 to High(byteArray) do
      result := result + '-' + IntToHex(byteArray[i], 2);
  end;
end;

Dann bekomme ich sowas wie:

Code:

81-01-04-3F-02-01-FF

Wie bekomme ich das jetzt wieder zurück in das TIdBytes gelesen. Ich hab schon alles Mögliche durch, aber steh glaube ich mega auf dem Schlauch.