busca JSOn por POSTMAN

[MAMP2]

curl --request GET \
     --url 'https://api-hmg.lecupon.com/client/v2/businesses/123123/authorized_users' \
     --header 'X-ClientEmployee-Email: seuemail@email.com' \
     --header 'X-ClientEmployee-Token: auth_token' \
     --header 'accept: application/json'

estou com esta demanda pra fazer busca por JSON e trazer um token

alguem conhece ou sabe como ajudar, nao sei nem por onde vai

com colocamos isto no FIVEWIN, alguem conhece?

é um pessoal da LECUPOM www.lecupon.com

 

 

[emotta]

Function TestApi()

Local aHeader := {}

Local cLink := "https://api-hmg.lecupon.com/client/v2/businesses/123123/authorized_users"

Local nStatus_code

 

aadd(aHeader, {"X-ClientEmployee-Email", "seuemail@email.com"})

aadd(aHeader, {"X-ClientEmployee-Token", "auth_token"})

aadd(aHeader, {"accept", "application/json"})

 

cResp := CallEndPoint("GET", cLink, "", aHeader, @nStatus_code)

 

? nStatus_code

? nStatus_code

 

Return

 

Static Function CallEndPoint(cMode, cLink, cJSon, aHeader, nStatus_code)

Local cResp := ""

Local nI

Static oHTTP

 

nStatus_code := 0

 

If aHeader == NIL

        aHeader := {{"Content-Type","application/json" }}

EndIf

 

If oHTTP == nil

    oHTTP := CreateObject( "MSXML2.ServerXMLHTTP.6.0" )

    oHTTP:SetTimeouts(600000, 600000, 600000, 600000)

EndIf

 

oHTTP:Open( cMode, cLink, .F. )

 

For nI := 1 to Len(aHeader)

        oHTTP:SetRequestHeader( aHeader[nI,1],aHeader[nI,2] )

Next

Try

    oHTTP:Send(cJson)

    while oHTTP:readyState # 4

        oHTTP:waitForResponse(1000)

        Inkey(.1)

    enddo

    nStatus_code := oHTTP:status

 

    cResp := oHTTP:responseText

Catch

End

oHTTP:Abort()

 

HB_GCALL()

 

Return cResp

   

[Somzeira]

Em 21/09/2023 at 16:28, emotta disse:

Function TestApi()

Local aHeader := {}

Local cLink := "https://api-hmg.lecupon.com/client/v2/businesses/123123/authorized_users"

Local nStatus_code

 

aadd(aHeader, {"X-ClientEmployee-Email", "seuemail@email.com"})

aadd(aHeader, {"X-ClientEmployee-Token", "auth_token"})

aadd(aHeader, {"accept", "application/json"})

 

cResp := CallEndPoint("GET", cLink, "", aHeader, @nStatus_code)

 

? nStatus_code

? nStatus_code

 

Return

 

Static Function CallEndPoint(cMode, cLink, cJSon, aHeader, nStatus_code)

Local cResp := ""

Local nI

Static oHTTP

 

nStatus_code := 0

 

If aHeader == NIL

        aHeader := {{"Content-Type","application/json" }}

EndIf

 

If oHTTP == nil

    oHTTP := CreateObject( "MSXML2.ServerXMLHTTP.6.0" )

    oHTTP:SetTimeouts(600000, 600000, 600000, 600000)

EndIf

 

oHTTP:Open( cMode, cLink, .F. )

 

For nI := 1 to Len(aHeader)

        oHTTP:SetRequestHeader( aHeader[nI,1],aHeader[nI,2] )

Next

Try

    oHTTP:Send(cJson)

    while oHTTP:readyState # 4

        oHTTP:waitForResponse(1000)

        Inkey(.1)

    enddo

    nStatus_code := oHTTP:status

 

    cResp := oHTTP:responseText

Catch

End

oHTTP:Abort()

 

HB_GCALL()

 

Return cResp

   

Bom dia Emotta,

Consegue me ajudar com o login, upload e request abaixo? Obrigado.

curl --location 'https://api.averbeporto.com.br/php/conn.php' \
--header 'Content-Type: application/x-www-form-urlencoded' \
--data-urlencode 'comp=5' \
--data-urlencode 'mod=login' \
--data-urlencode 'user=USUARIO' \
--data-urlencode 'pass=SENHA'

 

curl --location 'https://api.averbeporto.com.br/php/conn.php' \
--form 'comp="5"' \
--form 'mod="Upload"' \
--form 'path="eguarda/php/"' \
--form 'file=@"/path/to/file"'

 

curl --location 'https://api.averbeporto.com.br/php/conn.php' \
--header 'Content-Type: application/x-www-form-urlencoded' \
--data-urlencode 'comp=5' \
--data-urlencode 'mod=Protocolo' \
--data-urlencode 'path=atwe/php/' \
--data-urlencode 'chave%5B%5D=31180758818022000224570010467456121401366424'

 

[emotta]

infelizmente não da pra eu pegar pra ver isso já que a mesma dificuldade que eu teria vc tb teria, que é pesquisar como colocar os parametros do CURL chamando direto para MSXML2.ServerXMLHTTP.6.0

o máximo que consigo é realmente disponibilizar a função que fiz já a alguns anos, baseados em outros exemplos que não lembro agora, mas que uso em produção e perfeitamente funcional.

Então a garantia q vc tem é q a função está funcionando perfeitamente, o seu desafio é entender como passar os parametros que hj vc tem usando CURL para o json.

 

 

[Somzeira]

16 horas atrás, emotta disse:

infelizmente não da pra eu pegar pra ver isso já que a mesma dificuldade que eu teria vc tb teria, que é pesquisar como colocar os parametros do CURL chamando direto para MSXML2.ServerXMLHTTP.6.0

o máximo que consigo é realmente disponibilizar a função que fiz já a alguns anos, baseados em outros exemplos que não lembro agora, mas que uso em produção e perfeitamente funcional.

Então a garantia q vc tem é q a função está funcionando perfeitamente, o seu desafio é entender como passar os parametros que hj vc tem usando CURL para o json.

Obrigado pela resposta, já ajudaria.

 

 

 

[emotta]

2 horas atrás, Somzeira disse:

 

eu já postei a função, é essa acima CallEndPoint

[Somzeira]

Em 05/10/2023 at 11:54, emotta disse:

eu já postei a função, é essa acima CallEndPoint

Valeu a ajuda, optei por usar chilkat mesmo sendo pago foi a solução mais rápida.