Harbour comunicando via Json.

[Maurício Elias]

Olá pessoal, boa noite à todos vocês.

Harbour consegue se comunicar, via Json, com uma API ?
Eu não achei nada sobre isso aq no forum.
Existe algum material de apoio, pra estudos ?

Muito obrigado por estarem sempre ajudando...

Maurício Elias.

[sygecom]

Tem como sim, veja essa classe abaixo e exemplo uso lá.

viewtopic.php?f=4&t=27288&p=162639&hilit=oSyg_curl#p162639

[JoséQuintas]

É sobre webservice json ?

Clique em pesquisar
webservice
depois pesquisar no resultado
json

[clodoaldomonteiro]

Um exemplo em xHarbour, usando driver da MS "MSXML2.XMLHTTP", e no caso abaixo, não tem autenticação, caso tenha um endpoint que precise, informar no SetRequestHeader, conforme manual da API.

Código: Selecionar todos

....
....
      Try
         oHttp := CreateObject( 'MSXML2.XMLHTTP' )
         //oHttp := CreateObject( 'MSXML2.ServerXMLHTTP' )
      Catch
         oHttp := CreateObject( 'Microsoft.XMLHTTP' )
      End

      mSite := "https://publica.cnpj.ws/cnpj/"
      oHttp:Open("GET", mSite + cCNPJ, .f.)

      oHttp:SetRequestHeader( "Content-Type", 'application/json')

      Try

         oHttp:send()

      CATCH oError

         msg := 'Internet Error: 010' + CRLF
         msg += 'Aviso..: Erro verificado ao fazer requisição de CNPJ no Site indicado.' + HB_Eol()
         msg += 'Site...: ' + mSite + HB_Eol()
         msg += 'CNPJ...: ' + cCNPJ + HB_Eol()
         msg += cl_getError(oError, .t., oHttp)

         msgError ( msg )

         Break
      End

      If oHttp:status <> 200
         //? 'Estatus diferente de 200'
         //? oHttp:status
         //wait
         Break
      Endif

      //ADOStringGrava(oHttp:ResponseBody)


      hCNPJ  := JSonToHash( oHttp:ResponseBody )
....
....