FiveTech Software tech support forums

by **Xevi** » Wed Nov 29, 2017 8:58 pm

Bien, me uno al grupo, soy bastante novato y espero aprender para poder ayudar en su dia...

Estoy intentando hacer una pequeñiiiisima aplicación que funcione accediendo a datos en un Servidor MariaDB.
Alguien lo está utilizando???
Algun ejemplo de su uso, sencillo, para empezar.???

Si bien el link
viewtopic.php?f=33&t=31621&start=0&hilit=fivetouch+webservice
es el que deberia de darme un poco de luz... lo hecho andar, pero no rula...

#include "FiveTouch.ch"

FUNCTION Main()

SET DELETE ON
SET CENTURY ON
SET ESCAPE ON
SET DATE ITALIAN
SETCANCEL(.T.)

CLEAR SCREEN

DEFINE DIALOG oDlg

oDlg:setWindowTitle( "Gestione Prezzi" )

@ 90, 220 BUTTON oBtnImp PROMPT "test_htip()" OF oDlg ;
ACTION test_htip()

@ 250, 90 BUTTON oBtnEnd PROMPT "Salir" OF oDlg ;
ACTION oDlg:End()

ACTIVATE DIALOG oDlg CENTERED

return nil

// ------------------------------- CREA_FILE
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

Alguien que pueda orientarme???
Si hay que montar un webservice, o el Servidor MariaDB???
Cómo montar un webService, y cual???

Gracias.

Un Saludo,
Xevi.