API EM HARBOUR

[afonso9111]

Como consumir uma API REST em HARBOUR.

[alxsts]

Olá Afonso!

Seja bem-vindo ao fórum!

Utilize a busca do fórum (botão no canto superior direito da página) e encontrarás alguns tópicos relacionados à tua necessidade. Caso não seja suficiente, volte com novas dúvidas.

[clodoaldomonteiro]

Olá!
Aqui um exemplo usando o objeto MSXML2 (ou outro da MS do Windows), com xHarbour.
Um end-point para fazer o ping no meu servidor e retornar meu IP externo.

Código: Selecionar todos

   /////////////////////////////////////////////////////////////////////////////
Function SendGetPing( cAuthorization )
   Local oOle, cRet := '', msg, oError //, cRet2

   Try
      oOle := CreateObject( 'MSXML2.XMLHTTP' )
   Catch
      oOle := CreateObject( 'Microsoft.XMLHTTP' )
   End

   oOle:Open( 'GET', 'https://api.seusite.com.br/utils/ping', .f. )

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

   If !Empty( cAuthorization)
      oOle:SetRequestHeader( "Authorization", cAuthorization)
   Endif

   Try
      oOle:Send( )

      cRet := oOle:ResponseBody

   Catch oError
      msg := 'EMAIL...: [001]' + CRLF
      msg += 'Aviso..: Não consegui enviar email.' + CRLF
      msg += cl_getError(oError, .t.)
      MsgAtencao( msg, .t.)

   End

   oOle := NIL

   Return cRet

Abraços.