Delphi XE8 中TIdTCPClient的WriteLn编码变化！

Posted 2020-12-31 thenext

 1 //XE2中正常的代码：
 2 
 3        
 4 
 5  IdTCPClient1.IOHandler.WriteLn(sendData,TEncoding.ANSI);
 6 //XE8中不行了，解决方法：
 7 //1，引入“IdGlobal ”单元。
 8 
 9 //2，调整代码：通过IndyTextEncoding() 方法，把TEncoding转换//为IIdTextEncoding。
10 
11   
12 
13   IdTCPClient1.IOHandler.WriteLn(sendData,IndyTextEncoding(TEncoding.ANSI));