FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour FWH Clase TWebServer ejemplo
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
FWH Clase TWebServer ejemplo
Posted: Sun Oct 09, 2011 11:27 PM
En este ejemplo podeis ver como de forma muy sencilla podeis servir páginas web desde vuestra aplicación en FWH! :-)

webserv1.prg
Code (fw): Select all Collapse
#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:
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FWH Clase TWebServer ejemplo
Posted: Mon Oct 10, 2011 09:43 AM
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=

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FWH Clase TWebServer ejemplo
Posted: Mon Oct 10, 2011 10:17 AM
Ejecutando una acción:



En default.htm cambiar:
Code (fw): Select all Collapse
   <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 (fw): Select all Collapse
#menu ul ul a
{
   text-decoration: none;
}


Lo próximo: Rutar el evento a nuestro EXE... :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
devtuxtla
Posts: 392
Joined: Tue Jul 29, 2008 01:55 PM
Re: FWH Clase TWebServer ejemplo
Posted: Wed Oct 12, 2011 01:27 AM

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

Visite Chiapas, el paraiso de México.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FWH Clase TWebServer ejemplo
Posted: Wed Oct 12, 2011 07:08 AM

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.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Bayron
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: FWH Clase TWebServer ejemplo
Posted: Wed Oct 12, 2011 02:37 PM
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!!!

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: FWH Clase TWebServer ejemplo
Posted: Wed Oct 12, 2011 03:25 PM

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
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: FWH Clase TWebServer ejemplo
Posted: Wed Oct 12, 2011 03:50 PM

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 Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Bayron
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: FWH Clase TWebServer ejemplo
Posted: Wed Oct 12, 2011 04:10 PM

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....

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: FWH Clase TWebServer ejemplo
Posted: Wed Oct 12, 2011 04:14 PM
Bayron wrote: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
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: FWH Clase TWebServer ejemplo
Posted: Wed Oct 12, 2011 04:41 PM

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...

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FWH Clase TWebServer ejemplo
Posted: Wed Oct 12, 2011 06:55 PM

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.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Bayron
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: FWH Clase TWebServer ejemplo
Posted: Wed Oct 12, 2011 10:37 PM

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...

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
Re: FWH Clase TWebServer ejemplo
Posted: Thu Oct 13, 2011 04:32 PM

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

Saludos,



Carlos Gallego



*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

wmormar
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: FWH Clase TWebServer ejemplo
Posted: Thu Oct 13, 2011 06:08 PM

Cgallegoa,

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

Será por ese pequeño detalle?

William, Morales

Saludos



méxico.sureste
Static archive · New replies & topics via GitHub Discussions