FWH Clase TWebServer ejemplo

[Antonio Linares]

En este ejemplo podeis ver como de forma muy sencilla podeis servir páginas web desde vuestra aplicación en FWH!

webserv1.prg

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd
   
   DEFINE WINDOW oWnd TITLE "FWH Class TWebServer example"

   ACTIVATE WINDOW oWnd ICONIZED ;
      ON INIT BuildServer()
   
return nil  

function BuildServer()

   local oWebServer := TWebServer():New()

   oWebServer:lDebug = .T.
   oWebServer:cLogFile = "weblog.txt"

   oWebServer:Activate()

   oWebServer:Explore()  // launches your internet navigator

return nil

Al ejecutarlo, vuestro navegador aparece y se muestra vuestra página automaticamente:

[Antonio Linares]

Sirviendo un menú de persiana (pulldown menu):

(EXE y código fuente incluido):
http://code.google.com/p/fivewin-contributions/downloads/detail?name=webserv1.zop&can=2&q=

[Antonio Linares]

Ejecutando una acción:



En default.htm cambiar:

Code: Select all  Expand view

  <ul>
      <li>
         Edit
         <ul>
              <li>Cut</li>
              <a href="#" onclick="alert('Copy')"><li>Copy</li></a>
              <li>Paste</li>
         </ul>
      </li> 
   </ul>   
 

En styles.css añadir:

Code: Select all  Expand view

#menu ul ul a
{
   text-decoration: none;
}

Lo próximo: Rutar el evento a nuestro EXE...

[devtuxtla]

Hola Antonio.

Al probar este ejemplo en W Vista, no encuentra la pagina, genera un error 404 (http://localhost/default.htm)

Se requiere alguna instalacion previa de IIS o algo similar?

Saludos

[Antonio Linares]

No hay que instalar IIS ya que nuestro propio EXE trabaj como un servidor de páginas web.

Al descomprimir el ZIP manten la subcarpeta www que tiene pues de ahí lee las páginas.

[Bayron]

Hola Antonio,

Yo tengo instalado Xampp, y cuando corrí el ejemplo, no encontraba la página, así que la copié al directorio htdocs de Xampp, lo que fué tomado como LocalHost...

Es ésto normal???, ya que como un nuevo servidor Web, www debería ser tomado como el LocalHost de este Servidor... Creo, que debería haber solo un LocalHost, y FiveWeb tendria que preguntar si se desea desactivar el Web Server activo, y reactivarlo cuando termine... No lo crees???

La verdad es que no se mucho de Web Server!!!

[mastintin]

Se podría hacer correr el nuevo servidor web por un puerto distinto al de apache o iss , vamos que en vez usar el puerto 80 usase el 8088 o cualquier otro y podrían convivir los dos servidores a la vez sin problemas.
Luego en vez llamar al http://localhost , llamas al http://localhost:8088 y listo .
Saludos.

[Bayron]

Excelente sugerencia... o sea que el número del puerto pudiera ser dado al crear el WebServer, y que éste lo tome como el default al ser llamado desde el mismo programa, y que tenga que ser proporcionado al ser llamado externamente...

Otra sugerencia podría ser que este ejemplo pudiera ser ejecutado como un servicio de windows en lugar de una ventana minimizada??????

[Bayron]

Antonio, me ha gustado muchísimo el ejemplo del menú que has proporcionado...

Mi visión de un FiveWeb, es de clases que generen código como este en el computador, algo parecido a xWeb, pero con la potencia actual de FiveWin y la iniciativa de FiveTech, y que luego este código simplemente será copiado al Sitio Web... Nada de archivos .Exe ni cosas raras, sino codigo HTML(5) y PHP, generado por FiveTech's FiveWeb...

Este codigo podría usarse con FlexiGrid, Ajax, Jason, etc... lo que facilitaría su uso...

PS: Yo creo que tu idea de un FiveWeb es la de incorporar toda la potencia de FiveWin, pero creo que sería muy duro hacerlo de esa manera, y si usamos la web, ya es tiempo de migrar a (my)SQL... De esta forma, FiveTech, podría crear un nuevo sistema que podría estar activo en corto tiempo, y brindarnos acceso a tabletas y dispositivos con un Web Browser....

[mastintin]

Excelente sugerencia... o sea que el número del puerto pudiera ser dado al crear el WebServer, y que éste lo tome como el default al ser llamado desde el mismo programa, y que tenga que ser proporcionado al ser llamado externamente...

cojnsultando la wiki http://wiki.fivetechsoft.com/doku.php?id=fivewin_clase_twebserver al crear el webserver le puedes decir en que puerto quieres que corra el servidor :
oServer:= Twebserver():new(8088)

Saludos.

[Bayron]

Gracias, tienes toda la razón...

Haciendo pruebas: Funciona perfectamente... y es más, no sé si es el comportamiento normal, pero al ejecutar en el WebBrowser:

localHost:8088 , ingresa a la página Default.html usando el WebServer de FiveTech

localHost/Default.Html , ingresa a la página Default.Html usando Xampp, solamente cuando FiveTech WebServer está ejecutándose... Fascinante...

[Antonio Linares]

Bayron,

Nuestra idea es poder reemplazar el interface de Windows con el interface Web. Es decir, que en vez de usar Windows como medio para interaccionar con el usuario, lo hagamos desde el navegador de internet.

Como hemos mostrado en el ejemplo del menú, la idea es usar elementos muy intuitivos, con auténtica apariencia web y tambien con influencia de Metro, en cuanto al minimalismo y sencillez de uso que ofrecen.

Actualmente estamos investigando el protocolo de HTML5 WebSockets porque entendemos que eso nos permitiría rutar eventos y asi poder eliminar el modelo cliente-servidor, en tanto que ese modelo nos obliga a separar en dos las aplicaciones actuales. Imaginemos que nuestra aplicación está en cualquier sitio (remota ó local) y usa la web para "mostrarse". FWH se encargaría de implementar el modelo cliente-servidor automaticamente

Como ves la idea es ambiciosa y veremos hasta que punto pueda ser realizable. De todas formas, nuestra intención es ir proporcionando lo que vayamos avanzando, y que sea util para todos. Ahi está ese menú, y muchos más elementos que vamos a ir mostrando, fruto del trabajo que ya llevamos realizado.

[Bayron]

Antonio,

Son noticias muy buenas, sin ambición y esfuerzo no hay progreso, y estoy seguro que tú y tu equipo van a lograrlo... Estaremos pendientes...

Estoy seguro que la ruta que tu decidas a seguir será la mas adecuada para nosotros tambien!!! Y si logras desprendernos del escritorio y hubicarnos en el navegador, prácticamente, FiveWin sería Multiplataforma a nivel cliente, aunque tenga que ejecutarse a nivel servidor en determinado sistema operativo...

[Cgallegoa]

Hola,

Tengo FWH 10.10, xHarbour 1.2.1 y Borland 5.8.2 y no logro que me funcione el ejemplo.

Hice intentos con IIS, sin IIS, con Xampp, sin Xampp, direccionando puerto a 8080, 8088, sin direccionar puerto, etc., etc. y siempre me sale "Internet Explorer no puede mostrar página web"

Qué me hace falta ?
Si funciona con estas versiones, o sólo con la última versión de FWH ?
Si funciona con xHarbour o sólo con Harbour ?

Saludos,

Carlos Gallego

[wmormar]

Cgallegoa,

FWH 10.10 no ha salido, por lo menos no publicado por aquí.

Será por ese pequeño detalle?