Clipper On Line • Ver Tópico - acessar api mercos ou consumir site

acessar api mercos ou consumir site

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

acessar api mercos ou consumir site

Mensagempor claudiosouza » 10 Ago 2021 11:53

Bom dia colegas

alguém poderia me dar uma luz ? eu preciso enviar informações a um site e pegar retorno, eu consigo isso com a minigui ou preciso de lib externa ?
se tiver algum exemplo ou coisa assim, ficarei muito grato

Claudio Souza
claudiosouza
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 3
Data de registro: 10 Ago 2021 11:23
Cidade/Estado: Bahia
Curtiu: 0 vez
Mens.Curtidas: 1 vez

resposta acessar api mercos ou consumir site

Mensagempor claudiosouza » 14 Ago 2021 18:30

Quero agradecer ao Fórum, porque achei o que proporcionou a solução dos problemas, em outros tópicos.
com o que coletei consegui assim:

cUrl := "https://sandbox.mercos.com/api/v1/clientes"
oWeb := CreateObject( "MSXML2.ServerXMLHTTP.6.0" )
oWeb:Open( "GET", cUrl, .F., "usuario@email.com.br", "senha123")
oweb:SetRequestHeader( "ApplicationToken", "aaaaaaaaaa-bbbb-cccc-dddddddddddd" )
oweb:SetRequestHeader( "CompanyToken", "11111111-222222222-3333-44444-555555555" )
OWeb:SetRequestHeader( "Content-Type", "application/json" )
if empty(json)
     oWeb:Send()
else
     oWeb:Send(json)
endif
oWeb:WaitForResponse( 1000 )
cRetorno := oWeb:ResponseBody()
cRetorno2 := oWeb:ResponseText()
CSTATUS:=oWeb:status
if valtype(CSTATUS) == "U"
     CSTATUS:="Nil"
endif
if valtype(cRetorno) == "U"
     cRetorno:="Nil"
endif
if valtype(cRetorno2) == "U"
     cRetorno2:="Nil"
endif
hb_MemoWrit( "status.json", CSTATUS)
hb_MemoWrit( "retorno.json", Cretorno)
hb_MemoWrit( "retorno2.json", cRetorno2)
//alert(cRetorno)
return
Nota de Moderação:
Itamar M. Lins Jr.: Mensagem editada para colocar a tag [ code ]
Veja como utilizar esta tag: Clique aqui
claudiosouza
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 3
Data de registro: 10 Ago 2021 11:23
Cidade/Estado: Bahia
Curtiu: 0 vez
Mens.Curtidas: 1 vez

acessar api mercos ou consumir site

Mensagempor claudiosouza » 20 Ago 2021 13:07

Obrigado Itamar, por corrigir minha postagem, e desculpe, mas acrescentando tive retornos que não estavam responsetext,responsebody, respondexml, estavam no getallresponseheader, como no exemplo abaixo

CSTATUS:=oWeb:Status
cRetorno := oWeb:ResponseBody()
cRetorno2 := oWeb:ResponseText()
cRetorno3 := OWeb:getallResponseHeaders()
claudiosouza
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 3
Data de registro: 10 Ago 2021 11:23
Cidade/Estado: Bahia
Curtiu: 0 vez
Mens.Curtidas: 1 vez




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro