Consumir API no windows 7

[infosys2]

Gostaria de saber dos colegas se vocês tem alguma solução para consumir  API  em ambiente de windows 7.

#Include "FiveWin.ch"

function Main()
Local oHttp,  cResp1 := "" , hJson := hash()

cUrl := "https://bling.com.br/Api/v2/produtos/json/?apikey=81672077cde47c5ed795349ae17a98c1c1b10c9826041ecf9b9d28d9a1961c7204dc3b13"

Try
   oHttp := CreateObject("winhttp.winhttprequest.5.1")  
catch oError
   Try
      oHttp := CreateObject( 'MSXML2.ServerXMLHTTP.6.0' )  
      oHttp:SetTimeouts(40000,40000,40000,40000)
   Catch oError
    ? "Erro na comunicação"
	return .F.
   end
end

Try
   oHttp:SetTimeouts(40000,40000,40000,40000)
   oHttp:Open("GET",cUrl ,.f.)  // erro en el site
   oHttp:Send()
   cResp1 := oHttp:ResponseText()
Catch
  MsgAlert("002 - Erro na comunicação","Aviso")
  return .t.
End Try

hb_jsondecode(  cResp1 ,@hJson) //Parse JSON to hash
cHdados:= hJson["retorno"]["produtos"][1]["produto"] 
? padr("Ide  ",20," ")+cHdados["id"] ,  padr("Codigo",20," ")+cHdados["codigo"] ,  padr("Descricao",20," ")+cHdados["descricao"] , padr("Unidade",20," ")+cHdados["unidade"] , Padr("Preco",20," ")+cHdados["preco"] , Padr("Peso Liquido",20," ")+cHdados["pesoLiq"]

Return nil 

Este código  no windows 10 esta funcionalidade  100% ja no windows 7  não funciona! 

 

 

[kapiaba]

Não tenho certeza, más eu acho que falta alguma coisa nessa "chave/key" que você postou, você seguiu o manual?

 

https://www.bling.com.br/downloads/manualAjiliBling.pdf

Você está no teste grátis ou pago?

https://ajuda.bling.com.br/hc/pt-br/articles/360054105673-Quais-funcionalidades-posso-testar-no-sistema-no-período-de-teste-grátis-

 

Regards, saludos.

[infosys2]

function Main()
LOCAL hCurl
LOCAL cRetu := ""  , hJson := [=>]  , cHdados  := [=>]

curl_global_init()
IF !empty( hCurl := curl_easy_init() )
    curl_easy_setopt( hCurl, HB_CURLOPT_HTTPHEADER, {"Content-Type:application/json","X-Cosmos-Token:yIgeHB34Qv6RO18QWsftQw"} )
    curl_easy_setopt( hCurl, 2 , "https://bling.com.br/Api/v2/produtos/json/?apikey=81672077cde47c5ed795349ae17a98c1c1b10c9826041ecf9b9d28d9a1961c7204dc3b13")
    curl_easy_setopt( hCurl, HB_CURLOPT_SSL_VERIFYPEER, .F. )
    curl_easy_setopt( hCurl, HB_CURLOPT_TRANSFERTEXT, .T. )
    curl_easy_setopt( hCurl, HB_CURLOPT_FAILONERROR, .T. )
    curl_easy_setopt( hCurl, HB_CURLOPT_DL_BUFF_SETUP )
    curl_easy_perform( hCurl )
    cRetu := curl_easy_dl_buff_get( hCurl )
    curl_easy_reset( hCurl )
    
? cRetu 

ENDIF
curl_global_cleanup()

RETURN cRetu

Em 22/03/2022 at 11:28, kapiaba disse:

Não tenho certeza, más eu acho que falta alguma coisa nessa "chave/key" que você postou, você seguiu o manual?

 

https://www.bling.com.br/downloads/manualAjiliBling.pdf

Você está no teste grátis ou pago?

https://ajuda.bling.com.br/hc/pt-br/articles/360054105673-Quais-funcionalidades-posso-testar-no-sistema-no-período-de-teste-grátis-

 

Regards, saludos.

 

Funciona normal no windows 10 64 bits,  resolvi fazendo com o curl 

[infosys2]

 

Estou tentando fazer um post  na  API BLING    e  gostaria da  ajuda dos colegas.

Fazendo experiências primeiro com CURL.EXE  mandando um post  de cadastro na api conforme segue:.

 

E estou recebendo este retorno de erro no xml:  

{"retorno":{"erros":[[{"erro":{"cod":6,"msg":"Start tag expected, '<' not found\n"}}]]}}

Alguem poderia dar uma forca para mim.   NO final de tudo quero montar uma funcao em arbur para fazer esta interacao.

 

 curl -X POST "https://bling.com.br/Api/v2/deposito/json/"
      -d "apikey=81672077cde47c5ed795349ae17a98c1c1b10c9826041ecf9b9d28d9a1961c7204dc3b13"
      -d "xml=dep001.xml"
 

<?xml version="1.0" encoding="UTF-8"?>
<depositos>
    <deposito>
        <descricao>Depósito Padrão</descricao
        <situacao>A</situacao>
        <depositoPadrao>true</depositoPadrao>
        <desconsiderarSaldo>false</desconsiderarSaldo>
    </deposito>
</depositos>

Estou  

[toninhofwi]

Em 28/03/2022 at 10:02, infosys2 disse:

 

Estou tentando fazer um post  na  API BLING    e  gostaria da  ajuda dos colegas.

Fazendo experiências primeiro com CURL.EXE  mandando um post  de cadastro na api conforme segue:.

 

E estou recebendo este retorno de erro no xml:  

{"retorno":{"erros":[[{"erro":{"cod":6,"msg":"Start tag expected, '<' not found\n"}}]]}}

Alguem poderia dar uma forca para mim.   NO final de tudo quero montar uma funcao em arbur para fazer esta interacao.

 

 curl -X POST "https://bling.com.br/Api/v2/deposito/json/"
      -d "apikey=81672077cde47c5ed795349ae17a98c1c1b10c9826041ecf9b9d28d9a1961c7204dc3b13"
      -d "xml=dep001.xml"
 

<?xml version="1.0" encoding="UTF-8"?>
<depositos>
    <deposito>
        <descricao>Depósito Padrão</descricao
        <situacao>A</situacao>
        <depositoPadrao>true</depositoPadrao>
        <desconsiderarSaldo>false</desconsiderarSaldo>
    </deposito>
</depositos>

Estou  

 

O Lailton tinha upa API completinha do Bling, escreve pra ele: lailton@harbour.com.br

Abraço.