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;