Monitor de eventos usando una clase
 

Buenas colegas. aqui tengo otra experiencia que quiero compartir con ustedes.

Para la mayoria de mis proyectos, necesito hacer un monitoreo de los eventos que sucede durante la ejecución. de esta forma puedo depurar mas los errores encontrados.

En esta oportunidad, mi clase monitoreo para ustedes.

Código Delphi [-]
type
  TMonitorLog = class
  private
    Fventana: tmemo;
    Fbolsa: tstringlist;
    procedure Setventana(const value: tmemo);
  public
    constructor create; overload;
    destructor destroy; overload;
    procedure evento(msg: string); // registrar un evento
    procedure volcar(archivo: string = '.\logs\eventos.log');
    property ventana: tmemo read Fventana write Setventana;
  end;

implements

{ TMonitor }

constructor TMonitorLog.create;
begin
  inherited;
  Fbolsa := tstringlist.create;
  Fbolsa.Add('Eventos: ' + datetimetostr(now));
end;

destructor TMonitorLog.destroy;
begin
  // self.volcar; //activar para un volcado a su destruccion.
  Fbolsa.Free; // liberar bolsa
  inherited;
end;

procedure TMonitorLog.evento(msg: string);
begin
  if assigned(Fventana) then
  begin
    Fventana.Lines.Add(msg);
    Fventana.Perform(EM_SCROLLCARET, SB_PAGEDOWN, 0);
    // auto deslise de la ventana
  end;
  Fbolsa.Add(msg);
end;

procedure TMonitorLog.Setventana(const value: tmemo);
begin
  Fventana := value;
  Fventana.Lines.Clear;
  Fventana.Lines.Add('Monitor de eventos: listo');
  fventana.ScrollBars := ssVertical;
end;

procedure TMonitorLog.volcar(archivo: string);
begin

  Fbolsa.SaveToFile(archivo);
  Fbolsa.Add('volcado ok');
  if assigned(Fventana) then
    Fventana.Lines.Add('volcado ok');

end;

Desde ya, gracias por la atencion.

saludos cordiales.

muy interesante :), y como lo aplicas?? :o perdona mi ignorancia

Hola, me podrias explicar como utilizar este log de eventos, por favor


Gracias

Tener una forma de logear eventos es algo critico en una aplicacion. Desde hace un par de años he implementado la practica y es algo muy bueno en especial para detectar post-morten que paso con un error o problema.

Hay varias opciones en Delphi:

http://stackoverflow.com/questions/8...age-for-delphi

http://stackoverflow.com/questions/7...rary-is-better

Esta opcion open source de Synapse parece buena

http://blog.synopse.info/post/2011/0...-in-SynCommons

La idea es que insertas miles y miles de llamadas al log (si: Cuando logeas, mas es mejor!. Solo hay que tener cuidado a la hora de invocar funciones con efectos colaterales que pudieran corromper las cosas ie: No invocar una insercion en BD, modificacion archivos, etc)

Código Delphi [-]
procedure TMyDB.SQLExecute(const SQL: RawUTF8);
var ILog: ISynLog;
begin
  ILog := TSynLogDB.Enter(self,'SQLExecute');
  // do some stuff
  ILog.Log(sllInfo,'SQL=%',[sql]);
end; // when you leave the method, it will write the corresponding event to the log

Resultado:

Ahora bien, el siguiente problema es como rayos examinar esos logs. Porque se vuelven grandes. Y como hacer para leer los logs sin ir a cada cliente y abrir los archivos locales. Para eso hay servicios como http://loggly.com/ que permtien enviar por APIs el log a un servidor central y usarlo como un visor global de TODOS los logs.

Luego de experimentar mucho, he llegado a un estilo que me permite injectar multiples logeadores y notificadores (por ejemplo, tengo llamadas a un servicio que me guarda la info de desempeño, memoria, CPU del codigo para ver si la APP esta corriendo por debajo de lo usual, y otros sensores de datos).

Lo que he hecho es tener una libreria llamada "notify" que me encapsula todo. Esta en python, pero la idea es masomenos:

Notificador por GROWL, que puede o no estar instalado
Logeo de eventos:

Y envio el log al servidor remoto:

Y sensor (invoca un servicio web, asincronicamente. Si falla? Se pierde el dato pero la app sigue):

Y luego lo extiendes a mandar correos y mas cosas.

Es mucho mas centralizado de lo que muestro, es para que quede mas claro la idea. Eso quiere decir que cuando llamo:

Pasa lo siguiente:

1- Se va el error a la consola DOS/terminal *nix (si la app corre en consola)
2- Se guarda en un archivo log, que se rota cada 7 dias
3- Se envia (si es posible) el error a loggy
4- Se notifica por email al usuario que el servidor a fallado (porque puede que el servidor este en un equipo lejano)
5- Se envia por growl el error (si esta instalado, por ejemplo, se corre la app en la maquina del usuario, no tienen equipo servidor aparte)

gracias por la explicacion, :)

Si, gracias...ahora me daré de cabezazos para tratar de entender un poco!!:confused:

Gracias^\||/