String aus Hex konvertieren.

[Kostas]

Zitat von Popov:

Ich verstehe nicht gar was du meinst. Suchst du evtl. das?

Delphi-Quellcode:

String2 := IntToHex($00, 2)+IntToHex($00, 2)+IntToHex($00, 2)+IntToHex($05, 2)+IntToHex($55, 2)+IntToHex($50, 2);
//

Sorry für die schlechte Beschreibung.
Der String1 ändert sich natürlich. Ich müsste also eine Methode haben die aus dem String1
als Beispiel hier '000000055550' den String generiert #0#0#0#5'UP'
Immer zwei Zeichen aus dem String ergeben eine Byte. Die zwei Zeichen sind jeweils hex.
Die letzten zwei Zeichen sind somit $50 also ein "P" als Char.

[Sir Rufo]

Zitat von Kostas:

Immer zwei Zeichen aus dem String ergeben eine Byte. Die zwei Zeichen sind jeweils hex.
Die letzten zwei Zeichen sind somit $50 also ein "P" als Char.

Dann mach das doch so wie du das hier beschrieben hast. Eine Schleife und ca. drei Zeilen Code

[Popov]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

  function GetChr(s: String; Index: Integer): Char;
  begin
    Result := Chr(StrToIntDef('$' + Copy(s, 1 + (Index - 1) * 2, 2), 0));
  end;

var
  s, String2: string;
  i: Integer;
begin
  s := '000000055550'; //anderes Beispiel (ABCDEF): '414243444546'; 
  String2 := '';
  for i := 1 to 6 do
    String2 := String2 + GetChr(s, i);

  ShowMessage(String2);
end;

Da vorne aber Nullen sind und #0 ein Steuerzeichen oder das Ende des Strings bedeutet, wird deine Zeichenfolge nichts anzeigen.

[Kostas]

Verflixt noch eins das habe ich gemeint.

Delphi-Quellcode:

function HexToInt(value:string):Char;
        begin
          result := Chr(StrToInt('$' + value));
        end;

[Kostas]

Zitat von Popov:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

  function GetChr(s: String; Index: Integer): Char;
  begin
    Result := Chr(StrToIntDef('$' + Copy(s, 1 + (Index - 1) * 2, 2), 0));
  end;

var
  s, String2: string;
  i: Integer;
begin
  s := '000000055550'; //anderes Beispiel (ABCDEF): '414243444546'; 
  String2 := '';
  for i := 1 to 6 do
    String2 := String2 + GetChr(s, i);

  ShowMessage(String2);
end;

Da vorne aber Nullen sind und #0 ein Steuerzeichen oder das Ende des Strings bedeutet, wird deine Zeichenfolge nichts anzeigen.

Danke danke, meine Blockade war, wie mache ich aus dem String eine Hex Zahl und habe
übersehen dass ich einfach ein $ davorsetzen muss. Der Rest ist klar.

Dankeschön

[p80286]

Zitat von Kostas:

Danke danke, meine Blockade war, wie mache ich aus dem String eine Hex Zahl und habe
übersehen dass ich einfach ein $ davorsetzen muss. Der Rest ist klar.

Bist Du Dir da sicher? Sir Rufo hat Deine Frage eigentlich richtig beantwortet.

Gruß
K-H

[Kostas]

Zitat von p80286:

Zitat von Kostas:

Danke danke, meine Blockade war, wie mache ich aus dem String eine Hex Zahl und habe
übersehen dass ich einfach ein $ davorsetzen muss. Der Rest ist klar.

Bist Du Dir da sicher? Sir Rufo hat Deine Frage eigentlich richtig beantwortet.

Gruß
K-H

Eigentlich schon. Zumindest funktioniert es einwandfrei.
Wie gesagt, ich habe nach einer Delphi Möglichkeit wie StrToHex gesucht die es nicht gibt. Warum auch, mir ist schon Klar dass ein HexStr nur ein '$' vorangestellt wird. Aber irgend wie habe ich das ausgeblendet.

Delphi-Quellcode:

function HexToChar(value:string):Char;
begin
  result := Chr(StrToInt('$' + value));
end;

Dankeschön und sorry.

[himitsu]

HexToBin BinToHex

Achtung, bei mehr als einem Byte ist bei HexToInt und IntToHex die Reihenfolge andersrum.

[Dalai]

@Popov: String von hinten nach vorne durchgehen, würde das Problem mit den Nullbytes lösen, sofern man beim ersten Nullbyte die Schleife verlässt (und nebenbei die unwichtigen führenden Nullen ignorieren).

@Kostas: Wieso heißt die Funktion HexToInt, wenn ein Char rauskommt?

MfG Dalai

[Kostas]

Zitat von Dalai:

...
@Kostas: Wieso heißt die Funktion HexToInt, wenn ein Char rauskommt?

MfG Dalai

Weil ich mich beeilen wollte die Antwort zu posten um Euch nicht noch mehr zu strapazieren
mit meinem Blödsinn.