Discussion :

[Rayek]

J'ai une petit procédure générique qui me permet de faire un fichier log

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
 
procedure CreateLogFile(sFilename,sText : String);
var
  FText : TextFile;
  sFile : String;
begin
  if not DirectoryExists(GAPPPATH + '\log\') then
    CreateDir(PChar(GAPPPATH + '\log\')); 
  sFile :=GAPPPATH + '\log\'+ sFileName;
  AssignFile(FText,sFile);
  if FileExists(sFile) then
    Append(FText)
  else
    ReWrite(FText);
  try
    Writeln(FText,Trim(sText));
  finally
    Closefile(FText);
  end;
end;

Le problème c'est que cette procédure est appellée parfois par 5-10 voir 15 thread en même temps pour le même fichier.
Le soucis c'est que parfois jai une erreur E/S 32, car il y a une ouverture/fermeture simultané sur le fichier log.
Y a t il un moyen de savoir ou de mettre en pause ma procédure tant que le fichier est ouvert ?
Une autre solution peut être ?

[Eric.H]

Essaye en utilisant
TThread.Synchronize, voir aide

[Rayek]

Je n'ai pas la main sur les threads, ces threads viennent d'un IdHttpServeur.
Le problème se pose au moment de la reception de plusieurs réponses.
Il peut y en avoir 1 comme 10 d'un coup.

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
 
procedure TfrmMain.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  i : integer;
  lst : TStringList;
begin
  // récupération des paramètres
  lst := TStringList.Create;
  try
    MemoMessage(mmlog,'<Get> : ' + AContext.Connection.IOHandler.InputBufferAsString);
    for i := 0 to ARequestInfo.Params.Count -1 do
    begin
      Lst.Add(ARequestInfo.Params.Strings[i]);
      MemoMessage(mmLog,'Param : ' + lst.Strings[i]);
    end;
  finally
    lst.Free;
  end;
end;

MemoMessage Fait appel à la fonction CreateLogFile

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure MemoMessage (Memo : TMemo; sText : String);
begin
  CreateLogFile(FormatDateTime('YYYYMMDD',Now) + '.log',
                  DateToStr(Now) + ' ' + TimeToStr(Now) +  sText);
  while Memo.Lines.Count > 500 do
    Memo.Lines.Delete(0);
  Memo.Lines.Add('[' + DateToStr(Now) + ' ' + TimeToStr(Now) + '] ' + sText);
end;

[Eric.H]

Peut être en utilisant une variable static (constante affectable) du genre

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
 
procedure CreateLogFile(sFilename,sText : String);
const _Libre_:Boolean=True;
var
  FText : TextFile;
  sFile : String;
begin
  ici faire une boucle qui attend que _Libre_=True, avec un repeat until ou un while
 
  _Libre_:=False;
 
  ton code de log
 
 _Libre_:=True;
end;

Attention ce n'est pas parfait, il existe quand même un laps de temps (trs petit) ou deux thread peuvent entrés en même temps dans la fonction (le temps de mettre la variable à false)

L'autre solution serait de faire un petit objet
chaque phrase du log est ajouter dans une file d'attente et l'objet (qui est un thread ou utiles un timer) les prends un par un pour les enregistrés

[Rayek]

Vu que ce ne sont que des logs, je crois que je vais faire une solution file d'attente.

Merci