[Resolvido] Indy TCP com Caracteres Especiais

[rcdmartins 0]

Olá Pessoal.

 

Possuo uma aplicação que utiliza Indy10 e faz troca de mensagens através dos objetos IDTCPServer e IDTCPClient.

 

Por motivos alheios a minha vontade tive que reescrever essa aplicação do Delphi7 para o Delphi XE, porém após isto, está acontedendo o seguinte:

 

Quando eu faço a troca de mensagens através do comando

 

IDTCPClient.Socket.WriteLN(Minha_Mensagem), todos os caracteres acentuados são trocados por ????.

 

Exemplo: Se eu enviar "AÁÃEÉ1234", estou recebendo "A??E?1234", e como utilizo a mensagem criptografada, tenho que passar exatamente como ela é originalmente.

 

Atenciosamente.

 

Reinaldo

[rcdmartins 0]

Consegui resolver.

 

No Indy10 é necessário colocar a identificação para codificação.

 

Mudei de:

idTCPClient.Socket.WriteLN(AÁÃEÉ1234);

 

Para:

iDTCPClient1.Socket.WriteLn(AÁÃEÉ1234, TEncoding.GetEncoding(1252));

 

 

Agradeço a todos

 

Reinaldo