本文整理自网络，侵删。
这种问题的本质其实就是字符编码问题，只要统一下客户端和服务器的字符编码就行。
网上的解决办法一种就是用base64编码后发送，然后另一端解码。
另一种就是在readln和writeln时统一编码格式。如这里回答的：
//客户端写,读类似 IdTCPClient1.IOHandler.WriteLn(“XXXXX”,TEncoding.UTF8); //服务器读,写类似 str := AContext.Connection.IOHandler.ReadLn(TEncoding.UTF8); 这里提供另外一种方式：
其实只要一开始设置下IOHanger的DefStringEncoding属性就行了。
uses IdGlobal; //注意要引用这个 //客户端初始化时设置DefStringEncoding IdTCPClient1.IOHandler.DefStringEncoding := IndyTextEncoding_UTF8(); //服务器在Connect事件中加上 procedure TmyServerForm.IdTCPServer1Connect(AContext: TIdContext); begin AContext.Connection.IOHandler.DefStringEncoding := IndyTextEncoding_UTF8(); end;
这里的TEncoding和IndyTextEncoding不用太在意，试试就知道用哪个了。包括DefStringEncoding属性在哪可能也会由于版本和VCL还是FMX而不同。
反正自己试试吧哈哈。 相关阅读 >>
Delphi 判断目录是否存在,不存在则创建目录并打开,存在则直接打开
更多相关阅读请进入《Delphi》频道 >>
