Indy 中文乱码

sehe

操作系统 中文 Win7 64位

服务端 DelphiXE6  indy 10.6.0.5122
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  S: String;
begin
  if AContext.Connection.Connected then
  begin
      S := AContext.Connection.Socket.ReadLn(enUTF8);
      Memo1.Lines.Add(S);   
      S := 'Accept: 我收到了';
      AContext.Connection.Socket.WriteLn(S, enUTF8);
  end;
end;

客户端  Lazarus 1.4.4  indy 10.6.0  indy-10.2.0.3
var
  s: String;
begin
  s := Edit1.Text;
  memo1.Append('Send: ' + S);
  idClient.Socket.WriteLn(s, enUTF8);
  sleep(500);
  S := idClient.Socket.ReadLn(enUTF8);
  memo1.lines.add('Rec: ' + S);
end;                           

服务端 客户端接收到的中文都是乱码，不知为何？有没有解决方法？

cvlsam

Lazarus使用的是UTF8编码，所以字符串要通过AnsiToUTF8以及UTF8ToAnsi进行转换。

Good Luck～

sehe

客户端代码修改， 服务端发送给客户端的中文正常，但客户端发给服务端的中文还是乱码
var
  s: String;
begin
  s := Edit1.Text;
  memo1.Append('Send: ' + S);
  idClient.Socket.WriteLn(UTF8Decode(s), enUTF8);
  sleep(500);
  S := UTF8Encode(idClient.Socket.ReadLn(enUTF8));
  memo1.lines.add('Rec: ' + S);
end;                 

服务端代码加 UTF8Decode  UTF8Encode 也不行，接收客户端的中文都是乱码

sehe

问题解决，还是编码问题。 UTF8Decode  UTF8Encode 反复测试才得到结果。

saromman

我今天也遇到了相同的问题，没办法，真的劝退我了