TWeb para mod Harbour ya esta aqui
Posted: Thu Apr 09, 2020 12:25 pm
Hola,
He publicado la TWeb para mod Harbour, para que pueda usarse libremente en vuestros programas en entorno web.
La manera mas fácil de crear una pantalla para web usando nuestra sintaxis xBase de toda la vida
Un ejemplo sencillo de como crear un formulario web que hace una petición a nuestro servidor y que nos devuelva una respuesta
https://54.37.60.33/htweb/tutor10.prg
El código de la pantalla
Y la parte del backend que se encuentra en els ervidor y escucha nuestras peticiones
Y esta es la base para poder crear de manera rápida y facil nuestras páginas web usand el nuevo mod_harbour.
Facilmente podràs probar, modificar, ejecutar los ejemplos hasta llegar al manejo de los browsers.
https://54.37.60.33/htweb/tutor4b.prg
En este enlace tendreis toda la información y los diferentes ejemplos que ya son operativos
https://54.37.60.33/htweb/index.html
Invito a todos a que probeis mod Harbour para poder dar el salto definitivo a la web usando nuestro xBase de siempre. Nunca habia sido tan fácil poder acceder a la web con nuestro querido Harbour. Disfrútalo
Cualquier duda la podeis postear en el forum de mod-harbour -> https://forum.mod-harbour.org/viewforum.php?f=7
Saludos.
C.
He publicado la TWeb para mod Harbour, para que pueda usarse libremente en vuestros programas en entorno web.
La manera mas fácil de crear una pantalla para web usando nuestra sintaxis xBase de toda la vida
Un ejemplo sencillo de como crear un formulario web que hace una petición a nuestro servidor y que nos devuelva una respuesta
https://54.37.60.33/htweb/tutor10.prg
El código de la pantalla
Code: Select all
// {% LoadHrb( 'lib/tweb/tweb.hrb' ) %}
#include {% TWebInclude() %}
function main()
LOCAL o
DEFINE WEB oWeb TITLE 'Tutor10' INIT
DEFINE FORM o ID 'demo'
HTML o INLINE '<h3>Test MsgServer()</h3><hr>'
INIT FORM o
GET ID 'myid' VALUE '123' GRID 12 LABEL 'Id.' BUTTON 'GetId' ACTION 'GetId()' OF o
HTML o
<script>
function GetId() {
var cId = $('#myid').val()
MsgServer( 'tutor10-server.prg', cId, PostCall )
}
function PostCall( data ) {
MsgInfo( data )
}
</script>
ENDTEXT
END FORM o
retu nil Code: Select all
function main()
local hParam := AP_PostPairs()
?? 'Server time: ' + time() + '. Welcome ' + hParam[ 'value' ]
retu nil
Facilmente podràs probar, modificar, ejecutar los ejemplos hasta llegar al manejo de los browsers.
https://54.37.60.33/htweb/tutor4b.prg
En este enlace tendreis toda la información y los diferentes ejemplos que ya son operativos
https://54.37.60.33/htweb/index.html
Invito a todos a que probeis mod Harbour para poder dar el salto definitivo a la web usando nuestro xBase de siempre. Nunca habia sido tan fácil poder acceder a la web con nuestro querido Harbour. Disfrútalo
Cualquier duda la podeis postear en el forum de mod-harbour -> https://forum.mod-harbour.org/viewforum.php?f=7
Saludos.
C.