fichero log

[[duilioisola]]

¿Existe la posibilidad de crear un objeto log, que sea global a todas las clases?

Si existe...
Creas la clase TLog y luego la instacias y la utilizas desde cualquier otro lugar...
El problema: Reutilización!
Si en otro proyecto quieres utilizar alguno de los objetos que habías creado tendrás que crear una clase TLog con el mismo nombre y que quizás no quieras.
También tendrá que estar en el mismo Formulario o DataModule.

He visto que en mi post anterior se repite código. Supongo que esto sería mejor y que puedes agregar a cada una de las clases que tengas:

Código Delphi [-]
clase TMatematica1
  ...
  private
     MiLog : Log
     procedure NuevaLineaLog(s: string)
  ...
  public
    procedure HacerAglo;
    procedure AsignaLog(Log : TLog)
end

procedure TMatematica1.AsignaLog(Log : TLog)
begin
  MiLog := Log;
end

procedure NuevaLineaLog(s: string)
begin
  if Assigned(MiLog) then MiLog.NuevaLinea('Matematica1 esta HaciendoAlgo');
end

procedure TMatematica1.HacerAglo;
var
  Resultado : Integer;
begin
  NuevaLineaLog('Matematica1 esta HaciendoAlgo');
  ...
  NuevaLineaLog('Resultado de Matematica1: ' + IntToStr(Resultado));
end

[[duilioisola]]

De manera global sería más o menos así:

Código Delphi [-]
clase TLog
  Fichero: string
  Lineas: TStrings
  procedure Inicializar(UnFichero: string);  // Asigna el nombre del fichero donde guardar el log y crea Lineas
  procedure NuevaLinea(s: string) // Crea una nueva linea en el log (fecha - hora - s)
  procedure Dump; // Guarda las lineas en el fichero y borra Lineas
end

clase TMatematica1
  ...
  MiLog : Log
  ...
  procedure HacerAglo;
end

procedure TMatematica1.HacerAglo;
var
  Resultado : Integer;
begin
  LogGlobal.NuevaLinea('Matematica1 esta HaciendoAlgo');
  ...
  LogGlobal.NuevaLinea('Resultado de Matematica1: ' + IntToStr(Resultado));
end

var
   LogGlobal : TLog;
begin
  LogGlobal.Inicializar('c:\Log.txt');
  ...
  LogGlobal.Dump;
end.

[Neftali [Germán.Estévez]]

Personalmente creo (y así lo hago yo) que es mejor un elemento Global a toda la aplicación. Puede ser una clase o un componente.

Yo mismo tengo publicado uno que utilizo en algunas de mis aplicaciones; El componente TlogDisk, que forma parte de GLib.



El código lo puedes descargar y puedes echarle un vistazo. Cualquier sugerencia para completarlo también será bienvenida.

[[Lepe]]

Yo creo para algo está la parte "initialization" y "finalization" de la unidad. Así, creas y destruyes el log en los lugares adecuados.

Si una unidad hace un uses de la unidad UnitLog, primero se inicializa la unidad UnitLog (creandose la variable Log y estando disponible antes de que se cree la primera ventana que hace uso de él). Al destruirse, se destruye cuando ya nadie hace uso de dicha unidad, por tanto es de nuevo, el lugar adecuado.

En lo personal, tengo Mi log creado en una única .pas como una clase y siempre abro el archivo, guardo el string y cierro el archivo de log. Es algo egoista en el uso del disco duro, pero siempre tendré todos los mensajes de depuración aún cuando haya excepciones anidadas y cosas raras... nunca se queda el archivo de log abierto, con mensajes pendientes ni nada de eso...

Código Delphi [-]

type TlpLog = class(TObject)
...

end;

var log:TlpLog;

implementation

....

initialization 
log := TlpLog.Create;

finalization 
log.free;

Con solo hacer un "uses" de esta unidad, ya puedes usar el log.

[zampa]

Muchas gracias por todas las respuestas.

Al final me he decantado por declarar el objeto global, y hacer únicamente uso del uses. Desde cualquier sitio dónde los necesito lo llamo. Como parámetro incluyo self, para poder decir de quien ha venido la llamada, y que padres y abuelos tiene.

Bueno, muchas gracias por la ayuda. Me ha servido de mucho