MAMP2 Posted September 21, 2023 Report Share Posted September 21, 2023 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 Quote Link to comment Share on other sites More sharing options...
emotta Posted September 21, 2023 Report Share Posted September 21, 2023 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 Quote Link to comment Share on other sites More sharing options...
Somzeira Posted October 4, 2023 Report Share Posted October 4, 2023 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' Quote Link to comment Share on other sites More sharing options...
emotta Posted October 4, 2023 Report Share Posted October 4, 2023 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. Quote Link to comment Share on other sites More sharing options...
Somzeira Posted October 5, 2023 Report Share Posted October 5, 2023 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. Quote Link to comment Share on other sites More sharing options...
emotta Posted October 5, 2023 Report Share Posted October 5, 2023 2 horas atrás, Somzeira disse: eu já postei a função, é essa acima CallEndPoint Quote Link to comment Share on other sites More sharing options...
Somzeira Posted October 13, 2023 Report Share Posted October 13, 2023 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. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.