FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index mod_harbour TWeb para mod Harbour ya esta aqui
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM
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

Code (php): Select all Collapse
<div class="php" id="{CB}" style="font-family: monospace;">//  {% LoadHrb( 'lib/tweb/tweb.hrb' ) %}

#include {% TWebInclude() %}

function main()

    LOCAL o

    <a href="http://www.php.net/define">DEFINE</a> WEB oWeb TITLE 'Tutor10' INIT

    <a href="http://www.php.net/define">DEFINE</a> 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
        
    <a href="http://www.php.net/end">END</a> FORM o  
    
retu nil </div>


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

Code (php): Select all Collapse
<div class="php" id="{CB}" style="font-family: monospace;">function main()

    local hParam := AP_PostPairs()

    ?? 'Server time: ' + <a href="http://www.php.net/time">time</a>() + '. Welcome ' +  hParam[ 'value' ] 
    
retu nil
 </div>


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.
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix

Continue the discussion