Crear cCode para script de Harbour

[Compuin]

Hola,

Como puedo crear el cCode para utilizarlo con la funcion execute que viene con Harbour y donde deberia ir este codigo en mi aplicacion (Dentro como una funcion o desde un archivo externo)

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

Gracias por los aportes

[Antonio Linares]

cCode = MemoRead( "code.prg" )

Execute( cCode )

cCode puedes leerlo desde un fichero, ó desde el campo de una DBF, etc.

la función Execute() es de FWH

[Compuin]

Gracias,

No hace falta reescribir execcute() en mi codigo entonces?

[Compuin]

Me arroja este error

Script error at line:0

Se detecto corrupcion
HB_HBLOAD

[Compuin]

alguna sugerencia?

[Antonio Linares]

> No hace falta reescribir Execute() en mi codigo entonces?

Que versión de FWH usas ? La función Execute() está disponible desde la versión 12.07 de FWH

Script error at line:0

Se detecto corrupcion
HB_HBLOAD

Que código estás ejecutando ? Cómo estás usando la función Execute() ?

[Compuin]

fwh 14

[Antonio Linares]

Puedes proporcionar un ejemplo que reproduzca el error ?

[Compuin]

cCode:=MemoRead("espacio.prg")
IF (nLen:=EXECUTE(cCode))


En espacio.prg

FUNCTION MAIN()
LOCAL nLen :=50
RETURN nLen

[Antonio Linares]

Usa otro nombre diferente a Main aqui:

FUNCTION MAIN()

por ejemplo

FUNCTION Test()

[Compuin]

Cambie a FUNCTION ESPACIO()

Igual resultado

[Sistem]

cCode = MemoRead( "code.prg" )

Execute( cCode )

cCode puedes leerlo desde un fichero, ó desde el campo de una DBF, etc.

la función Execute() es de FWH

la función Execute() es de FWH Harbour

[Compuin]

Ok pero no esta funcionando en este caso

[Antonio Linares]

Aqui estás usando un valor numérico como un valor lógico:

IF (nLen:=EXECUTE(cCode))

y eso genera un error.

Tu ejemplo funciona correctamente de esta forma:

compuin.prg

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local cCode := MemoRead( "espacio.prg" )
   
   MsgInfo( Execute( cCode ) )

return nil

espacio.prg

Code: Select all  Expand view  RUN

function Test()

  local nLen := 50

return nLen