Datenaustausch TIdUDPClient/TIdUDPServer

[Redeemer]

Du sendest einen WideString (UTF-16LE, wie man sieht), sagst aber dem Empfänger, er erwarte einen AnsiString. Das klappt natürlich nicht, denn da solltest du dich auf ein und dasselbe einigen.

WideString ist besser, da auf jedem Windows seit 2000 immer als UTF-16LE definiert (davor war es UCS-2LE), AnsiString ist abhängig von der Region und fliegt dir auf Rechnern mit MBCS komplett um die Ohren.

Delphi-Quellcode:

function BytesToWideString(const AData: TBytes): WideString;
var
  i: Integer;
begin
  Result := '';
  for i := 0 to Length(AData) div 2 - 1 do
  Result := Result + WideChar(Word(AData[i shl 1 + 1]) shl 8 + AData[i shl 1]);
end;

Sollte eine Umstellung des Empfängers nicht möglich sein, stelle den Sender auf AnsiString um. Das geht so:
b:=TIdBytes(AnsiString(msg.Msg)); Implizite Typumwandlungen von Strings sind in Delphi nicht implizit!
Wie gesagt, auf Rechnern mit MBCS fliegt dir das Programm um die Ohren, aber egal.