Utf16String mit AnsiCodes nach Utf16String mit UTF16Codes konvertieren

[HeZa]

Hallo,

von einer Komponente bekomme ich in einem Event einen String übergeben (in meinem Delphi ein UFT16 UnicodeString), dessen Bytes aber wie in einem AnsiString codiert sind?

Beipiel:

procedure TForm1.ReaderOnGetData(Sender: TObject; Value: string);

Ich erwarte den Inhalt '1234'. Value sieh aber in Hex so aus 31323334 und hat die Länge 2, was irgendwelchen chinesischen Zeichen entspricht.
Was ich brauche ist ein String mit der Bytefolge 3100320033003400 und der Länge 4, die dann tatsächlich '1234' entsprechen würde.

Klar kann man sich da was selber bauen, aber gibt es da nichts "offizieles" aus Delphi?

Ciao HeZa

[Bernhard Geyer]

Wirklich ANSI?
Oder Evtl. UTF8 und danach Hex-Codiert?

[himitsu]

Ich würde versuchen in der Komponente den Fehler beheben zu lassen (oder selbst beheben).

Kommt die Funktion aus einer DLL?
Was sagt denn

Delphi-Quellcode:

ShowMessage(StringElementSize(Value).ToString + ' ' + StringCodePage(Value).ToString);

?
1 1252 = eine ANSI-Codepage, z.B. für Deutsch
2 1200 = Codepage für UTF-16BE

Ist das ein alter Quellcode (vor D2009) und "blos" die Signatur des Events ist falsch? (String statt AnsiString)
Aber eigentlich sollte der FormDesigner diesen Fehler bemerken, wenn man die Unit speichert.

Du kannst mit TEncoding.ANSI.GetString die enthaltenen Bytes in einen String kopieren,
oder via SetString.

Delphi-Quellcode:

var
  A: AnsiString;
  S: string;
begin
  A := '123';
  Pointer(S) := Pointer(A);  // nicht nachmachen ... ich weiß was ich tu :D
  ShowMessage(StringElementSize(S).ToString + ' ' + StringCodePage(S).ToString);

  SetString(S, PAnsiChar(@S[1]), {Length(S) * 2}4);
  S := TrimRight(S);  //if (S <> '') and (S[High(S)] = #0) then Delete(S, High(S), 1);
end;

Trim, denn was passiert, wenn es eine ungerade Zeichenanzahl ist?

Nicht wundern, der Debugger zeigt es hier "richtig" an, denn er beachtet die StringCodePage, und auch Length ließt hier die "richtige" Länge aus. :stupid:

Und ja, High statt Length, denn bei Strings zählt es bei 1 los, also ist das Selbe,
außer bei

Delphi-Quellcode:

{$ZEROBASEDSTRINGS ON}

, z.B. im Android, wo es bei 0 beginnt zu zählen. :zwinker:

[HeZa]

Zitat:

Zitat von Bernhard Geyer (Beitrag 1472475)

Wirklich ANSI?
Oder Evtl. UTF8 und danach Hex-Codiert?

Es kommen nur Zahlen und der Bindestrich vor, wenn ich da nicht falsch liege, sind diese Codes in ANSI und UTF8 gleich.

[HeZa]

Zitat:

Zitat von himitsu (Beitrag 1472477)

Du kannst mit TEncoding.ANSI.GetString die enthaltenen Bytes in einen String kopieren,
oder via SetString.

Probiere ich nachher mal beides aus, jetzt hab ich einen Termin. :thumb:

Ciao HeZa

[HeZa]

Hallo,

mit den vorhergehenden Tipps bin ich zur folgenden Lösung gekommen:

Delphi-Quellcode:

procedure Test;
var
  inputString: string;
  outputString: string;
  utf16StringWithAnsiCodes: string;
  bytes: TBytes;
begin
  // Test-String bauen
  inputString := '123-456';
  bytes := TEncoding.ANSI.GetBytes(inputString +#0);
  // +#0 ist notwendig, sonst schneidet er bei ungerader
  // Länge ein Zeichen bei der Rückkonvertierung ab
  utf16StringWithAnsiCodes := TEncoding.Unicode.GetString(bytes);
  // das ist nun der String, den mir eine Komponente zum Lesen von Barcodes
  // via COM-Port in einem OnBarcodeReady-Event zur Verfügung stellt

  // Rückkonvertierung, dass was ich brauche
  bytes := TEncoding.Unicode.GetBytes(utf16StringWithAnsiCodes);
  outputString := TEncoding.ANSI.GetString(bytes);
  outputString := PChar(outputString); // um das zuvor angehängte #0 Byte wieder zu entfernen
end;

Ich verwende es als Workarround. Im Endeffekt sollte die BarcodeScanner-Komponente die Daten in der Variable vom Typ string mit dem korrekten Encoding (Unicode) übergeben.

Ciao HeZa