acessar api mercos ou consumir site

[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

[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

[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()