JSON SENDO RETORNADO SEM ACENTUAÇÃO [VB6]

 Tópico anterior Próximo tópico Novo tópico

JSON SENDO RETORNADO SEM ACENTUAÇÃO [VB6]

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#480063 - 08/03/2018 10:54:22

DEXIE
ARARAQUARA
Cadast. em:Fevereiro/2010


Olá,
Ao obter um JSON pelo VB6 ele está sendo retornado sem acentuação, alguém saberia me dizer por que?
Segue codificação:

          
        Set obj = CreateObject("MSXML2.ServerXMLHTTP")

        URL = "http://api.postmon.com.br/v1/cep/" & CEP
        obj.Open "GET", URL, False
        obj.send


Retorno que tenho no obj.responseText = "{"complemento": "de 1101 a 2459 - lado \u00edmpar", "bairro": "Consola\u00e7\u00e3o", "cidade": "S\u00e3o Paulo", "logradouro": "Rua da Consola\u00e7\u00e3o"}"



#480064 - 08/03/2018 12:05:20

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Você precisa mudar a codepage(charset):

obj.setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=ISO-8859-1"


Acho que assim deve dar certo

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#480076 - 09/03/2018 09:27:35

OCELOT
SOROCABA
Cadast. em:Março/2012


Ele não está sem acentuação, o exemplo que você postou é um json válido e o texto possui acento, porém está escapado, o problema é você interpretar corretamente este json.



 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário