FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Scripts para Harbour y FWH !!!
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: Scripts para Harbour y FWH !!!

Posted: Thu May 19, 2011 10:52 PM
We have modified DEFINE MSGBAR ... to accept 2007 clause too:
Code (fw): Select all Collapse
#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.>] )
regards, saludos

Antonio Linares
www.fivetechsoft.com
Simon
Posts: 105
Joined: Thu Oct 20, 2005 12:29 PM

Re: Scripts para Harbour y FWH !!!

Posted: Thu May 19, 2011 11:10 PM

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.

Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: Scripts para Harbour y FWH !!!

Posted: Thu May 19, 2011 11:33 PM
Sim贸n,

Comprueba que tengas puestos los paths bien aqui:
Code (fw): Select all Collapse
   oHrb = HB_CompileFromBuf( Scripts->Code, "-n", "-Ic:\fwh\include", "-Ic:\harbour\include" )
regards, saludos

Antonio Linares
www.fivetechsoft.com
Simon
Posts: 105
Joined: Thu Oct 20, 2005 12:29 PM

Re: Scripts para Harbour y FWH !!!

Posted: Fri May 20, 2011 02:50 AM

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.

Simon
Posts: 105
Joined: Thu Oct 20, 2005 12:29 PM

Re: Scripts para Harbour y FWH !!!

Posted: Tue May 24, 2011 09:23 PM

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 ?

Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: Scripts para Harbour y FWH !!!

Posted: Tue May 24, 2011 09:49 PM

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)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Simon
Posts: 105
Joined: Thu Oct 20, 2005 12:29 PM

Re: Scripts para Harbour y FWH !!!

Posted: Tue May 24, 2011 10:22 PM

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 ?

Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: Scripts para Harbour y FWH !!!

Posted: Wed May 25, 2011 12:45 AM

Solo para los comandos que uses desde tu script, por ejemplo: USE ...

regards, saludos

Antonio Linares
www.fivetechsoft.com
Simon
Posts: 105
Joined: Thu Oct 20, 2005 12:29 PM

Re: Scripts para Harbour y FWH !!!

Posted: Tue May 31, 2011 04:11 PM

Antonio en caso de existir un error en el script, puedo capturar la linea del error con un try-catch ?

Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: Scripts para Harbour y FWH !!!

Posted: Tue May 31, 2011 07:17 PM
Sim贸n,

Esta es una forma de hacerlo:
Code (fw): Select all Collapse
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
regards, saludos

Antonio Linares
www.fivetechsoft.com
Simon
Posts: 105
Joined: Thu Oct 20, 2005 12:29 PM

Re: Scripts para Harbour y FWH !!!

Posted: Tue May 31, 2011 08:34 PM

Claro begin/secuence, yo estaba usando try/catch.

Gracias Antonio, sigo probando.

Simon
Posts: 105
Joined: Thu Oct 20, 2005 12:29 PM

Re: Scripts para Harbour y FWH !!!

Posted: Tue May 31, 2011 08:49 PM
Antonio esta linea

Code (fw): Select all Collapse
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 ).
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: Scripts para Harbour y FWH !!!

Posted: Wed Jun 01, 2011 08:22 AM

Sim贸n,

gracias! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
diegopolverelli
Posts: 149
Joined: Thu Jun 21, 2007 03:26 PM

Re: Scripts para Harbour y FWH !!!

Posted: Sun Jun 26, 2011 12:44 PM

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...!!!

Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: Scripts para Harbour y FWH !!!

Posted: Sun Jun 26, 2011 06:05 PM

Diego,

Claro que si ! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Static archive 路 New replies & topics via GitHub Discussions