Ich konnte es jetzt nochmal testen, die Zeichen werden so in Klarschrift ausgegeben:
Delphi-Quellcode:
procedure TForm1.IdTelnetDataAvailable(Sender: TIdTelnet; const Buffer: TArray<System.Byte>);
var
s : String;
begin
SetString(s, PAnsiChar(@Buffer[0]), length(Buffer));
// ...
end;
@Sir Rufo: Das hatte ich versucht, da kam bei mir nur Zeichen Kauderwelsch.
s := TEncoding.Unicode.GetString(Buffer);
gibt die selben Zeichen aus wie:
SetString(s, PWideChar(@Buffer[0]), length(Buffer) div 2);
DANKE !