Discussion :

[Benoit_T]

Bonjour,

J'ai un petit soucis dans la synchronisation de mes fichiers.

En fait, un fichier req.txt est utilisé par deux exécutables, a et b. a réécrit régulièrement ce fichier et b le lit en boucle et si le fichier a été modifié, il opère des traitements.

Le problème est le suivant:

Mon application plante si a écrit le fichier alors que b est en train de le lire.

Comment verrouiller mon fichier lorsqu'il est écrit par a ou lu par b?

Je voudrais un code du style:

Dans le code de b:

Code :

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

1
2
3
4
5
6
7
8
procedure lectureDansB (fichier : String);
...
While FichierEnEcritureDansA(fichier) do // On attend que a ait fini d'écrire
begin
   Sleep (100); 
end;
... // Lecture du fichier
end;

Dans le code de a:

Code :

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

1
2
3
4
5
6
7
8
procedure EcritureDansA (fichier : String);
...
While FichierEnLectureDansB(fichier) do // On attend que b ait fini de lire
begin
   Sleep (100); 
end;
... // Ecriture du fichier
end;

En fait, je ne vois pas comment écrire les méthodes FichierEnEcritureDansA et FichierEnLectureDansB me renvoyant vrai si respectivement le fichier est en écriture dans a et en lecture dans b.

Cordialement.

[Invité1]

J’ai une idée à te proposer mais je ne l’ai jamais essayée

Je te propose d’utiliser les fonctions
-FileSetReadOnly(constFileName:string;ReadOnly:Boolean):Boolean : Définit les autorisations de fichiers àlecture seule.
-FileIsReadOnly(constFileName:string):Boolean : Indique si le fichier est en lecture seule.

Utiliser un autre fichier temporaire temp.txt, et dés que B libère ton fichier req.txt tu le remplace par ton fichier temporaire temp.txt .

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 lectureDansB (fichier : String);
begin
FileSetReadOnly(fichier, true);
..............//Lecture du fichier
FileSetReadOnly(fichier, false);
End;
 
 
Procedure ecrituredansA(fichier:string);
Begin
………// ecrire dans le fichier temporaire
While FileIsReadOnly(fichier) = 1 do
Sleep(100)
………..//ecraser le fichier req.txt par le temporaire
End;

Je ne sais pas si ça va marcher mais c’est une piste

Bonne chance

[Andnotor]

Si tu accèdes à tes fichiers par TFileStream, tu peux spécifier le mode fmShareExclusive.

Dans tes applications, tu peux aussi utiliser un Event qui est fait pour la synchronisation.

CreateEvent,
SetEvent,
ResetEvent,
WaitForSingleObject.

ou SyncObjs.TEvent.