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.

[himitsu]

Split auf die '-' und dann mit StrToInt('$' + 'FF')
oder das Minus weglassen und rückzu alle 2 Chars splitten

oder, wenn man es dann schon "zusammen" hat,
einfach gemeinsam mit BinToHex und HexToBin in/von einen String
oder "modernere" Streaming-Klassen ala TNetEncoding.Base64.EncodeBytesToString
oder ...




Und an gewisse neuere Features kann man sich auch gewöhnen.
MessageToSend := [$81, $01, $04, $3F, $02, $01, $FF];

PS: Ich würde dir mal ein ReportMemoryLeaksOnShutdown := True; anraten, aber dann nicht erschrecken, falls das "grob" nicht zu viel weg ließ.

[fisipjm]

Hi Himitsu,

Ich werde deinen Vorschlag Mal versuchen umzusetzen.
Der Code war nur Quick & Realy Dirty reingehauen um zu sehen ob es überhaupt funktionieren würde. In der Endfassung wird das alles hübsch mit try finallys instanziert oder gleich in ein Interface gepackt. Aber danke für den Hinweis

[haentschman]

Moin...

Zitat:

In der Endfassung wird das alles hübsch mit try finallys instanziert oder gleich in ein Interface gepackt

...und hoffentlich ohne das WITH.

[fisipjm]

Zitat von haentschman:

Moin...

Zitat:

In der Endfassung wird das alles hübsch mit try finallys instanziert oder gleich in ein Interface gepackt

...und hoffentlich ohne das WITH.

Na klar, wer nutzt schon WITH