Erro fwh com harbour 11478

[Rossine]

Olá Antonio,

Ao atualizar a versão harbour svn 11478 nenhum exemplo de fivewin "c:\fwh\samples" funciona mais. Me é retornado erros GPF´s como cito alguns deles abaixo:

Application Internal Error - C:\fwh\samples\testget.exe
Terminated at: 2009.06.22 11:14:22
Unrecoverable error 9003: Too many recursive error handler calls
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from TDIALOG:CTOCHAR(0) in classes\DIALOG.PRG
Called from TDIALOG:ACTIVATE(0) in classes\DIALOG.PRG
Called from MAIN(30) in testget.prg
------------------------------------------------------------------------
Application Internal Error - C:\fwh\samples\webexp.exe
Terminated at: 2009.06.22 11:14:44
Unrecoverable error 9003: Too many recursive error handler calls
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from TOLEAUTO:NAVIGATE(0)
Called from __OBJSENDMSG(0)
Called from TACTIVEX:DO(0) in classes\ACTIVEX.PRG
Called from MAIN(17) in webexp.prg
------------------------------------------------------------------------
Application Internal Error - C:\fwh\samples\testimg.exe
Terminated at: 2009.06.22 11:15:27
Unrecoverable error 9003: Too many recursive error handler calls
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from ERRORDIALOG(0) in function\errsysw.prg
Called from (b)ERRORSYS(0) in function\errsysw.prg
Called from TDIALOG:CTOCHAR(0) in classes\DIALOG.PRG
Called from TDIALOG:ACTIVATE(0) in classes\DIALOG.PRG
Called from MAIN(41) in testimg.prg
------------------------------------------------------------------------

Porque será que isto está ocorrendo ?

[Lautaro]

Rossine,

Al parecer hubo un cambio con el api de hb_par*() / hb_stor*(), me creo que significa recompilar y/o cambiar codigo en fwh.

Atte.,

Lautaro

[Rossine]

Gracias Lautaro por responder

Viktor (harbour) wrote:

It's difficult to guess without knowing the code actually causing
the error, but my guess would be that FWH needs to be updated
and rebuilt after our hb_par*() / hb_stor*() API changes.

Antonio, alguma ajuda para estes erros ?

[Antonio Linares]

Rossine,

Vamos a revisarlo cuanto antes, gracias

[Rossine]

Gracias Maestro

[Antonio Linares]

Rossine,

Hemos detectado y arreglado un bug en Harbour SVN que impedia que la Clase TActiveX funcionase correctamente (error "Navigate" en FWH\samples\WebExp.prg)

Aqui estan los detalles de los cambios a implementar en Harbour:
http://www.mail-archive.com/harbour@harbour-project.org/msg18014.html

Viktor ha quedado en incluirlos mañana en el SVN de Harbour

[Rossine]

Gracias Antonio vamos aguardar viktor

[Lautaro]

Rossine, Antonio,


Una observacion, en la clase tactivex, hay que hacer una pequeña correccion en el metodo :setprop

que dice :

Code: Select all  Expand view

 
 METHOD SetProp( cPropName, uParam1 ) INLINE __ObjSendMsg( ::oOleAuto,cPropName, uParam1 )
 

y debe decir :

Code: Select all  Expand view

   METHOD SetProp( cPropName, uParam1 ) INLINE __ObjSendMsg( ::oOleAuto,"_"+cPropName, uParam1 )
 

Atte.,

Lautaro Moreira
Osorno
Chile

[Antonio Linares]

Lautaro,

Gracias!