Multithread et fonction de log
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:
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; |
