VB6 CONSUMINDO JSON

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

VB6 CONSUMINDO JSON

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#488849 - 15/05/2019 13:34:20

TRABALHO
SAO PAULO
Cadast. em:Março/2004


Boa tarde!

Alguém sabe como consumir serviço JSON utilizando VB6?



#488850 - 15/05/2019 14:03:03

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


Membro da equipe
O que você quer é consumir um serviço HTTP que retorna dados no formato JSON. Tem várias maneiras de se fazer isso, uma delas é o WinHTTP que tem esse exemplo

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#488851 - 15/05/2019 14:08:56

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


Membro da equipe
Tem ainda a possibilidade de se usar uma WebRequest, é praticamente a mesma coisa.

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#488852 - 15/05/2019 19:07:15

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


Membro da equipe
Pelo histórico do usuário, essa thread vai ficar aberta alguns anos

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#488922 - 23/05/2019 11:03:10

WCOSTA
VASSOURAS
Cadast. em:Dezembro/2003


Membro da equipe
Citação:
:
Pelo histórico do usuário, essa thread vai ficar aberta alguns anos

Pois é...


AntSoft Systems On Demand



#489114 - 06/06/2019 09:01:31

TRABALHO
SAO PAULO
Cadast. em:Março/2004


 Anexos estao visíveis somente para usuários registrados

Valeu KERPLUNK, consegui utilizando o WinHttp, conforme visto abaixo:

Const sUrl As String = "https://portalweb...xxx"
Dim oRequest As WinHttp.WinHttpRequest
Dim sResult As String
Set oRequest = New WinHttp.WinHttpRequest
With oRequest
    .Open "GET", sUrl, True
    .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=UTF-8"
    .Send ""
    .WaitForResponse
    sResult = .ResponseText
End With

Agora pesquisarei sobre como capturar os parâmetros recebidos, pois são muitos conforme visto na imagem do retorno do SoapUI





#489118 - 06/06/2019 14:15:19

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


Membro da equipe
http://www.ediy.co.nz/vbjson-json-parser-library-in-vb6-xidc55680.html

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#489497 - 16/07/2019 09:19:16

TRABALHO
SAO PAULO
Cadast. em:Março/2004


 Anexos estao visíveis somente para usuários registrados

Valeu KERPLUNK, deu certo localmente.
Utilizei o exemplo do link que você enviou "http://www.ediy.co.nz/vbjson-json-parser-library-in-vb6-xidc55680.html" e implementei no meu código.
Na minha máquina está funcionando corretamente, porem quando utilizo na aplicação (dll), retorna o erro em anexo.
A execução da dll que contém o código fica em um servidor Windows Server 2003.





#489502 - 16/07/2019 11:08:27

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


Membro da equipe
Isso não é problema de código, é provavelmente algo relativo ao endereço que está tentando acessar e os certificados correspondentes. Se acessar do browser, deve ser possível acessar do código.

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


 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