Delphi - BinToHex und HexToBin : Umkehrung

Ich habe ein array of byte, das möchte ich umwandeln in einen hex-string und dann wieder in ein array von byte.

Ich bin mit der folgenden Umwandlung in einen hex-string:

function bintoHex(const bin: array of byte): String;
const HexSymbols = '0123456789ABCDEF';
var i: integer;
begin
  SetLength(Result, 2*Length(bin));
  for i :=  0 to Length(bin)-1 do begin
    Result[1 + 2*i + 0] := HexSymbols[1 + bin[i] shr 4];
    Result[1 + 2*i + 1] := HexSymbols[1 + bin[i] and $0F];
  end;
end;

Ich bin nicht sicher, wie es zu konvertieren zurück in ein byte-array richtig. Ich bin Dreharbeiten für so etwas wie die folgenden:

Type TDCArray = Array of Byte;

function xHexToBin(const HexStr: String): TDCArray;
const HexSymbols = '0123456789ABCDEF';
var i: integer;
begin
  SetLength(Result, ???); //Need to now get half of the length, unsure how to go about that
  for i :=  0 to Length(HexStr)-1 do begin
    //Here convert back into an array somehow...
    //Result[i] := ???
  end;
end;

Wie würde ich gehen über das tun dies?

Bin ich auch mit Delphi XE2.

RTL hat eine HexToBin und BinToHex.

InformationsquelleAutor Josh Line | 2012-10-19

  1. 3

    Wenn du es selbst machen will:

    function xHexToBin(const HexStr: String): TBytes;
const HexSymbols = '0123456789ABCDEF';
var i, J: integer;
    B: Byte;
begin
  SetLength(Result, (Length(HexStr) + 1) shr 1);
  B:= 0;
  i :=  0;
  while I < Length(HexStr) do begin
    J:= 0;
    while J < Length(HexSymbols) do begin
      if HexStr[I + 1] = HexSymbols[J + 1] then Break;
      Inc(J);
    end;
    if J = Length(HexSymbols) then ; // error
    if Odd(I) then
      Result[I shr 1]:= B shl 4 + J
    else
      B:= J;
    Inc(I);
  end;
  if Odd(I) then Result[I shr 1]:= B;
end;
    Funktioniert perfekt. Ich brauche das Ergebnis in Byte-Array anstatt TBytes also habe ich einfach genutzt werden: "For i := 0 to length(arrTBytes) tun arrofByte[i] := arrTBytes[i];" Danke.
    ist built-in RTL-Byte-array-Typ, die Sie verwenden können, Ihre TDCArray statt.

    InformationsquelleAutor kludg

  2. 12

    Warum nicht einfach die BinToHex und HexToBin RTL-Funktionen?

    {$APPTYPE CONSOLE}

uses
  System.Classes,
  System.SysUtils;

var
  LArray : array[1..6] of Byte = (10, 11, 12, 13, 14, 15);
  LText: string;
  I : integer;
begin
  try
    SetLength(LText, Length(LArray)*2);
    BinToHex(@LArray, PChar(LText), SizeOf(LArray));
    //show the hex string
    Writeln(LText);

    //fill the array with 0 
    FillChar(LArray, SizeOf(LArray), #0);

    //get the values from the hex string
    HexToBin(PChar(LText), @LArray, Length(LArray));

    //show the array values
    for i := 1 to Length(LArray) do
      Write(LArray[i]);
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

    InformationsquelleAutor RRUZ

  3. 4

    2 hex-chars darstellen 1 byte

    Den code, den ich früher schrieb, war pseudocode, ich wollte Sie das ideea. Aber wenn Sie einige code zum einfügen hier ist die tatsächliche Umsetzung:

    program project1;

uses SysUtils,classes;


type
  TByteArray = array of byte;
function StrToArray(const Hexstr: String): TByteArray ;
var
i: Integer;
begin
SetLength(Result, Length(Hexstr) div 2);
for i:=0 to (Length(Hexstr) div 2 - 1) do
        Result[i]:= StrToInt('$' + Copy(Hexstr, (i * 2) + 1, 2));
end;


var
   arr : TByteArray;
   i : Integer;
begin
  arr := StrToArray('0A0B0C0D');
  for i:=0 to High(arr) do
          WriteLn(arr[i]);
  Readln;
end.

    Btw Codierung ist nicht zu schneiden und einfügen 😉

    Ich erhalte die Meldung "Inkompatible Typen: 'Byte' und 'string'" auf diese Zeile: Result[i]:= '$' + Copy(Hexstr, (i * 2) + 1, 2);
    sorry habe nicht einen compiler versuchen nun
    Ich kann die Funktion geben, um ein byte-array...und beim ausführen der Funktion, die es einfach crashed die Anwendung. :/
    Komisch ist, weiß ich jetzt. Habe ich etwas gelernt. Ich bin noch in der Schule lernen computer science. Ich habe gerade erst begonnen. Ganz einfach, weil ich nicht wusste, die Antwort ist traurig? Dann ist jeder post hier ist "traurig"? Ich habe GELERNT aus den Antworten, und jetzt kennen und verstehen die Antwort, Es ist traurig, dass Sie haben, unhöflich zu sein ohne Grund. Ich wollte versuchen, danke.

    InformationsquelleAutor opc0de

Schreibe einen Kommentar