Discussion :

[BuzzLeclaire]

Bonjour à tous,

J'utilise cette fonction :

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
function LectureFichierSteDat(Chemin : String) : String;
Var
  F: TextFile;
begin
  Try
    Try
      AssignFile(F,Chemin);
      //Lire la premiere ligne AssignFile(F,ExtractFilePath(Application.ExeName)+'test.txt');
      Reset(F); //Ouvre le fichier sans le modifier
      Readln(F,result);
      //Lit une ligne du fichier texte jusqu'au prochain saut de ligne
    Except
      On EInOutError do
      Begin
        Result := '< inconnu >';
        raise;
      end;
    end;
  Finally
    CloseFile(F); //Ferme l'association entre la variable F et le fichier texte
  end;
end;

Qui me retourne la première ligne d'un fichier.

Mais si le fichier que j'envoi n'existe pas, j'ai un beau message I/O error, normal, mais je voudrais évité ce message, apparement le bloc Except ne joue pas son rôle ?

Pouvez-vous m'expliquer ?

[Rekin85]

Bonjour,
Si mes savoirs sont bons : si ton fichier n'existe pas, c'eat au Reset(F) que l'erreur devrait être générée.
Il y a un moyen de le savoir en plaçant cette instruction hors génération d'erreur et en testant la variable IOResult...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
{I-}
Reset(F);
{I+}
 
If IOResult=0 then begin
....
....
end
else begin
   // traitement erreur e/s fichier non trouvé
end;

Mais c'est pas moderne comme démarche

[BuzzLeclaire]

Salut,

Effectivement c'est au reset(F) que j'ai l'erreur, mais ta proposition ne change pas le probleme, j'ai toujours une erreur soulevée.

Une autre solution ?

[Andnotor]

C'est sur le Reset que la première exception est générée, mais une deuxième survient sur CloseFile puisque le fichier n'est pas ouvert. C'est celle-là que tu vois .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Var
  F: TextFile;
begin
  AssignFile(F,Chemin);
 
  try
    Reset(F);
    Readln(F,result);
    CloseFile(F);
  except
    Result := '< inconnu >';
  end;
end;

[BuzzLeclaire]

C'est sur le Reset que la première exception est générée, mais une deuxième survient sur CloseFile puisque le fichier n'est pas ouvert. C'est celle-là que tu vois .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Var
  F: TextFile;
begin
  AssignFile(F,Chemin);
 
  try
    Reset(F);
    Readln(F,result);
    CloseFile(F);
  except
    Result := '< inconnu >';
  end;
end;

Salut AndNotOr,

Je viens de tester ta proposition, elle me génère toujours l'erreur et ne me retourne pas le result du except.

Que dois-je faire ?

[archonte]

Teste l'existance du fichier !

essaie quelque chose comme :

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
AssignFile(AFile, f);
FileMode := fmOpenRead;
If FileExists(f) then 
begin
   // ouverture
   Reset(AFile);
 
   // traitement du fichier
   // en général avec un 
   While not Eof(AFile) do 
     begin
     Read(AFile, ARecord);
     ...
     end; 
 
    ...
 
   // puis fermeture
   CloseFile(f);
end;

[BuzzLeclaire]

Salut,

Archonte : Effectivement en contournant le probleme par un test de présence du fichier j'évite une error 103 ou 104. Je te remercie.

Je voulais éviter de passer par ce test, pour comprendre mieux mon problemes. Mes apparement apres plusieurs test différent je ne peux y échaper.

Voil ma procédure finale (j'ai un peu modifié) :

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
function LectureFichierSteDat(Chemin : String; Ligne: Integer) : String;
Var
  F: TextFile;
  i: Integer;
begin
  if FileExists(Chemin) then
  Begin
    Try
      AssignFile(F,Chemin);
      Try
        //Lire la premiere ligne AssignFile(F,ExtractFilePath(Application.ExeName)+'test.txt');
        Reset(F); //Ouvre le fichier sans le modifier
        For i:=0 to Ligne do
          Readln(F,result) //Lit une ligne du fichier texte jusqu'au prochain saut de ligne
      Except
        Result := '< inconnu >';
      end;
    Finally
      CloseFile(F); //Ferme l'association entre la variable F et le fichier texte
    end;
  end
  Else Result := '< inconnu >';
end;

Merci à vous tous.

[Andnotor]

Par défaut, Reset va ouvrir le fichier en lecture/écriture et tu auras la même erreur si le fichier n'est pas accessible en écriture .

Ca fonctionnera sous XP mais plus sous Vista suivant le répertoire.

[ADMR]

J'interviens car subitement le message d'Andnotor m'affole : qu'est-ce qui va se produire sous Vista?
Merci de la réponse

[Aka Guymelef]

Sous Vista le contrôle utilisateur sur les droits d'accès est beaucoup plus sévère (pour ne pas dire ch**** ). De fait même en administrateur de la machine certains répertoires jugés sensibles (typiquement Program Files) ne sont pas accessibles en écriture et nécessite une "élévation" des privilèges pour que cela fonctionne.

Un exécutable lancé sans élévations de privilèges et qui essayes dans un répertoire sensible plantera inéluctablement faute de droit d'accès.

[Andnotor]

Ajoute un FileMode := 0 après AssignFile pour être en lecture seule.

ps: Ce CloseFile n'est toujours pas à la bonne place .

[BuzzLeclaire]

Ajoute un FileMode := 0 après AssignFile pour être en lecture seule.

ps: Ce CloseFile n'est toujours pas à la bonne place .

Sa c'est pas bête !!!

[BuzzLeclaire]

Et comme cela c'est mieux ?

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
function LectureFichierSteDat(Chemin : String; Ligne: Integer) : String;
Var
  F: TextFile;
  i: Integer;
begin
  if FileExists(Chemin) then
  Begin
    AssignFile(F,Chemin);
    FileMode := 0;
    Try
      Try
        //Lire la premiere ligne AssignFile(F,ExtractFilePath(Application.ExeName)+'test.txt');
        Reset(F); //Ouvre le fichier sans le modifier
        For i:=0 to Ligne do
          Readln(F,result) //Lit une ligne du fichier texte jusqu'au prochain saut de ligne
      Except
        Result := '< inconnu >';
      end;
    Finally
      if Assigned(F) then CloseFile(F); //Ferme l'association entre la variable F et le fichier texte
    end;
  end
  Else Result := '< inconnu >';
end;

[Andnotor]

Non, c'est pas mieux!

Ce que tu n'as pas compris est qu'AssigneFile ne fait qu'associer un fichier à une variable, mais n'ouvre pas le fichier!

L'ouverture se fait par Append, Reset ou Rewrite. Ce n'est que si l'une de ces fonctions est appelée avec succès que CloseFile doit être invoqué. CloseFile doit donc être dans le même bloc d'exception que Reset (voir mon premier post).

FileExists limite déjà le risque d'erreur, mais ça ne veux pas dire que tu auras les droits suffisants pour l'ouvrir

Quant à if Assigned(F), le test sera toujours positif, F à bien été assigné même si l'ouverture a échouée !

[BuzzLeclaire]

Non, c'est pas mieux!

Ce que tu n'as pas compris est qu'AssigneFile ne fait qu'associer un fichier à une variable, mais n'ouvre pas le fichier!

L'ouverture se fait par Append, Reset ou Rewrite. Ce n'est que si l'une de ces fonctions est appelée avec succès que CloseFile doit être invoqué. CloseFile doit donc être dans le même bloc d'exception que Reset (voir mon premier post).

FileExists limite déjà le risque d'erreur, mais ça ne veux pas dire que tu auras les droits suffisants pour l'ouvrir

Quant à if Assigned(F), le test sera toujours positif, F à bien été assigné même si l'ouverture a échouée !

Ok je comprends ce que tu veux dire.
D'ailleur le assigned(F) me génère une erreur, je l'ai retirer.

Mais à ce que je sache le finally sera quoi qu'il arrive TOUJOURS exécuté, tandis que si je place mon closefile apres la boucle for il ne sera jamais executer en cas d'erreur.

non ?

[Andnotor]

Et c'est le but .

Si Reset échoue, inutile d'appeler CloseFile, le fichier n'est pas ouvert. (Sinon exception sur une tentative de fermeture d'un fichier pas ouvert, cf. un de tes posts précédents)

[BuzzLeclaire]

Et c'est le but .

Si Reset échoue, inutile d'appeler CloseFile, le fichier n'est pas ouvert. (Sinon exception sur une tentative de fermeture d'un fichier pas ouvert, cf. un de tes posts précédents)

Oui effectivement... que suis-je bête.

Je pige mieux.

j'ai fais cela alors :

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
function LectureFichierSteDat(Chemin : String; Ligne: Integer) : String;
Var
  F: TextFile;
  i: Integer;
begin
  if FileExists(Chemin) then
  Begin
    AssignFile(F,Chemin);
    FileMode := 0;
    Try
      //Lire la premiere ligne AssignFile(F,ExtractFilePath(Application.ExeName)+'test.txt');
      Reset(F); //Ouvre le fichier sans le modifier
      For i:=0 to Ligne do
        Readln(F,result) //Lit une ligne du fichier texte jusqu'au prochain saut de ligne
 
      CloseFile(F); //Ferme l'association entre la variable F et le fichier texte
    Except
      Result := '< inconnu >';
    end;
  end
  Else Result := '< inconnu >';
end;

[Andnotor]

C'est ça .

Il y a cependant encore cette boucle sur Ligne qui me dérange, je n'en vois pas l'utilité puisqu'elle ecrase toujours Result et la lecture pourrait dépasser la limite du fichier.

Si le but est de lire la Nième ligne (sans savoir si elle existe vraiment)

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
  if FileExists(Chemin) then
  Begin
    AssignFile(F,Chemin);
    FileMode := 0;
    Try
      //Lire la premiere ligne AssignFile(F,ExtractFilePath(Application.ExeName)+'test.txt');
      Reset(F); //Ouvre le fichier sans le modifier
      try
        For i:=0 to Ligne do  //ou Ligne-1 ?!?
          Readln(F,result) //Lit une ligne du fichier texte jusqu'au prochain saut de ligne
      finally 
        CloseFile(F); //Ferme l'association entre la variable F et le fichier texte
      end;
    Except
      Result := '< inconnu >';
    end;

Ou boucler sur EOF comme proposé par Archonte.

[BuzzLeclaire]

Salut Andy... (faut dormir un peu... comme moi lolol)

En fait je connais le numéro de ligne et c'est vrai que je pourrais tombé sur eof et sur pas trouvé.

Je vais voir.