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;
Partager