delphi 解决IdTCPClient和IdTCPServer通信中文乱码问题

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

网上的解决办法一种就是用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而不同。

反正自己试试吧哈哈。

推荐分享