String Konvertierung

[himitsu]

Ähhhhhhhhh .... Text und StrToInt?

Wie wäre es mit HexToBin oder einer gleichwertigen Stream-Funktion
und dann TEncoding.Unicode.Xyz, bzw. TEncoding.BigEndianUnicode ? (Bytefolge beachten)

Wobei letzter Teil notfalls "einfach" entfallen kann, wenn man es direkt in einen UnicodeString schreibt. (hier muß man aber vermutlich noch die Bytes der Chars umdrehen, vonwegen BigEndian)

[EWeiss]

Zitat von himitsu:

Ähhhhhhhhh .... Text und StrToInt?

Wie wäre es mit HexToStr oder einer gleichwertigen Stream-Funktion
und dann TEncoding.Unicode.Xyz, bzw. TEncoding.BigEndianUnicode ? (Bytefolge beachten)

Wobei letzter Teil notfalls "einfach" entfallen kann, wenn man es direkt in einen UnicodeString schreibt. (hier muß man aber vermutlich noch die Bytes der Chars umdrehen, vonwegen BigEndian)

Tja und das alles in D6 ? LOL
Denke das gab es da noch nicht.

gruss

[himitsu]

HexToBin gab es bestimmt schon
und den WideString auch.

http://docwiki.embarcadero.com/RADSt...rsion_routines
http://docwiki.embarcadero.com/RADSt...pes#WideString


In einem neueren Delphi würde ich gleich bei Unicode bleiben.
Wenn in einem älteren Delphi (D2007 und davor) eh nur ANSI angezeigt wird, also nicht das Delphi z.B. mit Unicode-Controls aufgerüstet wurde,
dann kann man da auch direkt WideCharToMultiByte / MultiByteToWideChar (für UnicodeBE > UnicodeLE > ANSI oder UnicodeLE > ANSI oder nur UnicodeBE > UnicodeLE) nutzen.

[HolgerX]

Hmm..

Ich sehe in der Verwendung von HexToBin zu StrToInt keinen Vorteil..

HexToBin füllt (zumindestens in D6) einen PChar und dieser ist in D6 Ansi.
Und ich mag das harte Speichergecaste nach dem Prinzip PChar(WideChar) nicht.
Zusätzlich muss ich dafür sorgen, dass der Text auch nur Kleinbuchstaben enthält, was bei dem XML-Auszug nicht der Fall ist.

Mit der Methode WideChar(StrToInt( )) könnte ich auch statt des Edits (unter D6 nur ANSI) ein WideString füllen..

Wie ich ja auch schrieb

Zitat von HolgerX:

Kleiner Test mit D6...

War es nur ein Test, welcher funktionierte..

[himitsu]

Zitat von HolgerX:

Ich sehe in der Verwendung von HexToBin zu StrToInt keinen Vorteil..

HexToBin füllt (zumindestens in D6) einen PChar und dieser ist in D6 Ansi.

HexToBin macht mehrere/alle Bytes auf einmal
und IntToStr nur jeweils ein Char.

Und das ANSI/Unicode ist hier vollkommen egal, denn das PChar ist im Eingang und nicht im Ausgang, also der hexadezimale String (quelle) ist ANSI und das passt genau zu allen Text-Ladefunktionen des jeweiligen Delphi (ANSI und Unicode).
Der Ausgang ist aber Binär und da im Einganz 4 Zeichen = 2 Byte = WideChar ... passt das direkt in einen WideString/UnicodeString.

Falls Big/Little-Endian nicht passt, dann am Ende nochmal schnell SwapByte über jedes Char jagen.

[EWeiss]

Am ende führen viele Wege nach ROM..
Wie man eine Aufgabe löst kann doch egal sein solange sie zum gleichen Ergebnis führt.

just my 2 Cent.

Aber es würde mich schon interessieren wie du das umsetzen würdest..
Quelltext ?

gruss

[himitsu]

Zitat:

Aber es würde mich schon interessieren wie du das umsetzen würdest..

So schwer zwei/drei genannte Befehle in einen Code zu schreiben und die Parameter zu füllen?

Delphi-Quellcode:

var
  S: string;
  B: TBytes;
  U: UnicodeString;  //WideString
  i: Integer;
begin
  S := '0056006F007200730063006800610075';
  SetLength(B, Length(S) div 2);
  HexToBin(PChar(S), B[0], Length(B));
  S := TEncoding.BigEndianUnicode.GetString(B);
  ShowMessage(S);

  S := '0056006F007200730063006800610075';
  SetLength(U, Length(S) div 4);
  HexToBin(PChar(S), U[Low(U)], Length(U) * 2);
  for i := High(U) downto Low(U) do
    Word(U[i]) := Swap(Word(U[i]));
  ShowMessage(U);

Zitat:

Delphi-Quellcode:

  Edit2.Text := '';
  For i := 0 to (length(Edit1.Text) div 4)-1 do begin
    Edit2.Text := Edit2.Text + WideChar(StrToInt('$' + Copy(Edit1.Text,1 + (i*4),4)));

PS: Vom Speichermanagement her sind die vielen Stringoperationen ein Graus, vor allem im alten Delphi-Memory-Manager.
Massenhaft Speicher reservieren und wieder freigeben ... 4 Mal pro Char, zuzüglich nochmal der Behandlungen im EDIT.
Dank FastMM mag sich da seit Delphi 6 so Einiges gebessert haben, aber schön ist es dennoch nicht.

Gut, bei diesem einen String, innerhalb eines Button-OnClick, mag es niemand wirklich bemerken.

[himitsu]

Zitat von EWeiss:

Aber es würde mich schon interessieren wie du das umsetzen würdest..
Quelltext ?

Nja, wenn ich mal schnell Code ohne Delphi zusammentippe, dann kann es passieren, dass er nicht kompiliert und schon beschwert sich jemand.
Und die selben Befehle kann man in tausenden Varianten aufrufen -> jeder hat sein eigenes Codedesign, je nach Compiler/Delphiversion gibt es auch noch kleine Unterschiede und der Eine nutzt lieber diese Methode und ein Anderer was Anderes.

Der Hauptunterschied ist einfach, dass nicht jedes Char einzeln übersetzt und dafür jeweils mehrfach der Speichermanager behelligt wird, sondern dass alle Chars gemeinsam behandelt werden.
Selbst die kleine Schleife bezüglich der Bytedrehung (BigEndian>LittleEndian) könnte man noch durch einen Befehl ersetzen, welcher UnicodeBE nach UnicodeLE umwandelt. (z.B. MultiByteToWideChar mit Codepage 1201 zu 1200 inplace, also direkt die Ausgabe in den Eingabestring)

[HolgerX]

Hmm..

[QUOTE=himitsu;1394623]

Zitat von HolgerX:

Und das ANSI/Unicode ist hier vollkommen egal, denn das PChar ist im Eingang und nicht im Ausgang, also der hexadezimale String (quelle) ist ANSI und das passt genau zu allen Text-Ladefunktionen des jeweiligen Delphi (ANSI und Unicode).

Unter D6 sieht HexToBin so aus :

Delphi-Quellcode:

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

[/DELPHI]

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

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