Codigo almacenado en tablas

[Compuin]

Buen dia foro,

Existe algun ejemplo de programa donde el codigo o parte de el este almacenado en un campo de tabla y sea llamado desde el ejecutable o por alguna opcion de menu?

[Antonio Linares]

Descarga FiveDBU que incluye todo su código fuente.

https://bitbucket.org/fivetech/fivewin-contributions/downloads/fivedbu_20140730.zip

Abre una DBF y luego dale a la opción Procesos.

[Antonio Linares]

Tienes otro ejemplo completo en FivEdit.prg:

https://bitbucket.org/fivetech/fivewin-contributions/downloads/fivedit.zip

Dale a la opción "Script"

Revisa el código del método RunScript()

[leandro]

Buenas Tardes Para todos

Es posible esto con xharbour?

Almacenar código en un archivo de texto para que este fuera del ejecutable?
Es para un reporte que necesito modificar a la medida del usuario.

Code: Select all  Expand view

Function reportesejecutable()
texto:="function Test()" + CRLF + CRLF + "   MsgInfo( 'Hello world!' )" + CRLF + CRLF + "return nil"
Execute( texto )

[jnavas]

Saludos
Puedes ver las funciones HRB*() que ejecuta programas PRG, ademas tambien permite compilar modulos HRB (similar a funciones en DLLS)

[Antonio Linares]

Leandro,

FWH proporciona la función Execute():

Code: Select all  Expand view

function Execute( cCode, ... )

   local oHrb, cResult, bOldError, uRet
   local cFWheaders := If( lIsDir( ".\include" ), ".\include", "c:\FWH\include" )
   local cHBheaders := If( lIsDir( ".\include" ), ".\include", "c:\harbour\include" )

   // FReOpen_Stderr ( "comp.log", "w" )
   oHrb = HB_CompileFromBuf( cCode, "-n", "-I" + cFWheaders, "-I" + cHBheaders )
   if ! Empty( oHrb )
      BEGIN SEQUENCE
      bOldError = ErrorBlock( { | o | DoBreak( o ) } )
      uRet = hb_HrbDo( hb_HrbLoad( oHrb ), ... )
      END SEQUENCE
      ErrorBlock( bOldError )
   endif

return uRet

[leandro]

Gracias Antonio

Lo pruebo y comento.

[leandro]

Antonio Buenas Tardes...

Que pena molestar.... estuve tratando de usar la funcion execute() que proporciona fw, así como lo mencionaste, se compila perfectamente, pero al momento de hacer el llamado de la funcion execute. Me arroja un msginfo que dice lo siguiente:

this feature is only available with Harbour.

Es obvio el mensaje.... Pero yo uso xharbour. Y en este momento requiero ejecutar código almacenado en un archivo de texto o desde una base de datos. Que pena el atrevimiento pero de casualidad tienes un ejemplo mas claro.

Saludos

[Antonio Linares]

Leandro,

Es que solo Harbour permite hacer eso pues el compilador entero está dentro de una librería.

xHarbour no tiene esa capacidad.

[leandro]

Antonio buenos días

Ya logre compilar mi aplicación con Harbour.....

Ahora deseo agregar la opción para correr los prg por fuera del ejecutable; dices que miremos el código en el método runscript()... En el siguiente enlace.

https://bitbucket.org/fivetech/fivewin- ... ivedit.zip

El problema es que el enlace esta roto.

[cnavarro]

Leandro

https://bitbucket.org/fivetech/fivewin- ... ivEdit.zip