解决发送字符时，中文乱码现象

这种问题的本质其实就是字符编码问题，只要统一下客户端和服务器的字符编码就行。

网上的解决办法一种就是用base64编码后发送，然后另一端解码。

另一种就是在readln和writeln时统一编码格式。如这里回答的：

[delphi]  view plain  copy

1. //客户端写,读类似  
2. IdTCPClient1.IOHandler.WriteLn(“XXXXX”,TEncoding.UTF8);  
3. //服务器读,写类似  
4. str := AContext.Connection.IOHandler.ReadLn(TEncoding.UTF8);  

这里提供另外一种方式：

其实只要一开始设置下IOHanger的DefStringEncoding属性就行了。

[delphi]  view plain  copy

1. uses  
2.      IdGlobal;     //注意要引用这个  
3. //客户端初始化时设置DefStringEncoding  
4. IdTCPClient1.IOHandler.DefStringEncoding := IndyTextEncoding_UTF8();  
5. //服务器在Connect事件中加上  
6. procedure TmyServerForm.IdTCPServer1Connect(AContext: TIdContext);  
7. begin  
8.   AContext.Connection.IOHandler.DefStringEncoding := IndyTextEncoding_UTF8();  
9. end;  

这里的TEncoding和IndyTextEncoding不用太在意，试试就知道用哪个了。

包括DefStringEncoding属性在哪可能也会由于版本和VCL还是FMX而不同。

反正自己试试吧哈哈。