用IdTCPServer和TIdTCPClient时出现中文乱码?
在网上看到一个IdTCPServer和TIdTCPClient的例子,用XE2做了下,发现出现中文乱码,而别人用以前的版本似乎没有这个问题,不知何故?
IdTCPServer:
AContext->Connection->IOHandler->WriteLn("100: 欢迎连接到简单TCP服务器!");
AContext->Connection->IOHandler->WriteLn("200: 数据接收成功!");
AContext->Connection->IOHandler->WriteLn("500: 无法识别的命令!");
TIdTCPClient:
lstRecord->Items->Add(IdTCPClient1->IOHandler->ReadLn());