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.
Coloca el error que te da, asi podriamos ayudarte mejor, saludos... 
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>
Le falta el path a los ficheros de cabecera de Harbour cuando se llama al bcc32.exe
bcc32.exe -ic:\harbour\include ...
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
Siempre me sale error en @ ....xbrowse
No soy capaz de usar xbrowse de ninguna manera, quiero visualizar un ficher dbf y no soy capaz
&
#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 nilDavid,
En la versión 6.12 de FWH ese comando no estaba implementado
Muchas gracias
Entonces para que esta función pueda usarse no hay versión demo?