Discussion :

[SylvainAO]

Bonjour à tous,

Cette question a peut-être déjà été posée mais je n'ai pas trouvé ma réponse sur ce forum.

Voilà le problème : J'ai une application multi-thread. Un des thread utilise un fichier de journalisation dans lequel il écrit à interval régulier (environ 10 fois par secondes).

Je voudrais pouvoir ouvrir le fichier log à partir du thread principal pour remplir un TMemo.
Bien sûr, je tombe sur des exceptions du type EFOpenError car le fichier est réservé par l'autre thread.

Pourtant, j'arrive très bien à ouvrir ce fichier avec Notepad pendant que mon thread écrit dedans !

Comment faire pour demander une ouverture en lecture seule et remplir mon TMemo ?

[HumanTool]

salut,
si tu utilise la classe TFileStream dans ton thread principal, appele le create avec (le nom de fichier texte, fmCreate, fmShareDenyNone)

fmShareDenyNone Rien n'empêche les autres applications de lire ou d'écrire dans le fichier.

[SylvainAO]

Ok merci, je vais tester ça.
Mais je suppose que tu voulais dire que je dois utiliser cette classe surtout dans mon deuxieme thread.

[HumanTool]

oui oui oups

[SylvainAO]

Bizarrement, c encore pire qu'avant !
Maintenant même Notepad ne peut plus ouvrir le fichier...

Je fais ca :

Dans le constructeur de ma classe :

Code :

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

1
2
 
FLogFile := TFileStream.Create(FLogFileName, fmCreate, fmShareDenyNone);

Ensuite j'ai une procédure pour journaliser :

Code :

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

1
2
3
4
5
 
procedure TRplEngine.LogToFile(text: string);
begin
    FLogFile.Write(PChar(text)^, Length(text));
end;

Et dans le destructeur :

Code :

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

1
2
 
FreeAndNil(FLogFile) ;

L'écriture dans le fichier se passe bien (sauf que je ne trouve pas comment faire des retours chariots)
Mais impossible d'accéder au fichier en lecture, que ce soit avec mon thread principal ou avec une autre appli (Notepad, etc.)

Je ne comprend pas ce qui cloche....

[HumanTool]

L'écriture dans le fichier se passe bien (sauf que je ne trouve pas comment faire des retours chariots)

remplace write par writeln

Mais impossible d'accéder au fichier en lecture, que ce soit avec mon thread principal ou avec une autre appli (Notepad, etc.)

j'avais pas lu la fin de l'aide... :

Le paramètre Rights indique les bits de permission pour la création du fichier sur Linux lorsque Mode a la valeur fmCreate. Rights est ignoré lorsqu'il est utilisé avec la plate-forme Windows.

je fais la même chose avec un service windows et je ne garde pas le fichier ouvert je le réouvre et j'append

[SylvainAO]

remplace write par writeln

Bizarrement, cette méthode n'est pas documentée dans D2005

je fais la même chose avec un service windows et je ne garde pas le fichier ouvert je le réouvre et j'append

C'est ce que je faisait avant, avec une boucle qui essaye 10 fois d'ouvrir... mais c'est pas très propre.

[HumanTool]

remplace write par writeln

Passe à ta procedure LogToFile le retour chariot:

Code :

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

LogToFile(#13#10);

C'est ce que je faisait avant, avec une boucle qui essaye 10 fois d'ouvrir... mais c'est pas très propre.

c'est vrai, essaye avec un timer d'aller le lire le fichier suivant un interval donné...avec une proba de tomber sur un verrou lors de l'écriture dans le fichier +/- petite....

[edam]

si tu ecrie et tu lie le meme fichier dans le prog pourqoi pas passée par la mémoir (fichier mapper, ou simplement un tableau dinamique)

[SylvainAO]

C'est bon j'ai trouvé.
Il ne fallait pas écrire :

Code :

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

FLogFile := TFileStream.Create(FLogFileName, fmCreate, fmShareDenyNone);

mais

Code :

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

FLogFile := TFileStream.Create(FLogFileName, fmCreate or fmShareDenyNone);

Très mal documenté par Borland...

[HumanTool]

si c mal documenté tu l'a trouvé où ?
est si c résolu cliques sur résolu....

[SylvainAO]

J'ai trouvé ça sur un forum anglophone, mais je me souviens plus où.
Désolé pour le "Résolu". Pas habitué encore