Crear function para Script de Harbour

[Compuin]

Hola foro

Necesito crear una funcion que me ejecute un .prg externo de mi .exe mediante script. Lo he estado haciendo asi:

Code: Select all  Expand view

EJECUTAR("EJEMPLO")

, donde ejecutar es la funcion y ejemplo es un .prg (ejemplo.prg)

Mi funcion para llamar al script la estoy haciendo asi:

Code: Select all  Expand view

FUNCTION Ejecutar( cCode )
   local oHrb, cResult, bOldError

   FReOpen_Stderr( "comp.log", "w" )
   oHrb = HB_CompileFromBuf( cCode, "-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

Con este codigo obtengo el siguiente error



Agradezco quien pueda ayudarme u orientarme

Gracias de antemano

[Antonio Linares]

EJECUTAR( MemoRead( "ejemplo.prg" ) )

y elimina esta línea:
// FReOpen_Stderr( "comp.log", "w" )

y modifica esta línea asi:
oHrb = HB_CompileFromBuf( cCode, .T., "-n", "-Ic:\fwh\include", "-Ic:\harbour\include" )

[Compuin]

Hola Antonio

Hice los cambios sugeridos y ahora me da este error:

Code: Select all  Expand view

Error description: Error COMPILER/20  Incomplete statement or unbalanced delimiters: line:1

Stack Calls
===========
   Called from:  => HB_COMPILEFROMBUF( 0 )
   Called from: .\prg\funciones.prg => EJECUTAR( 407 )

Aca el codigo de la funcion:

Code: Select all  Expand view

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

[Antonio Linares]

Cual es el código de ejemplo.prg ?

[Compuin]

Code: Select all  Expand view

#Include "Fivewin.ch"

// nLen= Tamaño de la Barra
FUNCTION EJEMPLO()
  LOCAL nLen:=20
RETURN nLen

[Antonio Linares]

Prueba a quitar el include:

// #Include "Fivewin.ch"

[Compuin]

Prueba a quitar el include:

// #Include "Fivewin.ch"

Con esto vuelve a mostrar el error "Se detecto corrpcion HB_HRBRUN"

[Compuin]

Alguna solucion?

[Antonio Linares]

Que version de Harbour estas usando ?

[Compuin]

Que version de Harbour estas usando ?

Harbour 3.2

[Antonio Linares]

En que línea reporta el error ?

Copia aqui toda la información que te aparezca

[Compuin]

Aca el codigo completo

demo.prg

Code: Select all  Expand view

#include "FiveWin.ch"

FUNCTION MAIN()

ejecutar (MemoRead("medida.prg"))

return nil

ejecutar.prg

Code: Select all  Expand view

#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

Code: Select all  Expand view

#Include "Fivewin.ch"

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

Y aqui el error

[Antonio Linares]

En vez de:

hb_HrbRun( oHrb )

Hazlo así:

uRet = hb_HrbDo( hb_HrbLoad( oHrb ), ... )

[xmanuel]

No sé si será eso pero mirad en el código:

Code: Select all  Expand view

    #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
      */ <------------------------------------------------------------------------------------------------------------------ esto sobra aquí ----------------------------------------------------------------------------
    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


 

[Compuin]

En vez de:

hb_HrbRun( oHrb )

Hazlo así:

uRet = hb_HrbDo( hb_HrbLoad( oHrb ), ... )

El mismo error de corrupcion