Discussion :

[remus2968]

Bonjour,

Je voudrais savoir si je peux utiliser cette procedure à travers des threads différents sur le même fichier de log sans utiliser de Mutex dans cette procédure.
Ne risque t'on pas d'avoir des execptions sur l'accès concurrent à ce fichier et ainsi créer a crash de l'appli?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure DoAddLog(FileName, Line: string);
var
  LogFile: Text;
begin
  try
    //Créé le fichier s'il n'éxiste pas
    if CreateLogFile(FileName, False) then
    begin
{$I-}
      Assign(LogFile, FileName);
      Append(LogFile); 
      Writeln(LogFile, Line);
      CloseLogFile(LogFile);
{$I+}
    end;
  except
    on E: EInOutError do
    begin
    end;
  else
    raise;
  end;
end;

[Rayek]

Utilisant beaucoup les Thread, je n'écris les logs dans le fichier qu'une fois à la fin du traitement (ça évite de sollicité en ouverture/écriture le fichier x fois)

Sinon, j'utilise cette petite procedure pour mes logs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
procedure CreateLogFile(sFilename,sText : String);
var
  FText : TextFile;
  sFile, sDir : String;
begin
  try
    // GAPPPATH est une variable globale contenant le chemin du logiciel
    sDir := GAPPPATH + '\logs\' + FormatDateTime('YYYY\MM\',Now);
 
    if not DirectoryExists(sDir) then
      ForceDirectories(sDir);
    sFile :=sDir + sFileName;
    AssignFile(FText,sFile);
    if FileExists(sFile) then
      Append(FText)
    else
      ReWrite(FText);
    try
      Writeln(FText,Trim(sText));
    finally
      Closefile(FText);
    end;
  Except on E:Exception do
    begin
      if IOResult = 32 then
        CreateLogFile(sFileName,sText)
      else
        ShowMessage(E.Message);
    end;
  end;
end;

PS: penses à utiliser les balises de code (le # dans la barre d'outils) pour tes bouts de source.

[remus2968]

Merci pour t'as procédure, mais peut on l'appeller à partir de plusieurs threads avec le même nom de fichier sans créer d'exception?
Pourquoi relances tu la procédure lors de l'exception avec IOResult = 32?

[Rayek]

Pourquoi relances tu la procédure lors de l'exception avec IOResult = 32?

C'est le cas où j'ai une exception car le fichier est déjà ouvert par un autre thread, donc si j'ai cette erreur, je relance une tentative d'écriture.

[ShaiLeTroll]

Pour éviter les problèmes de partage, mettre l'ID du Handle dans le nom du fichier permet d'éviter ce problème ...

Si tu veux avoir qu'un seul fichier de log, lorsque j'ai beaucoup de thread simultané (seul FastMM permet d'avoir un grand nombre sans trop de perte de perf), ils n'écrivent pas le log dans un fichier mais dans une threadliste utilisé par un autre thread (souvent le OnIdle de l'Application, ou carrément un thread séparé) dédié au log qui lui écrira le log en traitant la liste comme une FIFO, biensur, j'ai aussi la fonction pour écrire réellement dans le log pour les cas ou je veux être sur que l'écriture à eu lieu ... le fichier étant géré par une section critique dans mon programme pour gérer préventivement les locks au lieu de laisser faire des erreurs ...

[remus2968]

Merci pour vos réponses. Je vais opter pour l'utilisation d'un mutex sur cette procédure comme ça plus de soucis de gestion d'exceptions.