topic-20959

Board index FiveWin para Harbour/xHarbour Guardar errores de la aplicacion

Posts: 418

Joined: Wed Nov 26, 2008 06:33 PM

Guardar errores de la aplicacion
Posted: Fri Feb 18, 2011 05:28 PM

Saludos.

Tengo un problema para controlar los errores producidos durante la ejecucion de una aplicacion, varios usuarios me indican de un error, pero cada vez que se genera uno me actualiza el archivo error.log, que puedo hacer para que cada vez que marque uno, lo pueda guardar en un solo archivo y se le agreque el nuevo error, u otra forma de controlarlo?

Gracias.

Fwh 8.11, xH 1.1, bcc 5.5

Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com

FiveWiDi

Posts: 1446

Joined: Mon Oct 10, 2005 02:38 PM

Re: Guardar errores de la aplicacion
Posted: Sat Feb 19, 2011 08:06 PM

noe aburto wrote:Saludos.

Tengo un problema para controlar los errores producidos durante la ejecucion de una aplicacion, varios usuarios me indican de un error, pero cada vez que se genera uno me actualiza el archivo error.log, que puedo hacer para que cada vez que marque uno, lo pueda guardar en un solo archivo y se le agreque el nuevo error, u otra forma de controlarlo?

Gracias.

Fwh 8.11, xH 1.1, bcc 5.5

Desde la versión "August 2010" está:
* Enhancement: Error System in source\function\errsysw.prg
New function SetErrorPath( cPath )
Set path to save error.log file, without argument return current path else
return last path selected

Yo la uso así:
SetErrorPath( cfilepath( Arg( 0 ) ) + "\" + DToS( Date() ) + "_" + Left(StrTran( Time(), ":" ), 6) + "_" )

Si estás usando una versión de FiveWin anterior a "August 2010", puedes modificar ERRSYSW.prg; de manera que donde veas:
"Error.log"
lo sustituyes por:
cfilepath( Arg( 0 ) ) + "\" + DToS( Date() ) + "_" + Left(StrTran( Time(), ":" ), 6) + "_Error.log"

y donde esté:
WinExec( "Notepad.exe error.log" )
lo sustituyes por:
WinExec( "Notepad.exe " + Arg( 0 ) ) + "\" + DToS( Date() ) + "_" + Left(StrTran( Time(), ":" ), 6) + "_error.log" )

Despues lincas errsysw.prg en tu aplicación y creo que ya está.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

noe aburto

Posts: 418

Joined: Wed Nov 26, 2008 06:33 PM

Re: Guardar errores de la aplicacion
Posted: Sun Feb 20, 2011 07:55 PM

Perfecto, lo vaoy a checar. Solo una duda: el nombre del archivo contiene más de 8 caracteres, no hay problema con nombres largos?

Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com

FiveWiDi

Posts: 1446

Joined: Mon Oct 10, 2005 02:38 PM

Re: Guardar errores de la aplicacion
Posted: Mon Feb 21, 2011 08:25 AM

noe aburto wrote:Perfecto, lo vaoy a checar. Solo una duda: el nombre del archivo contiene más de 8 caracteres, no hay problema con nombres largos?

Yo no he tenido problemas con los nombres largos.

CUIDADO, en mi post anterior me he equivocado al hacer copiar/pegar:

ERROR -> WinExec( "Notepad.exe " + Arg( 0 ) ) + "\" + DToS( Date() ) + "_" + Left(StrTran( Time(), ":" ), 6) + "_error.log" )
CORRECTO-> WinExec( "Notepad.exe " + cfilepath( Arg( 0 ) ) + "\" + DToS( Date() ) + "_" + Left(StrTran( Time(), ":" ), 6) + "_error.log" )

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

FiveTech Support Forums

Continue the discussion