No xHarbour console eu uso/usava um módulo ErrorLog disponibilizado pelo colega Luiz Henrique dos Santos e que eu adaptei para o meu uso segundo as minhas necessidades.
No Harbour / MiniGUI ela não funciona em algumas partes importantes, principalmente na rotina abaixo:
FWriteLine( nFhandle, padc( ' Informações sobre o Erro - ErrorLog ', 83, '*' ) )
FWriteLine( nFhandle, '' )
FWriteLine( nFhandle, ' Tipo de Mensagem ..............: ' + oErr:SubSystem() )
FWriteLine( nFhandle, ' Número do Erro ................: ' + StrValue(oErr:SubCode()) )
FWriteLine( nFhandle, ' Descrição .....................: ' + oErr:Description() )
FWriteLine( nFhandle, ' Objeto do Erro ................: ' + Upper(oErr:Operation()) )
FWriteLine( nFhandle, ' Erro do DOS ...................: ' + Strvalue(oErr:OsCode()) )
FWriteLine( nFhandle, ' Área de Trabalho ..............: ' + StrValue(Select()) )
FWriteLine( nFhandle, ' Nome do arquivo ...............: ' + Dbf() )
FWriteLine( nFhandle, ' Nome do Arquivo associado .....: ' + oErr:FileName )
FWriteLine( nFhandle, ' Número de argumentos ..........: ' + AllTrim(Str(Len(oErr:args))),50)
FWrite ( nFhandle, ' Módulo .........: ' )
Onde retorna o erro:
Application Internal Error - E:\DEV2\HS6\Teste_1.exe
Terminated at: 2013.05.30 19:02:24
Unrecoverable error 9003: Too many recursive error handler calls
Alguma idéia de como contornar ?
Alguma dica para iniciar o desenvolvimento do meu módulo de erro ?
Ou existe algum módulo já desenvolvido e eu possa adaptar ?