Daten-String in Array of Byte einlesen

[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.

[DonPedroFo]

@DeddyH: ja so sollte es am ende aussehen

@Günther: Tfile.ReadAllBytes(...) schreib ich dann in den Klammern den Pfad, in dem das File liegt?

@Schockohase: Danke für den Code, ich probier ihn mal aus.

[Der schöne Günther]

Schaust du Doku

[peterbelow]

Zitat von DonPedroFo:

Hallo,
ich hoffe ich drück mich richtig aus und verwechsel keine Fachbegriffe.

Ich habe die Aufgabe, aus einer Text Datei mehrere Daten-Strings in ein Array of Byte "einzulesen"

ein "Datenstring" besteht aus 64 Byte und sieht z.b. folgender maßen aus: 12450ABF43ED234DFAB39104365FFF221943AABEE04365FFF2 21943AABEEBEE04365FFF221

ich hab schon folgendes probiert aber komme irgendwie auf keinen grünen Zweig:

Du (und bisher alle Antwortenden) machst das viel zu kompliziert. Delphi hat eine Funktion HexToBin (in system.classes), die exakt das macht, was Du haben willst.

[Schokohase]

Zitat von peterbelow:

Du (und bisher alle Antwortenden) machst das viel zu kompliziert. Delphi hat eine Funktion HexToBin (in system.classes), die exakt das macht, was Du haben willst.

Ja, aber: Not invented here!

(Natürlich hast du Recht)