Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Generar logfile con varios archivos (https://www.clubdelphi.com/foros/showthread.php?t=96138)

jars 01-03-2023 14:29:16

Generar logfile con varios archivos
 
Hola amigos.
Estoy usando en mis proyectos archivos de log que al llegar a un tamaño parametrizado se renombran y arranca uno nuevo. Es decir genero MiProyecto1.log y al llenarse, lo renombro como MiProyecto2.log y creo uno nuevo MiProyecto1.log.
Lo que estoy necesitando para un proyecto que genera muchísima información y llega al tamaño máximo muy rápido, es poder tener mas historia para poder auditar en caso de necesidad. Quisiera poder generar lo siguiente:
MiProyecto1.log, MiProyecto2.log, MiProyecto3.log, MiProyecto4.log, MiProyecto5.log, MiProyecto6.log, MiProyecto7.log, MiProyecto8.log, MiProyecto9.log, MiProyecto10.log
El problema es que a medida que se van llenando se van renombrando para que siempre el 1 es el actual, el que le sigue sea el 2 y el mas viejo el 10. Hay algo hecho así?
Gracias.

lucho6007 01-03-2023 15:25:30

Hola!
Lo razonable es que vayas llenando siempre el último archivo, y al llegar a X tamaño, generes un nuevo archivo con el nuevo nombre.
Podés tener una función que haga el log, y en esa función verificas el nombre del archivo y el tamaño.


Suerte!

duilioisola 01-03-2023 20:37:51

Esta es una opción.
Lo que no se es cuanto tardará cuando haya cientos de ficheros log.
Esta función te renombra los ficheros posteriores al 1.
Luego tendrías que renombrar el 1 como 2 y reiniciar el log con el nuevo fichero 1.

Código Delphi [-]
procedure RotarLogs(NombreFichero : string);
var
  i : integer;
begin
  // Empiezo en el segundo, porque el primero es en el que se está escribiendo
  i := 2;
  
  // Busco el ultimo fichero de log
  while FileExists(NombreFichero+IntToStr(i)+'.log') do
     inc(i);
  
  // Recorro los ficheros log encontrados en forma inversa, renombrandolos con el numero siguiente  
  while (i > 2) do
  begin  
    dec(i);
    // *RenameFile* no se si existe en Delphi
    RenameFile(NombreFichero+IntToStr(i)+'.log', NombreFichero+IntToStr(i+1)+'.log');
  end;
end;

mamcx 01-03-2023 21:24:02

Cita:

Empezado por jars (Mensaje 550613)
El problema es que a medida que se van llenando se van renombrando para que siempre el 1 es el actual, el que le sigue sea el 2 y

Asi tienes un problema de contención (puedes estar escribiendo el archivo mientras lo cambias de nombre) y es errado el algoritmo.

Lo que se hace es que tienes un archivo `x.log`. Cuando se llena, se copia a `x.1.log`, te vas de nuevo al inicio del archivo y sigues escribiendo.

De esta forma, solo `x.log` es accesado para escritura y el SO puede hacer cambios atómicos en los archivos al copiar.


La franja horaria es GMT +2. Ahora son las 11:58:23.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi