Accediendo a un web service desde FiveTouch!!!
Posted: Thu Nov 26, 2015 11:49 am
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!!!
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
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
