Discussion :

[bvsud]

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

Merci :hello:

[sat83]

Tu peux regarder du cote de FileOpen et du flag fmShareExclusive

Code :

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

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 ;

[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

[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 :

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

1
2
if IOResult=0 then 
//...(traduit en bon français : «si y'a pas de couille dans l'potage then...»)

[bvsud]

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 :

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

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.