Savoir si un fichier est "locké"

Version imprimable

09/12/2010, 13h12
bvsud

Savoir si un fichier est "locké"

Bonjour à tous :)

Afin d'éviter une exception à l'ouverture d'un fichier, je voudrais savoir s'il existe une API permettant de savoir si un fichier est "locké". Soit par un autre prog, soit par l'OS.

J'ai cherché ds ma doc sur les API Win32... pas grand chose : il semble que seule CreateFile() dispose d'un dword (dwShareMode) permettant de savoir justement si le périphérique (ou fichier) est libre ou non.

Mais : faut-il déjà créer le fichier, ce qui va provoquer l'exception (Handle_F := FileOPen(Nom_Fichier, fmOpenRead);

Il doit bien y avoir un moyen :koi:

Merci :hello:

Tu peux regarder du cote de FileOpen et du flag fmShareExclusive

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 var
 Handle : Integer;
 [...]
 Handle := FileOpen( f , fmShareExclusive ); // Ouvrir le fichier en mode exclusif
 if (Handle <> -1) then                    
 begin
   FileClose(Handle) ;
   // Le fichier est non utilisé;
 end else
 begin
  //Le fichier est déja utilisé
 end ;

09/12/2010, 20h42
Andnotor

Il n'y a à ma connaissance pas d'autre moyen que d'essayer d'ouvrir un fichier en écriture.

Il faut également comprendre que gérer une exception n'est pas forcement négatif (si elle n'intervient pas 100x à la seconde) et surtout pas plus compliqué qu'un if ;)
10/12/2010, 00h31
Caribensila
Salut,

Sur D7, j'encadre les instructions 'chatouilleuses' par {$I-} et {$I+}. Directives qui mettent entre parenthèses les prises en compte des erreurs d'Entrée/Sortie (s'il y a eu un message d'erreur, IOResult envoie une valeur <>0 qui correspond au code d'erreur d'Entrée/Sortie).

Puis faire
Code:

1 2 if IOResult=0 then //...(traduit en bon français : «si y'a pas de couille dans l'potage then...»)
10/12/2010, 07h25
bvsud
Citation:
Envoyé par Caribensila

Salut,

Sur D7, j'encadre les instructions 'chatouilleuses' par {$I-} et {$I+}. Directives qui mettent entre parenthèses les prises en compte des erreurs d'Entrée/Sortie (s'il y a eu un message d'erreur, IOResult envoie une valeur <>0 qui correspond au code d'erreur d'Entrée/Sortie).

Puis faire

Code:

1 2 if IOResult=0 then //...(traduit en bon français : «si y'a pas de couille dans l'potage then...»)
Vous avez raison tous les deux. J'ai tendance à prendre les exceptions pour des bugs, alors qu'il s'agit d'autre chose.