sábado, 21 de marzo de 2015

gb.logging

Activar componente gb.logging!

' gambas class file

' by postapase

Public MisRegistros As Logger

Public Sub Form_Open()
Me.Center
MisRegistros = New Logger(Logger.Warning, Null, User.Home &/ "ArchivoLog.txt")
MisRegistros.Begin()
End

Public Sub btnRegistrar_Click()
MisRegistros.Log(txtMensaje.Text, Logger.Critical)
Wait 0.1
TextArea1.Clear
Visualizar()
End

Public Sub Visualizar()
Dim ArchivoX As File
Dim LineaX As String

ArchivoX = Open MisRegistros.Output For Read

While Not Eof(ArchivoX)
Line Input #ArchivoX, LineaX
TextArea1.Text &= LineaX & gb.NewLine
TextArea1.EnsureVisible
Wend

Close ArchivoX

End

Código fuente: MiLogger-0.0.1.tar.gz

 Metodos:

Begin:

isEnabledFor:

Log:

Propiedades de escritura y lectura

Enable:

Format:

Level:

Propiedad de solo lectura

Output: devuelve un string con la ruta y nombre del archivo log, antes definido en:
MisRegistros = New Logger(Logger.Warning, Null, User.Home &/ "ArchivoLog.txt")


Constantes:

Critical:

Debug:

DefaultFormat:

Error:

Info:

Stderr:

Stdout:

Warning


No hay comentarios.:

Publicar un comentario