INET COM RESTFULL

LCSSP 23/05/2017 10:29:46
#474132
Bom dia a todos.

Estou realizando uma integração com uma plataforma web de vendas e estou tendo dificuldade para integrar os dados, já consegui realizar toda a comunicação, porém como os dados são em XML e esta usando utf-8 não consigo pegar as informações com a acentuação correta. O site usa um webservice e não consigo fazer o download da informação apenar ler diretamente do serviço. Alguem já passou por este problema ou sabe converter os dados diretamente de uma requisição do Inet?

Obrigado
LVFIOROT 23/05/2017 13:59:04
#474137
segue links que achei sobre o assunto:

http://www.di-mgt.com.au/howto-convert-vba-unicode-to-utf8.html
http://www.vbforums.com/showthread.php?795353-Inet1-json-vb
https://forum.imasters.com.br/topic/399416-resolvido%C2%A0codifica%C3%A7%C3%A3o-vb6/
KERPLUNK 23/05/2017 17:05:57
#474142 Resposta escolhida
Em primeiro lugar, o ideal seria usar o .NET para isso, é uma plataforma muito mais adequada. Quem sabe não seja essa a oportunidade que você precisa pra iniciar a converter seu projeto em .NET?

Mas se você quer insistir nessa via, o melhor é usar o MSXML2.ServerXMLHTTP, mais ou menos assim:

Dim sUrl As String
Dim response As String
Dim xmlhttp

Set sUrl = [Ô]http://seuservidor.com/service/operation/param[Ô]

Set xmlhttp = Server.CreateObject([Ô]MSXML2.ServerXMLHTTP[Ô])
xmlhttp.open [Ô]GET[Ô], sURL, False
xmlhttp.setRequestHeader [Ô]Content-Type[Ô], [Ô]application/x-www-form-urlencoded[Ô]
xmlhttp.send()

Dim response As String = xmlhttp.responseText

Set xmlhttp = Nothing
LCSSP 24/05/2017 10:33:48
#474149
LVFIOROT, já havia visto estes sites mas não me resolveu o problema, obrigado.

KERPLUNK, este projeto já existe há 11 anos e hj é impossivel migra tudo , mas o MSXML2 funcionou perfeitamente obrigado.
Tópico encerrado , respostas não são mais permitidas
Voltar