FiveTech Software tech support forums

www.FiveTechSoft.com
https://fivetechsoft.com/forums/

Fivewin demo + harbour

https://fivetechsoft.com/forums/viewtopic.php?f=6&t=25253

Page 1 of 1

Fivewin demo + harbour

Posted: Fri Nov 23, 2012 11:43 pm
by 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.

Re: Fivewin demo + harbour

Posted: Sat Nov 24, 2012 4:32 am
by joseluisysturiz
Coloca el error que te da, asi podriamos ayudarte mejor, saludos... :shock:

Re: Fivewin demo + harbour

Posted: Sat Nov 24, 2012 10:02 am
by 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>

Re: Fivewin demo + harbour

Posted: Sat Nov 24, 2012 2:21 pm
by Antonio Linares
Le falta el path a los ficheros de cabecera de Harbour cuando se llama al bcc32.exe

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

Re: Fivewin demo + harbour

Posted: Sun Nov 25, 2012 9:07 am
by 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

Re: Fivewin demo + harbour

Posted: Mon Nov 26, 2012 12:52 pm
by 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>

Re: Fivewin demo + harbour

Posted: Mon Nov 26, 2012 12:57 pm
by Antonio Linares
David,

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

Re: Fivewin demo + harbour

Posted: Mon Nov 26, 2012 1:10 pm
by Goliat
Muchas gracias

Entonces para que esta función pueda usarse no hay versión demo?
All times are UTC
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited