Crear function para Script de Harbour

[Antonio Linares]

Aqui funciona correctamente, debe ser la versión de Harbour que estas usando

Prueba a descargar la más reciente

[Compuin]

Aqui funciona correctamente, debe ser la versión de Harbour que estas usando

Prueba a descargar la más reciente

Cual es el enlace de la mas reciente?

[Antonio Linares]

viewtopic.php?f=16&t=35191

[Compuin]

http://forums.fivetechsupport.com/viewtopic.php?f=16&t=35191

Da el mismo error de corrupcion

[karinha]

Muestra el fuente completo porfa.

Intenta con:

TUTOR04.PRG

[Compuin]

Muestra el fuente completo porfa.

Intenta con:

TUTOR04.PRG

Son 3 .prgs

DEMO.PRG

#include "FiveWin.ch"

FUNCTION MAIN()

ejecutar(MemoRead("medida.prg"))

return nil


EJECUTAR.PRG

#include "FiveWin.ch"

FUNCTION Ejecutar( cCode )
local oHrb, cResult, bOldError, oResult

oHrb = HB_CompileFromBuf( cCode, .T., "-n", "-Ic:\fwh\include", "-Ic:\harbour\include" )

if ! Empty( oHrb )
BEGIN SEQUENCE
bOldError = ErrorBlock( { | o | DoBreak( o ) } )
hb_HrbRun( oHrb )
END SEQUENCE
ErrorBlock( bOldError )
endif
*/
return nil

//----------------------------------------------------------------------------//
FUNCTION DoBreak( oError )

local cInfo := oError:operation, n

if ValType( oError:Args ) == "A"
cInfo += " Args:" + CRLF
for n = 1 to Len( oError:Args )
MsgInfo( oError:Args[ n ] )
cInfo += "[" + Str( n, 4 ) + "] = " + ValType( oError:Args[ n ] ) + ;
" " + cValToChar( oError:Args[ n ] ) + CRLF
next
endif

MsgStop( oError:Description + CRLF + cInfo,;
"Script error at line: " + AllTrim( Str( ProcLine( 2 ) ) ) )

BREAK

return nil

MEDIDA.PRG

#Include "Fivewin.ch"

FUNCTION MEDIDA()
? "mensaje"
RETURN .T.

[karinha]

És esto? Está correcto la mensageria?



Saludos

[karinha]

Code: Select all  Expand view

// Son 3 .prgs - solo 2 - DEMO.PRG y MEDIDA.PRG

// DEMO.PRG

#include "FiveWin.ch"

FUNCTION MAIN()

   ejecutar( MemoRead( "medida.prg" ) )

   RETURN nil

// EJECUTAR.PRG

// #include "FiveWin.ch"  // ???

FUNCTION Ejecutar( cCode )

   LOCAL oHrb, cResult, bOldError, oResult

   oHrb = HB_CompileFromBuf( cCode, .T. , "-n", "-Ic:\fwh1701\include", "-Ic:\HB1801\include" )

   IF ! Empty( oHrb )
      BEGIN SEQUENCE
         bOldError = ErrorBlock( { | o | DoBreak( o ) } )
         hb_HrbRun( oHrb )
      END SEQUENCE
      ErrorBlock( bOldError )
   ENDIF

   RETURN nil

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

FUNCTION DoBreak( oError )

   LOCAL cInfo := oError:operation, n

   IF ValType( oError:Args ) == "A"
      cInfo += " Args:" + CRLF
      FOR n = 1 TO Len( oError:Args )
         MsgInfo( oError:Args[ n ] )
         cInfo += "[" + Str( n, 4 ) + "] = " + ValType( oError:Args[ n ] ) + ;
            " " + cValToChar( oError:Args[ n ] ) + CRLF
      NEXT

   ENDIF

   MsgStop( oError:Description + CRLF + cInfo, ;
      "Script error at line: " + AllTrim( Str( ProcLine( 2 ) ) ) )

   BREAK

   RETURN nil

/*
MEDIDA.PRG

#Include "Fivewin.ch"

FUNCTION MEDIDA()
   ? "mensaje"
RETURN .T.
*/
 

Saludos.

[Compuin]

És esto? Está correcto la mensageria?



Saludos

Si, lo pruebo y te comento

[Compuin]

Error de corrupcion HB_HRBRUN()

Me puedes compartir tu version de Harbour y Bcc ?

Parece la mia esta corrupta

[karinha]

Cual tú correo? ó skype?

https://www.4shared.com/rar/vPK9Srloca/BCC73.html

https://www.4shared.com/rar/Wj6bviK0ee/HB1801.html

Saludos.

[Compuin]

Cual tú correo? ó skype?

Saludos.

compuin@gmail.com

Enviame tu skype y te agrego

[Compuin]

Saludos

Hice formateo de mi maquina e instalando todo nuevamente sigue el mismo error de corrupcion

Algun advise?

[acuellar]

Estimado
Lo compile el ejemplo y funciona perfecto.

Tengo:
FWH1804
Harbour 3.2.0dev (r1801051438)
Embarcadero C++ 7.30 for Win32 Copyright (c) 1993-2017 Embarcadero Technologies, Inc.

[Compuin]

Estimado
Lo compile el ejemplo y funciona perfecto.

Tengo:
FWH1804
Harbour 3.2.0dev (r1801051438)
Embarcadero C++ 7.30 for Win32 Copyright (c) 1993-2017 Embarcadero Technologies, Inc.

Que puede estar mal?