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!!!
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
