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

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

Postby Enrrique Vertiz » Wed Nov 07, 2012 4:19 pm

Antonio, compilo y funciona Ok, algunos comentarios :

Para los que usan WAMP, los archivos EXE se deben colocar en la carpeta CGI-BIN que esta dentro del directorio Wamp\Bin\apache\......cgi-bin.

En Windows 7 y Harbour los compilo sin problemas y los ejecuto.

Cuando compilo en WinXP con Harbour o en Win7 con xHarbour me bota el siguiente error al enlazar :

Error : Unresolved external '_HB_FUN_HB_GT_STD_DEFAULT' referenced from Fiveweb\Lib\FIVEWEB.LIB|fiveweb
Error : Unresolved external '_HB_FUN_HB_GT_STD' referenced from Fiveweb\Lib\FIVEWEB.LIB|fiveweb

Falta alguna LIB, alguna ruta ??, gracias
Enrrique Vertiz Pitta
Lima-Peru
xHb 1.23.1026X, Fwh 24.09, BCC74, MySQL 8.0.X, SQLLIB 1.9m
Enrrique Vertiz
 
Posts: 541
Joined: Fri Oct 07, 2005 2:17 pm
Location: Lima - Peru

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

Postby Antonio Linares » Wed Nov 07, 2012 9:38 pm

Enrique,

Estas usando FiveWeb/samples/build,bat para construir los ejemplos ?

La libreria gtstd.lib hay que enlazarla, pero ya lo hace build.bat
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42118
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

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

Postby Enrrique Vertiz » Wed Nov 07, 2012 10:12 pm

Gracias Antonio, por alguna razon no lo tenia en el Build.bat, incluyendo esa LIB compilo sin problema con HARBOUR, ya esta Ok

Ahora con xHarbour, uso el Build.bat lo copio como Buildx.bat y saco las LIBs de HARBOUR y traigo las que estan en el FWH\Samples en el Buildx.bat, al parecer me falta algo porque me bota un error :
Unresolved external _HB_FUN__CLSLOCKDEF
Unresolved external _HB_FUN__CLSUNLOCKDEF
Falta alguna LIB en xHb ?, gracias
Enrrique Vertiz Pitta
Lima-Peru
xHb 1.23.1026X, Fwh 24.09, BCC74, MySQL 8.0.X, SQLLIB 1.9m
Enrrique Vertiz
 
Posts: 541
Joined: Fri Oct 07, 2005 2:17 pm
Location: Lima - Peru

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

Postby Antonio Linares » Thu Nov 08, 2012 12:22 am

Browses basados en MySQL, usando Ajax:

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

Fijaros en la claúsula URL del browse que carga mediante Ajax el contenido a partir de donde queramos. En este caso desde un php estandard de FiveWeb que accede a una tabla de una base de datos de MySQL.

testbrow.prg
Code: Select all  Expand view  RUN
#include "FiveWeb.ch"

function Main()

   local oDlg, oBrw

   DEFINE DIALOG oDlg TITLE "MySQL browse" ;
      SIZE 1000, 600

   @ 10, 10 BROWSE oBrw SIZE 980, 500 OF oDlg ;
      URL "../fiveweb/mybrowse.php?name=clients"

   @ 500, 30 BUTTON "<<" OF oDlg SIZE 50, 35

   @ 500, 110 BUTTON ">>" OF oDlg SIZE 50, 35

   @ 500, 200 BUTTON "Add" OF oDlg

   @ 500, 330 BUTTON "Edit" OF oDlg

   @ 500, 460 BUTTON "Delete" OF oDlg

   @ 500, 590 BUTTON "Search" OF oDlg

   @ 500, 720 BUTTON "Print" OF oDlg

   @ 500, 850 BUTTON "Exit" OF oDlg

   ACTIVATE DIALOG oDlg

return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42118
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

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

Postby hmpaquito » Thu Nov 08, 2012 8:28 am

Enrique,

Esos unresolved external siempre me han salido a mi cuando desde el ambiente (sets) de harbour he invocado una compilacion de xHarbour (o viceversa, ya no me acuerdo). Es decir, la solucion, al menos para mi, siempre pasa por abrir una sesion nueva de CMD.

Saludos
hmpaquito
 
Posts: 1482
Joined: Thu Oct 30, 2008 2:37 pm

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

Postby Antonio Linares » Thu Nov 08, 2012 9:00 am

regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42118
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

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

Postby Enrrique Vertiz » Thu Nov 08, 2012 2:04 pm

hmpaquito, gracias por el tip, probare con lo indicado.
Enrrique Vertiz Pitta
Lima-Peru
xHb 1.23.1026X, Fwh 24.09, BCC74, MySQL 8.0.X, SQLLIB 1.9m
Enrrique Vertiz
 
Posts: 541
Joined: Fri Oct 07, 2005 2:17 pm
Location: Lima - Peru

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

Postby sysctrl2 » Thu Nov 08, 2012 6:03 pm

la solucion que pone paco,
es la correcta,
abrir una nueva ventana de COMMAND.COM ( CMD )

saludos.
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1022
Joined: Mon Feb 05, 2007 7:15 pm

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

Postby Antonio Linares » Fri Nov 09, 2012 4:09 pm

Implementada la claúsula ACTION en los botones. De momento ejecutan acciones en la parte cliente, más adelante implementaremos las acciones en la aprte servidor tambien. Implementada la función MsgInfo() en javascript usando jquery ui y DOM.

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

tutor03.prg
Code: Select all  Expand view  RUN
// Using controls

#include "FiveWeb.ch"

function Main()

   local oDlg, lValue := .T.
   
   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


Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42118
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

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

Postby Antonio Linares » Sat Nov 10, 2012 11:18 am

Implementados los menues de persiana:

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

testmenu.prg
Code: Select all  Expand view  RUN
#include "FiveWeb.ch"

function Main()

   BuildMenu()

return nil

function BuildMenu()

   local oMenu

   MENU oMenu
      MENUITEM "Your app"
      MENU
         MENUITEM "About..." ACTION MsgInfo( "My app" )
         MENUITEM "Quit"
      ENDMENU
     
      MENUITEM "Files"
      MENU
         MENUITEM "Clients"
         MENUITEM "Stock"
         MENUITEM "Agents"
      ENDMENU
     
      MENUITEM "Reports"
      MENU
         MENUITEM "Clients"
         MENU
            MENUITEM "List"
            MENUITEM "By Last name"
            MENUITEM "By State"
         ENDMENU
         
         MENUITEM "Stock"
         MENU
            MENUITEM "By id"
            MENUITEM "By amount"
            MENUITEM "My price"
         ENDMENU
      ENDMENU
     
      MENUITEM "Utilities"
     
      MENUITEM "Help"
      MENU
         MENUITEM "Wiki"
      ENDMENU
   ENDMENU

return nil


Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42118
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

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

Postby mastintin » Sat Nov 10, 2012 11:37 am

tutor01 compilado y funcionando en macosx (servidor apache integrado en el sistema ) :-)
Image
User avatar
mastintin
 
Posts: 1516
Joined: Thu May 27, 2010 2:06 pm

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

Postby mastintin » Sun Nov 11, 2012 1:48 pm

Añadidos al repositorio los archivos mac_build.sh makefilemac para compilar fiveweb en mac ... :-)
Saludos a Todos.
User avatar
mastintin
 
Posts: 1516
Joined: Thu May 27, 2010 2:06 pm

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

Postby Antonio Linares » Sun Nov 11, 2012 3:35 pm

Manuel.

gracias! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42118
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

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

Postby Antonio Linares » Sun Nov 11, 2012 3:35 pm

Dinamicamente cambiando temas:

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

themes.prg
Code: Select all  Expand view  RUN
#include "FiveWeb.ch"

function Main()

   local oDlg, oFld

   BuildMenu()

   DEFINE DIALOG oDlg SIZE 600, 400

   @ 10, 10 FOLDER oFld PROMPTS "One", "Two", "Three" OF oDlg ;
      SIZE 520, 230

   @ 260, 150 BUTTON "Ok" OF oDlg ACTION MsgInfo( "ok" )

   @ 260, 300 BUTTON "Cancel" OF oDlg ACTION MsgInfo( "cancel" )

   ACTIVATE DIALOG oDlg NOWAIT  

return nil

function BuildMenu()

   local oMenu

   MENU oMenu
      MENUITEM "Main theme"
      MENU
         MENUITEM "Light"
         MENU
            MENUITEM "Base"         ACTION SetTheme( "base" )
            MENUITEM "Black-tie"    ACTION SetTheme( "black-tie" )
            MENUITEM "Blitzer"      ACTION SetTheme( "blitzer" )
            MENUITEM "Cupertino"    ACTION SetTheme( "cupertino" )
            MENUITEM "excite-bike"  ACTION SetTheme( "excite-bike" )
            MENUITEM "flick"        ACTION SetTheme( "flick" )
            MENUITEM "hot-sneacks"  ACTION SetTheme( "hot-sneaks" )
            MENUITEM "humanity"     ACTION SetTheme( "humanity" )
            MENUITEM "overcast"     ACTION SetTheme( "overcast" )
            MENUITEM "pepper-grinder" ACTION SetTheme( "pepper-grinder" )
            MENUITEM "redmond"      ACTION SetTheme( "redmond" )
            MENUITEM "smoothness"   ACTION SetTheme( "smoothness" )
            MENUITEM "south-street" ACTION SetTheme( "south-street" )
            MENUITEM "start"        ACTION SetTheme( "start" )
            MENUITEM "sunny"        ACTION SetTheme( "sunny" )
            MENUITEM "ui-lightness" ACTION SetTheme( "ui-lightness" )
         ENDMENU
         
         MENUITEM "Dark"
         MENU
            MENUITEM "Dot-lub"      ACTION SetTheme( "dot-luv" )
            MENUITEM "Dark-hive"    ACTION SetTheme( "dark-hive" )
            MENUITEM "Eggplant"     ACTION SetTheme( "eggplant" )
            MENUITEM "le-frog"      ACTION SetTheme( "le-frog" )
            MENUITEM "mint-choc"    ACTION SetTheme( "mint-choc" )
            MENUITEM "swanky-purse" ACTION SetTheme( "swanky-purse" )
            MENUITEM "trontastic"   ACTION SetTheme( "trontastic" )
            MENUITEM "ui-darkness"  ACTION SetTheme( "ui-darkness" )
            MENUITEM "vader"        ACTION SetTheme( "vader" )
         ENDMENU
      ENDMENU  
   ENDMENU

return oMenu


Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42118
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

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

Postby Antonio Linares » Sun Nov 11, 2012 11:13 pm

Comenzando un diseñador. Existe el problema de que cuando un control se activa como redimensionable y movible, los demas pierden esa capacidad. Si solucionamos esto, vamos por buen camino :-)

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

Code: Select all  Expand view  RUN
#include "FiveWeb.ch"

function Main()

   local oDlg

   BuildMenu()

   DEFINE DIALOG oDlg SIZE 600, 400

   ACTIVATE DIALOG oDlg NOWAIT  

return nil

function BuildMenu()

   local oMenu

   MENU oMenu
      MENUITEM "Controls"
      MENU
         MENUITEM "Add control"
         MENU
            MENUITEM "Say"    ACTION AddSay( "oDlg" )
            MENUITEM "Button" ACTION AddButton( "oDlg" )
         ENDMENU
      ENDMENU  
   ENDMENU

return oMenu
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42118
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

PreviousNext

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 44 guests