Discussion :

[gaston11]

Bonsoir a tous!
voilà, pour mon projet j'ai besoin de savoir si un fichier est ouvert, j'ai trouvé ici le code suivant:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
 
 function FichierOuvert(NomFichier : string; CodeRetour:Integer):Boolean;
//Test si un fichier est ouvert ou indisponible
// CodeRetour = 0 pas ouvert - 32 : violation de partage - sinon autre erreur
Var
   F:TextFile;
begin
  FichierOuvert := True ;
  // Test du fichier
  AssignFile(F,NomFichier);
  {$I-}
  Reset(F);
  {$I+}
  CodeRetour := IOResult ;
  Case IOResult Of
    // Pas d'erreur
    0 :Begin
         CloseFile(F);
         FichierOuvert := False ;
//         ShowMessage('Le fichier existe et n''est pas ouvert.');
       End;
//         L'erreur 32 est une violation de partage
    32:
       Begin
//          ShowMessage('Le fichier est déjà ouvert.');
       End ;
  Else
    // Autre erreur
//    ShowMessage('Erreur '+IntToStr(IOResult));
  End;
End;

le programme se plante avec l'erreur 'E/S 103'.

que se passe-t-il? ou est l'erreur?

merci

[Ph. B.]

Bonsoir,

Extrait de l'aide de Delphi :

103 Fichier non ouvert Rapportée par CloseFile, Read Write, Seek, Eof, FilePos, FileSize, Flush, BlockRead ou BlockWrite si le fichier n'est pas ouvert.

Le fichier n'existe pas : mauvais nom, mauvais chemin.

[Andnotor]

C'est parce que cette routine est fausse. IOResult ne peut être lu qu'une seule fois. Sa lecture entraîne sa remise à zéro immédiate.
Sur le case et puisque IOResult vaut à nouveau 0, un CloseFile est lancé sur un fichier qui n'est pas ouvert (E/S 103).

J'aivais déjà mentionné cela ici avec quelques autres remarques.

CodeRetour devrait également être déclaré en out.

[gaston11]

merci a tous!!!

bonne soirée!