using Harbour code and FiveTouch!
This opens the door to manage any remote database (MySQL, SQL, etc) using a web service
which it is the advised way to do it
Finally we can use any database engine from FiveTouch! Many thanks 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