Daten-String in Array of Byte einlesen

[DonPedroFo]

ich sag mal so,
Im Moment lese ich die Daten in eine Stringliste ein und arbeite damit weiter. Das funktioniert auch ohne großen Probleme.

[DieDolly]

Wenn das ohne Probleme funktionieren würde, hättest du nicht hier um Hilfe gebeten

[DonPedroFo]

Wenn ich die Daten in eine Stringliste schreibe und mit dieser dann weiter arbeite funktioniert es.
Allerdings sind dann die Daten in einem "String".

Wenn ich die Daten in eine Stringliste schreibe und die einzelnen Zeilen in ein Array of Byte packe funktioniert es nicht.

Und deswegen versuche ich auch viel erstmal selbst zu lösen. Aber bis jetzt bin ich auf keinen grünen Zweig gekommen.

Deswegen stell ich die Frage an was es liegen könnte.

Ich hab auch schon die Firma Google gefragt und auch hier im Forum die Suchfunktion benutzt.

Bisher ohne Erfolg.

[DieDolly]

Zitat:

Ich hab auch schon die Firma Google gefragt. Bisher ohne Erfolg.

Das wird auch so bleiben. Bei denen etwas nachzufragen ist sinnlos.

[DeddyH]

Nur dass ich das richtig verstanden habe, aus dem String '12450A' soll ein Array of Byte mit dem Inhalt (18, 69, 10) werden, stimmt das (ich weiß, Deine Strings sind länger, aber ich war zu faul)?

[Redeemer]

Wenn du den Stream von Hex entschlüsseln sollst: StrToInt('xA3') als Ansatz.

Wenn du den Stream unverändert ausgeben möchtest: TStringStream oder TBytesStream. Die haben ein array of Byte als Eigenschaft (Bytes glaube ich).

[Der schöne Günther]

TFile.ReadAllBytes(..) 😶

[Schokohase]

Also wenn du diesen String (mit Hex-Werten) in Bytes umwandeln möchtest, dann geht das so

Delphi-Quellcode:

function DecodeHexStringToBytes(const AHexString: string): TBytes;
var
  byteIdx: Integer;
  Len: Integer;
begin
  Len := AHexString.Length;
  if AHexString.Length mod 2 <> 0 then
    raise EArgumentException.Create('AHexString must contain even number of chars');

  SetLength(Result, AHexString.Length div 2);
  for byteIdx := 0 to AHexString.Length div 2 - 1 do
  begin
    Result[byteIdx] := Byte.Parse('$' + AHexString.Substring(byteIdx * 2, 2));
  end;
end;

Hier werden immer zwei Hexadezimal-Ziffern genommen und davon der Dezimal-Wert berechnet und dieser in dem Byte-Array gespeichert.

BTW Dein Beispiel-String aus dem ersten Post beinhaltet 74 Zeichen und das ergibt dann 37 Bytes.