FiveTech Software tech support forums

Gracias a Rafa Carmona aqui teneis un ejemplo funcionando de como acceder a un web service
usando código Harbour y FiveTouch!

Esto abre las puertas a usar cualquier base de datos remota (MySQL, SQL, etc) usando un web service
que es la forma recomendada de hacerlo

Finalmente podemos usar cualquier motor de base de datos desde FiveTouch! Muchas gracias Rafa!!!

Code: Select all  Expand view

PROCEDURE test_htip()

   LOCAL oHttp, hQuery, cResponse

   hQUery := { => }
   hb_HCaseMatch( hQuery, .F. )

   oHttp := TIPClientHTTP():New( "http://adaptaproyectoserp.com.ve/webservices/client.php", .T. )
   hQuery[ "nombre" ]    := "THefull The BEST!"
   
   IF ! oHttp:open()
      ? "Error: oHttp:open(): " + oHttp:lastErrorMessage()
      RETURN
   ENDIF

   IF ! oHttp:post( hQuery )
      ? "Error: oHttp:post(): " + oHttp:lastErrorMessage()
   ENDIF

   cResponse  := oHttp:readAll()
   oHttp:close()

   Alert( cResponse )

   RETURN

Usándolo con FiveTouch para Android:

muy bien

Un placer como siempre ayudando a la comunidad