IdUDPServer: Probleme mit Sonderzeichen bei read

[Helmi]

Hallo Zusammen,

ich nutze von den Indy-Komponenten den IdUDPServer.

Soweit funktioniert alles.
Nur hab ich das Problem, dass Sonderzeichen, wie z. B. das Eurozeichen (€) nicht richtig angezeigt werden.
Als Fehlerquelle hab ich meine Read-Procedure ausgemacht.

Delphi-Quellcode:

procedure TMainForm.IdUDPServerUDPRead(AThread: TIdUDPListenerThread;
  AData: TArray<System.Byte>; ABinding: TIdSocketHandle);
var
  S: String;

begin
  SetString(S, PAnsiChar(@AData[0]), length(Adata));

  InfoForm.InfoText := trim(S);
end;

Da ich nur ein Byte pro Zeichen lese, kommt bei Sonderzeichen Murks raus.
Gibt es eine andere Möglichkeit?

Ich konnte in der Zwischenzeit rausfinden, dass richtig gesendet wird.
Konnte es mit PacketSender (packetsender.com) gegentesten.

[Michael II]

https://stackoverflow.com/questions/...9%20character.

[himitsu]

S := TEncoding.irgendwas.GetString(AData);

[Helmi]

Zitat von himitsu:

S := TEncoding.irgendwas.GetString(AData);

Danke - genau das war es (genauer: S := TEncoding.UTF8.GetString(AData); )

[himitsu]

Zitat von Michael II:

https://stackoverflow.com/questions/...9%20character.

Ach ja, man mag es nicht glauben ... ich war auch vor Schreck aus allen Wolken gefallen ... aber es gibt wirklich ein SetString, welches einen PAnsiChar an einen String/UnicodeString zuweist.


Da es hier nun UTF-8 ist (was man im ersten Post ja nicht erahnen konnte),
ist hier das Problem, dass dort der PAnsiChar als ANSI angesehn wird, anstatt UTF-8.

Mit dem passenden String-Typen funktioniert aber auch das.

Delphi-Quellcode:

var
  S: UTF8String;
begin
  SetString(S, PAnsiChar(@AData[0]), length(Adata));

UTF-8 ist ja eine bestimmte ANSI-Codepage.
Somit schreibt SetString das als ANSI ByteCode da rein
und beim Zuweisen an einen String/UnicodeString (hier ans Trim) wird dieser AnsiString-Typ dann entsprechend seiner CodePage (CP_UTF8) "richtig" dekodiert.

Oder AnsiString-Variable mit SetCodePage, nach dem SetString.