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
