Discussion :

[petitcoucou31]

bonjour

Quelques conseils sur l'utilisation des TfileStream serait le bien venu !

Ci-dessous une routine qui n'est utilisée que par un logiciel propriétaire et plusieurs fois durant son utilisation.

Code :

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

1
2
3
4
5
6
7
8
 
procedure chargement...
begin
  fs_Mesure := TFileStream.Create(CheminUtilitaire+'Mesure.fsm', fmOpenRead);
  fs_Mesure.Position:=0;
  while (fs_Mesure.Position < fs_Mesure.Size) do fs_Mesure.Read(MesParam,sizeof(MesParam));
  FreeAndNil(fs_Mesure);
end;

mon problème vient du fait que de manière tout a fait aléatoire mais assez fréquemment j'ai une exception me disant que le fichier mesure.fsm est occupé par une autre processus et il n'y a aucune raison qu'une autre application y fasse appel.

CE TfileStream est il bien libéré avec un freeAndNil ? est ce la bonne méthode de libération ... ou des idées sur le problème.

[Andnotor]

Ci-dessous une routine qui n'est utilisée que par un logiciel propriétaire et plusieurs fois durant son utilisation.

Est-ce que tu n'ouvres pas toi-même ce fichier en exclusif (fmShareExclusive) depuis un autre thread ?

CE TfileStream est il bien libéré avec un freeAndNil ?

C'est sûr que non s'il y a exception

Mais même si ce fichier reste ouvert, il n'a pas de verrou, donc ne pose pas de problème.

[retwas]

Tu peux utiliser un try ... finally.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure chargement...
begin
  fs_Mesure := TFileStream.Create(CheminUtilitaire+'Mesure.fsm', fmOpenRead);
 
  try
    fs_Mesure.Position:=0;
 
    while (fs_Mesure.Position < fs_Mesure.Size) do 
      fs_Mesure.Read(MesParam,sizeof(MesParam));
  finally
    FreeAndNil(fs_Mesure);
  end;
end;

[petitcoucou31]

salut

Andnotor, j'ai scruté le code pour voir s'il y a d'autre appel via un autre thread et non.
Chaque fois que ces "TFileStream" sont crées ils sont bien détruit, tous cela se passe en local sont simple à contrôler.

tu dis " Mais même si ce fichier reste ouvert, il n'a pas de verrou, donc ne pose pas de problème.", pourtant mon exception est bien a la création du TFileStream avec le message decrit dans mon 1er post (occupé par une autre processus).

retwas je vais tenter de mettre le gestionnaire d'erreur. mais cela ne réglera pas le probleme de fond.

merci

[Papy214]

Est-on sûr que la procédure est appelée une seule fois ?
2 appels simultanés pourraient créer le problème.


Sinon, en utilisant un TMemoryStream, ça devrait régler le problème puisque le fichier sera lu en une seule passe et mis en mémoire.
Enfin, ça dépend de la taille du fichier bien sûr.

[Andnotor]

pourtant mon exception est bien a la création du TFileStream avec le message decrit dans mon 1er post (occupé par une autre processus).

Ce n'est qu'une conséquence et non la source du problème.