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.

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