Código en Delphi 6, válido para Delphi for win32 y CodeGear RAD Studio (Delphi win32)
Home
Download
Documentos
Links
Historial
Correo

Log


Componente no visual que permite crear Logs del programa en ejecución.

Propiedades:

DateTimeMask: Máscara de la fecha/hora que aparecerá en los mensajes.
FileName: Nombre del fichero Log. En caso de que no se ponga nada el componente creará un fichero con nombre aleatorio en el directorio actual.
Memory: Los mensajes se guardan en memoria(True) o no (False).
MessageColors: Colores utilizados en la ventana Viewer para mostrar los distintos mensajes.
Open: Los mensajes se guardan en el fichero especificado en FileName siempre que su valor no sea foNone. Los valores posibles son:
foNone No se crea fichero
foAppend El fichero existe y se continua escribiendo al final.
foCreate Se crea un fichero nuevo. Si el fichero existía, se sobreescribe
Viewer: Muestra/Oculta una ventana donde se van mostrando los mensajes (True/False).
Active : Activa/Desactiva (True/False) el componente.

Métodos :

Error : Escribe un mensaje del tipo 'ERROR 23/06/2003 17:19:35.030 :---[Mensaje]---'
Info : Escribe un mensaje del tipo '23/06/2003 17:19:35.030 :---[Mensaje]---'
Single : escribe sólo el texto que se le envía como parámetro.
PropValue : Dos posibilidades dependiendo de los parámetros que se le pasen.
Opción 1 : PropValue(control,propiedad) : escribe un mensaje con el valor de la propiedad del control :
'VALUE Nombre_Control 23/06/2003 17:19:35.030 :---[propiedad=Valor]---'
Opción 2 : PropValue(propiedad) : escribe el valor de la propiedad de todos los controles del form que tengan dicha propiedad : Por ejemplo
PropValue('Text') podría devolver :
'VALUES Text [23/06/2003 17:19:35.030]
   Edit1=Cosas de casa
   Edit2=Otro texto

PropValue('Enabled') podría devolver :
'VALUES Enabled [23/06/2003 17:19:35.030]
   Edit1=True
   Edit2=False
   CheckBox1=true

View : Devuelve un TStringList con los mensajes.
ClearViewer : Borra el contenido de la ventana Viewer.
Eventos:
OnActive : Se produce cuando se activa el componente.
OnDeActive : Se produce suando se desactiva el componente.

Ejemplo

Nota : La ventana Viewer tiene un menú de contexto con las opciones de 'Limpiar' , 'Guardar como...' y 'Guardar texto plano como ...'.