Charset UTF-8 no TACBrTCPServer Telnet

[Renan S]

Pessoal, estou com problema com o TACBrTCPServer, sei que talvez ninguém ainda use ele, mas estou com problemas que talvez tenha solução....

Quando realizo a devolução da String, ela se perde com os caracteres especiais como Acentos, já tentei converter para a UTF e  para Ansi mas não deu certo, será que alguém achou uma solução para isso?

 

Via telnet 

  Enviar := AnsiToUtf8(Enviar)+#13+#10;

  Enviar := (Enviar)+#13+#10;

[Juliomar Marchetti]

Boa tarde

confere o código do projeto ACBrMonitorPLUS que está no svn lá tem detalhada o código que é usado para isso.

[Renan S]

Então, eu uso o Delphi XE8, o projeto o Monitor é em Lazarus, não?

 

13 minutos atrás, Juliomar Marchetti disse:

Boa tarde

confere o código do projeto ACBrMonitorPLUS que está no svn lá tem detalhada o código que é usado para isso.

Então, eu uso o Delphi XE8, o projeto o Monitor é em Lazarus, não?

[Juliomar Marchetti]

Sim mas é pascal igual, abre no bloco de notas o código.

[Renan S]

23 minutos atrás, Juliomar Marchetti disse:

Sim mas é pascal igual, abre no bloco de notas o código.

Então ele usa 

TcpServer.Terminador := '#13,#10,#46,#13,#10';

E não entendi muito bem, mas ele chama a procedure resposta, que corregi o erro, mas não entendi como isso pode ajudar ?!

Citar

Resposta := Utf8ToAnsi(Resposta);

Resposta := StringReplace(Resposta, chr(3), '', [rfReplaceAll]);
 

 

Ainda ficou com os acentos "zoados", mas estão menos "zoados" que antes

Enviar := Utf8ToAnsi(Enviar);

Enviar := StringReplace(Enviar, chr(3), '', [rfReplaceAll]);

Enviar := (Enviar)+#13+#10;

[Renan S]

Pelo Puty 

 

 

Obs.: As outras imagens são pelo CMD...

Editado 20 Janeiro, 2017 por Renan Francisco da Silva