String aus Hex konvertieren.

[Kostas]

Hallo Zusammen,

sorry ich stehe momentan auf dem Schlauch.

Ich habe eine String(12) welcher aus immer zwei Zeichen jeweils eine Hex Zahl repräsentiert.
String1 := '00 00 00 05 55 50'; (die Leerzeichen sind eigentlich nicht vorhanden)
String2 := chr($00)+chr($00)+chr($00)+chr($05)+chr($55)+chr($ 50);

String2 beinhaltet als Ergebnis (#0#0#0#5'UP') den richtigen String.
Wie kann ich am besten umsetzen?

Gruß Kostas

[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);
//

[Sir Rufo]

Immer 2 Zeichen nehmen, daraus den Byte-Wert bestimmen und an ein Byte-Array oder Stream anhängen.
Dann kannst du daraus holen was du willst

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

-- hat sich erledigt --
Gruß
K-H

[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