Gerar Arquivo de Erros (log) em Tempo de Execução.

[Valdir]

Boas...

Neste meu aprendizado sobre o uso do MariaDb, utilizo a versão 18.12 da Fivewin com o xHarbour.

Para Compilar, utilizo os scripts .Bat e .Lnk

Arquivo .Bat
///////////////////////
@Echo Off
Cls
Echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo ³ FiveWin For xHarbour 18.12           -            FIVE SOLUTION S/C. Ltda. ³Ü
Echo ³ xHarbour 1.2.3 Intl. (SimpLex)       -                      Build 20181203 ³Û
Echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
Echo ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

Set hdir=C:\XHB1812
Set bcdir=C:\bcc7
Set Fwhdir=C:\FWH1812

@If Exist *.Bak        Del *.Bak
@If Exist *.Obj        Del *.Obj
@If Exist *.Log        Del *.Log
@If Exist *.Map        Del *.Map
@If Exist *.PPO        Del *.Ppo
@If Exist *.TDS        Del *.TDS

@If Exist *.C          Del *.C
If Exist VISUAL.Exe Del VISUAL.Exe
%hdir%\bin\harbour VISUAL   /m/n /i%fwhdir%\include;%hdir%\include;%bcdir%\include /w0 /p > Erro.log
%hdir%\bin\harbour MENUPRI  /m/n /i%fwhdir%\include;%hdir%\include;%bcdir%\include /w0 /p > Erro.log
........
%bcdir%\bin\bcc32 -M -c -v -O2 -eVISUAL.exe       -I%hdir%\include -I%bcdir%\include VISUAL.C    >> Erro.log
%bcdir%\bin\bcc32 -M -c -v -O2 -eMENUPRI.exe      -I%hdir%\include -I%bcdir%\include MENUPRI.C   >> Erro.log

Arquivo .Lnk
////////////
c0w32.Obj                               +
VISUAL.OBJ                              +
MENUPRI.OBJ                             +
......
C:\FwH1812\lib\FiveHX.lib            +
C:\FwH1812\lib\FiveHC.lib            +
C:\FwH1812\lib\libmysql.lib          +
.....
C:\Bcc7\lib\cw32.lib             +
C:\Bcc7\lib\import32.lib         +

Porém até o momento não consegui gerar o arquivo de "Error.Log" quando ocorre algum erro de execução.

Sempre que ocorre algum erro em Run Time, é apresentada a Tela abaixo.

Será que estão faltando algumas configurações nesse meus scripts 

Alguém sabe como corrigir isso ?

Obrigado

 

[kapiaba]

Mestre, estais usando o ERRSYSW.PRG da   versão 18.12? Ele está em: C:\FWH1812/SOURCE\FUNCTION.

NUNCA deveis utilizar uma versão # do ERRSYSW.PRG de outra versão. xekays porfa e retorne sim?

Podeis modificar à gosto o ERRSYSW.PRG, mas, sempre que atualizar a versão do FIVE, deveis atualizar o ERRSYSW.PRG da versão nova, inclusive, para enviar-te emails de erros do teu sistema(programa), simples e fácil de fazer, usando o RMAIL.PRG by Ricardo Marques, talkey()?? Dúvidas quanto ao RMAIL.PRG, nem me vistes, tá?   kkkkkkkkkkkkk

Abs.

[kapiaba]

Veja que simples, eu crio um Preview(Printer.prg) e mostro ao uçuário e depois, disparo um email de erro ao suporte:

 

 

[Valdir]

 

Mestre, estais usando o ERRSYSW.PRG da   versão 18.12? Ele está em: C:\FWH1812/SOURCE\FUNCTION.

NUNCA deveis utilizar uma versão # do ERRSYSW.PRG de outra versão. xekays porfa e retorne sim?

Podeis modificar à gosto o ERRSYSW.PRG, mas, sempre que atualizar a versão do FIVE, deveis atualizar o ERRSYSW.PRG da versão nova, inclusive, para enviar-te emails de erros do teu sistema(programa), simples e fácil de fazer, usando o RMAIL.PRG by Ricardo Marques, talkey()?? Dúvidas quanto ao RMAIL.PRG, nem me vistes, tá?   kkkkkkkkkkkkk

Abs.

Fala Tranka...

Obrigado por responder.

Sim... sempre uso as versões que estou compilando.

Abraços.

[kapiaba]

Então, você está tendo ESTOURO DE PILHA, por falta de memória RAM, ai, o ERRSYSW.PRG não pega talkey()?

Faça assim no ERRSYSW.PRG E verifique qual função, está ESTOURANDO A PILHA, causa provável, um WHILE... ENDO, sem o SysRefresh() ou é um WINDOWS de 64 bits com menos de 8 GBs de RAM. Isso não podyyyy talkey()???

   LOCAL oEmail, cMemoAtual, oGetMail
   LOCAL nSpaceDisk, lsucesso := .F.
   LOCAL oPrn, cError, nLin, nLinha
   LOCAL cSeqErro, cAlias
	  
   cMemoAtual := Trans( Int( nExtMem() / ( 1024 * 1024 * 1024 ) + 1 ), "@E 999.99 GB Free" ) + ;
      " -> EM WINDOWS DE 64 BITS, MINIMO: 8 GBs DE RAM." +CRLF+ ;
      "   SE VOCE TEM MENOS DE 8 GBS, PROVIDENCIE NOVOS PENTES DE MEMORIA." +CRLF+ ;
      "   SE O SEU WINDOWS FOR DE 64 BITS. WINDOWS DE 32 BITS, MINIMO: 4 GBS DE RAM."
	   // Preciso saber qual a memoria da maquina
   cErrorLog += "   Memoria Disponivel:  " + cMemoAtual        + CRLF
	   cErrorLog += "   Sistema Operacional: " + OS() +" - "+ Iif( IsWin64()," (64 bits)", " (32 bits)" ) + CRLF