Page 2 of 3
Re: Scripts para Harbour y FWH !!!
Posted: Thu May 19, 2011 10:52 pm
by Antonio Linares
We have modified DEFINE MSGBAR ... to accept 2007 clause too:
Code: Select all | Expand
#xcommand
DEFINE <msg:
MESSAGE,
MESSAGE BAR, MSGBAR>
[<oMsg>
] ;
[ OF <oWnd>
] ;
[ <prm:
PROMPT, TITLE> <cMsg>
] ;
[ <center:
CENTER, CENTERED>
] ;
[ <clock:
CLOCK, TIME>
] ;
[ <date:
DATE>
] ;
[ <kbd:
KEYBOARD>
] ;
[ FONT <oFont>
] ;
[ <color:
COLOR, COLORS> <nClrFore>
[,<nClrBack>
] ] ;
[ <inset:
NO INSET, NOINSET>
] ;
[ <l2007:
2007, _2007>
] ;
=> ;
[<oMsg>:=
] <oWnd>:
oMsgBar := TMsgBar
():
New( <oWnd>, <cMsg>, <.
center.>,;
<.clock.>, <.date.>, <.kbd.>,;
<nClrFore>, <nClrBack>, <oFont>,;
[!<.inset.>
],
[<.l2007.>
] )
Re: Scripts para Harbour y FWH !!!
Posted: Thu May 19, 2011 11:10 pm
by Simon
Todavia no doy con el problema, es compilando el script, habia comentado la linea del msgbar.
No tienen idea del porque me da ese error.
Re: Scripts para Harbour y FWH !!!
Posted: Thu May 19, 2011 11:33 pm
by Antonio Linares
Simón,
Comprueba que tengas puestos los paths bien aqui:
Code: Select all | Expand
oHrb = HB_CompileFromBuf( Scripts->Code, "-n", "-Ic:\fwh\include", "-Ic:\harbour\include" )
Re: Scripts para Harbour y FWH !!!
Posted: Fri May 20, 2011 2:50 am
by Simon
Si esas son las carpetas, se me olvido mencionar que tengo instalado windows 7 de 64 bits, tengo vmware instalado estoy haciendo una maquina con windows xp de 32 pruebo y te aviso.
Re: Scripts para Harbour y FWH !!!
Posted: Tue May 24, 2011 9:23 pm
by Simon
Reescribi scripts.prg, y ahora funciona perfectamente, esta buenimiso, se pueden usar funciones, recursos, variables que esten en nuestro exe.
Antonio no hay manera de hacer esto mismo sin necesidad de tener instalado el harbour ?
Re: Scripts para Harbour y FWH !!!
Posted: Tue May 24, 2011 9:49 pm
by Antonio Linares
Simón,
No necesitas tener instalado Harbour!
El compilador de Harbour está dentro de nuestros EXEs
Lo que si necesitas son los ficheros de cabecera (.CH)
Re: Scripts para Harbour y FWH !!!
Posted: Tue May 24, 2011 10:22 pm
by Simon
ya he probado, y no necesito tampoco los de fivewin (a menos que necesite usar fivewin como xbase) , ahora necesito todos los archivos de cabecera de harbour o solo algunos ?
Re: Scripts para Harbour y FWH !!!
Posted: Wed May 25, 2011 12:45 am
by Antonio Linares
Solo para los comandos que uses desde tu script, por ejemplo: USE ...
Re: Scripts para Harbour y FWH !!!
Posted: Tue May 31, 2011 4:11 pm
by Simon
Antonio en caso de existir un error en el script, puedo capturar la linea del error con un try-catch ?
Re: Scripts para Harbour y FWH !!!
Posted: Tue May 31, 2011 7:17 pm
by Antonio Linares
Simón,
Esta es una forma de hacerlo:
Code: Select all | Expand
function Execute()
local oHrb, cResult, bOldError
FReOpen_Stderr( "comp.log", "w" )
oHrb = HB_CompileFromBuf( Scripts->Code, "-n", "-Ic:\fwh\include", "-Ic:\harbour\include" )
oResult:SetText( If( Empty( cResult := MemoRead( "comp.log" ) ), "ok", cResult ) )
if ! Empty( oHrb )
BEGIN SEQUENCE
bOldError = ErrorBlock( { | o | DoBreak( o ) } )
hb_HrbRun( oHrb )
END SEQUENCE
ErrorBlock( bOldError )
endif
return nil
static 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: " + Str( ProcLine( 4 ) ) )
BREAK
return nil
Re: Scripts para Harbour y FWH !!!
Posted: Tue May 31, 2011 8:34 pm
by Simon
Claro begin/secuence, yo estaba usando try/catch.
Gracias Antonio, sigo probando.
Re: Scripts para Harbour y FWH !!!
Posted: Tue May 31, 2011 8:49 pm
by Simon
Antonio esta linea
Code: Select all | Expand
MsgStop( oError:Description + CRLF + cInfo,;
"Script error at line: " + Str( ProcLine( 4 ) ) )
devuelve el numero de linea pero del programa que lo esta ejecutando y no la linea del script, estuve probando y me funciono cambiando procline( 4 ) por procline( 2 ).
Re: Scripts para Harbour y FWH !!!
Posted: Wed Jun 01, 2011 8:22 am
by Antonio Linares
Simón,
gracias!
Re: Scripts para Harbour y FWH !!!
Posted: Sun Jun 26, 2011 12:44 pm
by diegopolverelli
se pueden agregar scripts que hagan uso de bases de datos???
puedo usar variables del programa principal???
por ej, quiero que lo que se ejecute, en lugar de un msginfo sea un:
use c:\base1
count to cantidad
? str(cantidad)
¿se puede? Gracias...!!!
Re: Scripts para Harbour y FWH !!!
Posted: Sun Jun 26, 2011 6:05 pm
by Antonio Linares
Diego,
Claro que si !