Página 1 de 1
Harbour comunicando via Json.
Enviado: 04 Nov 2024 20:14
por 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.
Harbour comunicando via Json.
Enviado: 04 Nov 2024 20:27
por sygecom
Tem como sim, veja essa classe abaixo e exemplo uso lá.
viewtopic.php?f=4&t=27288&p=162639&hilit=oSyg_curl#p162639
Harbour comunicando via Json.
Enviado: 05 Nov 2024 13:46
por JoséQuintas
É sobre webservice json ?
Clique em pesquisar
webservice
depois pesquisar no resultado
json
Harbour comunicando via Json.
Enviado: 12 Nov 2024 10:56
por 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 )
....
....