TWeb para mod Harbour ya esta aqui

[Carles]

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

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 

Y la parte del backend que se encuentra en els ervidor y escucha nuestras peticiones

Code: Select all

function main()

    local hParam := AP_PostPairs()

    ?? 'Server time: ' + time() + '. Welcome ' +  hParam[ 'value' ] 
    
retu nil
 

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.