ErrorLog para uso na MiniGUI

[Hasse]

Boa noite colegas.

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 ?

[Pablo César]

Oi Hasse,

Tem dois exemplos na Minigui:

C:\MiniGUI\SAMPLES\BASIC\ErrorLog\demo.prg
C:\MiniGUI\SAMPLES\BASIC\MyErrorFunc\fncMyError.Prg

Talvez ajude a dar uma ideia.

Aqui no fórum tem relato desse mesmo erro, verifique: https://pctoledo.org/forum/viewto ... 840#p45840

[Hasse]

Obrigado, Pablo.

Vou estudar estes exemplos.
Na dúvida volto ao assunto.