Fivewin demo + harbour

[Goliat]

Hola a todos.

Me he instalado la versión demo de fwh de ls psgina oficial y la versión de harbour para esa versión de fwh y borland. Modifico el fichero buildh.bat con los path correspondientes e intento compilar los ejemplos de fwh, empiezo con tutor03 y no funciona salen errores.

Que hago mal.

[joseluisysturiz]

Coloca el error que te da, asi podriamos ayudarte mejor, saludos...

[Goliat]

Hola, uso las siguientes versiones:

HARBOUR 1.1-0 Ints..
BORLAND c++ 5.5.1BUILD
FIVEWIN 6.12 2006

Cambio en buildh.bat los path, e intento compilar tutor08.prg

┌────────────────────────────────────────────────────────────────────────────┐
│ FiveWin for Harbour 6.12 - December 2006 Harbour development power │▄
│ (c) FiveTech, 1993-2006 for Microsoft Windows 95/98/NT/2000/ME and XP │█
└────────────────────────────────────────────────────────────────────────────┘█
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Compiling...
Harbour devel build 1.1-0 Intl.
Copyright 1999-2007, http://www.harbour-project.org/
Compiling 'TUTOR08.prg' and generating preprocessed output to 'TUTOR08.ppo'...
TUTOR08.prg(106) Warning W0006 Procedure returns value
Lines 3650, Functions/Procedures 4
Generating C source output to 'TUTOR08.c'... Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
tutor08.c:
Error E2209 tutor08.c 6: Unable to open include file 'hbvmpub.h'
Error E2209 tutor08.c 7: Unable to open include file 'hbpcode.h'
Error E2209 tutor08.c 8: Unable to open include file 'hbinit.h'
Error E2258 tutor08.c 11: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 12: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 13: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 14: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 15: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 16: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 17: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 18: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 19: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 20: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 21: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 22: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 23: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 24: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 25: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 26: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 27: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 28: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 29: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 30: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 31: Declaration was expected in function HB_FUNC
Error E2258 tutor08.c 32: Declaration was expected in function HB_FUNC
Error E2228 tutor08.c 32: Too many error or warning messages in function HB_FUNC

*** 26 errors in Compile ***
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Fatal: Unable to open file 'TUTOR08.OBJ'
* There are errors
C:\FWH\SAMPLES>

[Antonio Linares]

Le falta el path a los ficheros de cabecera de Harbour cuando se llama al bcc32.exe

bcc32.exe -ic:\harbour\include ...

[Goliat]

Muchas gracias, ya me funcióna compilación con el bat.

Lo probare poniéndolo en xedit también.

Ahora tengo otra duda, compilo el ejemplo del foro

http://forums.fivetechsupport.com/viewt ... =6&t=15135#

Siempre me sale error en @ ....xbrowse

No soy capaz de usar xbrowse de ninguna manera, quiero visualizar un ficher dbf y no soy capaz

[Goliat]

Hola, intento compilar este ejemplo y no funciona.

Code: Select all

#include "FiveWin.ch"
#include "InKey.ch"
#include "xbrowse.ch"


REQUEST DBFCDX


function Main()

   local oWnd, oBmp, oBar


   CheckCustCdx()

   USE CUSTOMER NEW SHARED VIA "DBFCDX"
   SET ORDER TO TAG FIRST
   GO TOP

   DEFINE WINDOW oWnd TITLE "New TXBrowse class (only for FWH)" 
      
   define buttonbar oBar of oWnd size 32,32
   
   define button prompt "Test" of oBar action( Incremental( oWnd ) )
      
   SET MESSAGE OF oWnd TO FWVERSION + ", " + FWCOPYRIGHT CENTERED TIME DATE

   ACTIVATE WINDOW oWnd

return nil

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

STATIC FUNCTION Incremental( oWnd )

   local oChild, oBrw, oSay, cTexto := "", cAlias
   
   cAlias := select()

   DEFINE dialog oChild TITLE "Incremental seek & Inset style browse" OF oWnd size 600,400 pixel
   
   @ 10,10 say "Busqueda Incremental:" of oChild size 60,12 pixel
   @ 10,65 say oSay prompt cTexto of oChild size 50,12 pixel
   
  [b] @ 25,5 xbrowse oBrw alias cAlias autocols size 290,170 pixel[/b]
   
   oBrw:bSeek := {|c| DbSeek( Upper( c ) ) }
   oBrw:oSeek := oSay

   oBrw:CreateFromCode()


   ACTIVATE dialog oChild ON INIT ( oBrw:SetFocus(), oChild:Resize() )

RETURN NIL


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

static function CheckCustCdx()

   local n

   if File( "customer.cdx" )
//      if MsgYesNo( "Re-index Customer.dbf ?" )
         FErase( "customer.cdx" )
//      endif
   endif

   if !File( "customer.cdx" )
      USE CUSTOMER EXCLUSIVE VIA "DBFCDX"
      for n := 1 to FCount()
         CreateTag( FieldName( n ) )
      next
      USE
   endif

return nil

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

static function CreateTag( ctag )

   INDEX ON &ctag TAG &ctag

return nil

El mensaje de error que sale es en esta linea:

@ 25,5 xbrowse oBrw alias cAlias autocols size 290,170 pixel

┌────────────────────────────────────────────────────────────────────────────┐
│ FiveWin for Harbour 6.12 - December 2006 Harbour development power │▄
│ (c) FiveTech, 1993-2006 for Microsoft Windows 95/98/NT/2000/ME and XP │█
└────────────────────────────────────────────────────────────────────────────┘█
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Compiling...
Harbour devel build 1.1-0 Intl.
Copyright 1999-2007, http://www.harbour-project.org/
Compiling 'p.prg' and generating preprocessed output to 'p.ppo'...
p.prg(45) Error E0030 Syntax error: "syntax error at '@'"
1 error

No code generated
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
Error E2194: Could not find file 'p.c'
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Fatal: Unable to open file 'P.OBJ'
* There are errors

C:\FWH\SAMPLES>

[Antonio Linares]

David,

En la versión 6.12 de FWH ese comando no estaba implementado

[Goliat]

Muchas gracias

Entonces para que esta función pueda usarse no hay versión demo?