Página 1 de 1
acessar api mercos ou consumir site
Enviado: 10 Ago 2021 11:53
por claudiosouza
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
resposta acessar api mercos ou consumir site
Enviado: 14 Ago 2021 18:30
por claudiosouza
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:
Código: Selecionar todos
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
acessar api mercos ou consumir site
Enviado: 20 Ago 2021 13:07
por claudiosouza
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
Código: Selecionar todos
CSTATUS:=oWeb:Status
cRetorno := oWeb:ResponseBody()
cRetorno2 := oWeb:ResponseText()
cRetorno3 := OWeb:getallResponseHeaders()