HB_ANSITOOEM com xDev

[rubens]

Boa tarde..

Tô compartilhando essa experiência porque já vi em tópicos alguns com o mesmo problema...
Resposta do windows com acentos todos embaralhados:

Já havia tentado várias formas e não havia conseguido um resultado satisfatório.. As vezes o retorno fica totalmente ilegível (se é que existe essa palavra).

Aí fazendo uns testes aproveitando que a rotina tava dando erro e sempre que executava voltava a mensagem com erro, consegui o resultado abaixo.. sei que não é o ideal mas tá resolvendo o problema.

No xDevStudio deixar configurado para DOS (OEM) Char Set e não usar assentos no xDev( Esse problema acho que não tem solução).
e usar o HB_ANSITOOEM:

Código: Selecionar todos

cMessage := HB_ANSITOOEM("Nao foi possivel enviar a mensagem: "+cSubject+hb_EOL()+;
            "para o email: " + aTo[i]+"."         +hb_EOL()+;
            "Erro: " +oErroMail:Description)
wapi_MessageBox( wapi_GetActiveWindow(), cMessage,'Alerta', WIN_MB_ICONEXCLAMATION )

é um problema besta e simples mas tava causando alguns aborrecimentos.

Rubens