FiveWeb de FiveTech (gratis hasta la versión 1.0)

[Antonio Linares]

Añadido soporte para el comando SET COLOR TO ...

http://www.fivetechsoft.net/cgi-bin/tutor03

tutor03.prg

Code: Select all

// Using controls

#include "FiveWeb.ch"

function Main()

   local oDlg, lValue := .T.
   
   SET COLOR TO "#99CCFF"
   
   DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400
   
   @ 120,  70 BUTTON "One" SIZE 120, 50 OF oDlg ACTION MsgInfo( "one" )

   @ 120, 220 BUTTON "Two" SIZE 120, 50 OF oDlg ACTION MsgInfo( "two" )

   @ 120, 370 BUTTON "Three" SIZE 120, 50 OF oDlg ACTION MsgInfo( "three" )
   
   @ 200, 160 CHECKBOX lValue PROMPT "Tested" SIZE 150, 40 OF oDlg
   
   ACTIVATE DIALOG oDlg 

return nil

[Antonio Linares]

Estableciendo la imagen de fondo y dinamicamente seleccionando el tema a usar:

http://www.fivetechsoft.net/cgi-bin/tutor04

tutor04.prg

Code: Select all

#include "FiveWeb.ch"

function Main()

   local oDlg
   
   SET BACKIMAGE TO "http://fiveweb.googlecode.com/svn/trunk/images/beach.jpg"
   
   SetTheme( "cupertino" )
   
   DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400
   
   ACTIVATE DIALOG oDlg NOWAIT

return nil

[mastintin]

Añadido un primer soporte para arrays en el browser .

Code: Select all

function Browse()

   local oDlg, oBrw
   local aDatos:={}

   if ! File( "clients.dbf" )
      DbCreate( "clients.dbf", { { "title",   "C", 10, 0 },;
                                 { "family",  "C", 80, 0 },;
                                 { "vorname", "C", 80, 0 } } )
   endif
   
   USE clients SHARED

   aadd( aDatos, {"title","Family","Vorname"} )
   
   go top
   do while !eof()
      aadd(aDatos,{clients->title, clients->family,clients->vorname })
      skip
   enddo

   
   DEFINE DIALOG oDlg TITLE "Clients browse" SIZE 800, 600
   
   @ 10, 10 BROWSE oBrw SIZE 500, 400 OF oDlg ARRAY aDatos
   
   ACTIVATE DIALOG oDlg NOWAIT
   
   USE

return nil
 

[Frafive]

Antonio, me he descargado los samples para linux compilados, en mi servidor linux el archivo log me da este error: Premature end of script headers: tutor01

El servidor soporta cgi, incluso me han preparado un ejemplo y lo han ejecutado y funciona perfectamente, alguna idea por que falla tutor01 ?

Un saludo

[Antonio Linares]

Tienes que asegurarte de que le das permisos de ejecución, esto lo haces por SSH:

chmod 755 tutor01

y por otra parte, para asegurarte de que no falta nada, ejecuta la aplicación por SSH tambien:

./tutor01

Si falta alguna librería de enlace dinámico, etc te aparecerá el error por la ventana de SSH

[pcordonet]

Hola Antonio,

Tengo instalado XAMPP en windows Xp.

Con el reciente cambio de quitar la extension .exe de las llamadas me da error. si pongo la extension me funciona perfectamente.

Tengo que cambiar algo en http.conf ?

La verdard, estoy un poco perdido.

Muchas gracias, estais haciendo un gran trabajo.
Pere

[Antonio Linares]

Pere,

No hay que quitar la extensión EXE. Eso es solo para Linux en donde no se usa.

Asi que las aplicaciones Harbour + FiveWeb usan la extensión .EXE en Windows. Y no la necesitan en Linux

[mastintin]

Avances en el browser y _ . Ahora se puede definir stilos para cabecera y lineas, tambien se puede definirv efecto pijama .

Code: Select all

Function DefineClassLine() //--definimos  un estilo

 ?'<style type="text/css">'
 ?'<!-- '
 ?'.linea { font-family: Verdana, Arial, Helvetica, sans-serif;'
 ?' font-size: 13px;color: #333333; background-color: transparent;'
 ?'}'
 ?'-->'
 ? '</style>'
Return nil

Function DefineClassHead()  //------definimos otro estilo

 ?'<style type="text/css">'
 ?'<!-- '

?' .boxtitulo { '
?'  background-image: url(glbnav_background.gif);'
?'  background-position: 4px;'
?'  border-bottom-color: #333333;'
?'  border-bottom-style: solid;'
?'  border-bottom-width: 1px;'
?'  border-left-color: #333333;'
?'  border-left-style: solid;'
?'  border-left-width: 1px;'
?'  border-right-color: #000000;'
?'  border-right-style: solid;'
?'  border-right-width: 1px;'
?'  border-top-color: #333333;'
?'  border-top-style: solid;'
?'  border-top-width: 1px;'
?'  color: #333333;'
?'  background-color:#a5beb5 ;'
?'  font-family: Verdana, Arial, Helvetica, sans-serif;'
?'  font-size: 12px;'
?'  font-weight: bold;'
?'  height: 18px;'
?'  text-align: center;'

 ?'}'

 ?'-->'
 ? '</style>'

Return nil




//----------------------------------------------------------------------------// 


function Browse()

   local oDlg, oBrw
   local aDatos:={}

   if ! File( "clients.dbf" )
      DbCreate( "clients.dbf", { { "title",   "C", 10, 0 },;
                                 { "family",  "C", 80, 0 },;
                                 { "vorname", "C", 80, 0 } } )
   endif
   
   USE clients SHARED

   aadd( aDatos, {"title","Family","Vorname"} )
   
   go top
   do while !eof()
      aadd(aDatos,{clients->title, clients->family,clients->vorname })
      skip
   enddo

   DefineClassLine()   
   DefineClassHead()  
   
   DEFINE DIALOG oDlg TITLE "Clients browse" SIZE 800, 600
   
   @ 10, 10 BROWSE oBrw SIZE 500, 400 OF oDlg ARRAY aDatos
   
    oBrw:cClassTable:= "" //"browse"
    oBrw:cClassLine:="linea"
    obrw:cClassHead:= "boxtitulo"
    oBrw:lZebra:= .t.

   oBrw:CreateFromCode()
   
   ACTIVATE DIALOG oDlg NOWAIT
   
   USE

return nil

//----------------------------------------------------------------------------//                                  
 

[mastintin]

Añadido a la clase TSay la posibilidad de añadirle un enlace url .

Code: Select all

function Main()

   local oDlg
   
   SET BACKIMAGE TO "http://fiveweb.googlecode.com/svn/trunk/images/beach.jpg"
   
   SetTheme( "cupertino" )
   
   DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400
   
    @ 12, 10 SAY "Hola:" OF oDlg  URL "http://www.google.com"
   
   ACTIVATE DIALOG oDlg NOWAIT

return nil
 

[Frafive]

Antonio, al ejecutar por ssh tutor01 me da este error: ./tutor01 cannot execute binary file
lo raro es que dentro de la misma carpeta tengo otros cgi y funcionan pefectamente.





Un saludo

[mastintin]

le has dado permiso de ejecución chmod +x archivo ?

[Frafive]

Tiene permisos chmod 755, no hay forma de que funciona, no estara mal el ejecutable ?

Un saludo

[Antonio Linares]

Javier,

En el mensaje de error debe mencionar que le falta, posiblemente una libreria que no esté disponible en el Linux que estés usando

[Frafive]

Antonio solo me da este error: ./tutor01 cannot execute binary file

El sistema operativo del servidor: Linux server7.red-dns.com 2.6.32-4-pve #1 SMP Tue Mar 29 09:08:37 CEST 2011 i686 i686 i386 GNU/Linux

Un saludo

[Antonio Linares]

Javier,

Es un hosting comercial conocido ?

Para ver que versión de Linux usan