String Konvertierung

[TiGü]

Zitat von HolgerX:

Hier ist Buffer ein PChar und in diesen wird ein Char 'geschrieben', somit Out....

das 'S := '0056006F007200730063006800610075';' würde unter D6 nicht funktionieren, da hier nur Kleinbuchstaben zulässig sind, jedoch im Musterstring diese Großbuchstaben sind..

Wenn dies in einer späteren Delphiversion geändert worden ist, OK.. Ich hab hier im Moment nur in D6.

Unter D6 ist auch TBytes und PChar nicht kompatible..

Wo ein Wille, da ist auch ein Weg.
Das funktioniert auch unter D6. Beachte den aufrufenden Code in der procedure Main.
Entspricht den angepassten Beispiel von Himi:

Delphi-Quellcode:

program Project3;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  SysUtils;

// Von HolgerXs Delphi 6
function HexToBin(Text, Buffer: PChar; BufSize: Integer): Integer; assembler;
const
  Convert: array['0'..'f'] of SmallInt =
    ( 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,-1,-1,-1,-1,-1,-1,
     -1,10,11,12,13,14,15,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,10,11,12,13,14,15);
var
  I: Integer;
begin
  I := BufSize;
  while I > 0 do
  begin
    if not (Text[0] in ['0'..'f']) or not (Text[1] in ['0'..'f']) then Break;
    Buffer[0] := Char((Convert[Text[0]] shl 4) + Convert[Text[1]]);
    Inc(Buffer);
    Inc(Text, 2);
    Dec(I);
  end;
  Result := BufSize - I;
end;

procedure Main;
var
  S: string;
  B: string;
begin
  S := '0056006F007200730063006800610075';
  S := LowerCase(S);
  SetLength(B, Length(S) div 2);
  HexToBin(PChar(S), @B[1], Length(B));
  S := StringReplace(B, #0, '', [rfReplaceAll, rfIgnoreCase]);
  Writeln(S);
end;

begin
  try
    Main;
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

[HolgerX]

Hmm..

Hab auch noch ein bischen probiert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: AnsiString;
  B: WideString;
  i : integer;
begin
  // LowerCase, da HexToBin nur mit Kleinbuchstaben arbeitet
  S := LowerCase(Edit1.Text);

  // WideString
  SetLength(B, (Length(S) div 4));  // 4 HexChars = 1 WideChar

  // Cast nach PChar, da D6 hier PChar erwartet!
  HexToBin(PChar(S), PChar(B), Length(S) div 2);

  // EndianSwap
  //  for i := High(B) downto Low(B) do // High/Low Geht unter D6 nicht mit WideString!!
  for i := Length(B) downto 1 do
    Word(B[i]) := Swap(Word(B[i]));

  Edit2.Text := B;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  S: AnsiString;
  B: Array of WideChar;
  i : integer;
begin
  // LowerCase, da HexToBin nur mit Kleinbuchstaben arbeitet
  S := LowerCase(Edit1.Text);

  // Bei Array ein Zeichen mehr wg PWideChar
  SetLength(B, (Length(S) div 4) + 1);  // 4 HexChars = 1 WideChar

  // Cast nach PChar, da D6 hier PChar erwartet!
  HexToBin(PChar(S), PChar(B), Length(S) div 2);

  // EndianSwap
  for i := High(B) downto Low(B) do
    Word(B[i]) := Swap(Word(B[i]));

  Edit2.Text := PWideChar(B);
end;

Eine Version mit WideString und eine mit einem Array WideChar.

Wie ist HexToBin eigendlich unter Unicode-Versionen von Delphi aufgebaut?

[himitsu]

Im Prinzip noch genauso.
Es gibt nur mehrere überladene Varianten (z.B. Eine mit TBytes als Input)
und das Convert-Array, sowie ein ValidCheck-SET ['0'..'9', 'a'..'f', 'A'..'F'] liegen globaler, anstatt in jeder der Funktionen.

[HolgerX]

Danke für die Info..

Gut, das schon mal der Blödsinn mit der zwangsweisen Kleinschreibung raus ist.
Bei D6 gibt es nur die eine Variante, da war es wohl nicht nötig die Arrays auszulagern..