Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1383 connectés 

  FORUM HardWare.fr
  Programmation
  Ada

  [ADA][Résolu]raised ADA.IO_EXCEPTIONS.STATUS_ERROR et get()

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[ADA][Résolu]raised ADA.IO_EXCEPTIONS.STATUS_ERROR et get()

n°1564380
FrenchFrog​ger
http://antony-ibanez.eg2.fr/
Posté le 24-05-2007 à 07:59:49  profilanswer
 

Bonjour, lorsque j'utilise ma fonction Charger() (qui sert à charger une sauvegarde contenue dans un fichier) il n'y a strictement aucun problème... sauf quand j'utilise par la suite get(): si j'utilise get(C) avec C un integer, je n'ai aucun problème si je n'utilise pas Charger() ou si j'utilise Charger() après le get(C). Mais si j'utilise le get(C) après le Charger() j'ai cette erreur:
raised ADA.IO_EXCEPTIONS.STATUS_ERROR : s-fileio.adb:166
Si j'ai bien compris, cette erreur arrive quand on tente une action dans un fichier fermé ou lorsqu'on essaye d'ouvrir un fichier déjà ouvert:
- Lorsque j'utilise get(C) avant Charger(), ça me lit C sur l'entrée standard.
- Mais lorsque j'utilise get(C) après Charger(), ça à l'air de vouloir lire C dans le fichier que j'ai ouvert puis fermé avec Charger(), malgré le fait que ce fichier soit fermé.
Je pense donc savoir d'où vient le problème... mais je ne sait pas comment le régler...
 
 
Voici la fonction Charger():
 

Code :
  1. procedure Charger(Nom_Fichier: String; pl : out ptr_plateau; tab_p : out ptr_pion; j1, j2: out joueur) is
  2.       temp: integer;
  3.       Texte: File_Type;
  4.       j : integer;
  5.       taille1, taille2: integer;
  6.       begin
  7.      
  8.      
  9.       for i in pl'range(1) loop   -- Initialiser le plateau avec des cases vides.
  10.      for j in pl'range(2) loop
  11.       pl(i,j).etat := false;
  12.   pl(i,j).p := 0;
  13.  end loop;
  14. end loop;
  16.      
  17.  -- Debut de lecture du fichier Nom_Fichier
  19.  Open(Texte, In_File, Nom_Fichier);
  20.  Set_Input(Texte);
  21.  Avancer;
  22.  Ignorer_Separateurs;
  23.      
  24.         -- Lecture de la premiere ligne concernant le joueur1 (voir infos dans sauvegarde.ads)
  25.         Lire_entier(j1.num);
  26.  Avancer;
  27.  Ignorer_Separateurs;
  29.  -- Lit la taille du string, un nombre qui peut être à plusieurs chiffres. Je créerai sûrement une fonction
  30.  -- pour lire les entiers à plusieurs chiffres.
  31.  taille1 := 0;
  32.  while Caractere_courant in '0'..'9' loop
  33.   Lire_entier(j);
  34.   Avancer;
  35.   taille1 := taille1 * 10 + j;
  36.  end loop;
  37.  Ignorer_Separateurs;
  38.        
  39.  j1.nom := new String(1..taille1);
  40.  j := 1;
  41.  while j <= taille1 loop
  42.   j1.nom.all(j) := Caractere_courant;
  43.  Avancer;
  44.  j := j + 1;
  45.  end loop;
  46.  Ignorer_Separateurs;
  47.        
  48.  Lire_entier(j1.nb_point);
  49.  Avancer;
  50.  Avancer;
  51.  Ignorer_Separateurs;
  54.  -- Lecture de la seconde ligne concernant le joueur2 (voir infos dans sauvegarde.ads)
  55.  Lire_entier(j2.num);
  56.  Avancer;
  57.  Ignorer_Separateurs;
  59.  taille2 := 0;
  60.  while Caractere_courant in '0'..'9' loop
  61.   Lire_entier(j);
  62.   Avancer;
  63.   taille2 := taille2 * 10 + j;
  64.  end loop;
  65.  Ignorer_Separateurs;
  66.        
  67.  j2.nom := new String(1..taille2);
  68.  j := 1;
  69.  while j <= taille2 loop
  70.   j2.nom.all(j) := Caractere_courant;
  71.  Avancer;
  72.  j := j + 1;
  73.  end loop;
  74.  Ignorer_Separateurs;
  76.          Lire_entier(j2.nb_point);
  77.  Avancer;
  78.  Avancer;
  79.  Ignorer_Separateurs;
  81.        
  82.  -- Lecture des 14 lignes concernant les 14 pions.
  83.         for j in 1..14 loop
  85.           Lire_entier(temp);
  86.  if temp = 0 then
  87.   tab_p(j).balle := false;
  88.  else
  89.   tab_p(j).balle := true;
  90.  end if;
  91.           Avancer;
  92.   Ignorer_Separateurs;
  94.          Lire_entier(tab_p(j).pos.x);
  95.          Avancer;
  96.   Ignorer_Separateurs;
  98.           Lire_entier(tab_p(j).pos.y);
  99.        
  100.   if tab_p(j).pos.x > 0 then
  101.            pl(tab_p(j).pos.x, tab_p(j).pos.y).etat := true;
  102.            pl(tab_p(j).pos.x, tab_p(j).pos.y).p := j;
  103.   end if;
  104.  Avancer;
  105.  Avancer;
  106.  Ignorer_Separateurs;
  107.         end loop;
  108.       Close(Texte);
  109.    end Charger;


 
Voici l'appel de la fonction, ici il appelle le fichier "essai":
 

Code :
  1. .... début du programme ...
  3. C: integer;
  5. begin
  7. Charger("essai", plat, tab_p, joueurs(1), joueurs(2));
  8.    get(C);
  10. ... suite du programme ...


Message édité par FrenchFrogger le 24-05-2007 à 09:35:14
mood
Publicité
Posté le 24-05-2007 à 07:59:49  profilanswer
 

n°1564398
FrenchFrog​ger
http://antony-ibanez.eg2.fr/
Posté le 24-05-2007 à 09:18:55  profilanswer
 

Je l'ai résolu. Il fallait terminer la fonction Charger() avec:

Code :
  1. Set_Input(Standard_Input);
  2. Close(Texte);


 
au lieu de:
 

Code :
  1. Close(Texte);


 
En effet au début de la fonction Charger je définissait le fichier définit par la variable Texte comme étant la nouvelle entrée standard. Il faut donc à la fin que je remette l'entrée standard par défaut (Standard_Input) comme étant l'entrée standard courante....
 
 
 
PS: le lien (bon lien) qui ma permit de capter le pb:
http://ina2.eivd.ch/collaborateurs [...] ts1Ada.pdf
Cherchez Standard_Input...


Message édité par FrenchFrogger le 24-05-2007 à 09:22:19

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Ada

  [ADA][Résolu]raised ADA.IO_EXCEPTIONS.STATUS_ERROR et get()

 

Sujets relatifs
[RESOLU][JAVA &SSH] Client ssh en java[Résolu]Problème d'affichage avec FCKEditor
[Resolu]Problem extension JPanel[RESOLU] Redimensionner une image
[RESOLU] Problème unlink[RESOLU]ListBox remplie avec un DataSet /2 champs dans le TextField
[ Resolu] Problème de lien !Savoir si la requête retourne un résultat ? (Résolu)
[Résolu] CSS : je voudrais une width (100%-largeur menu)tikiwiki (resolu)
Plus de sujets relatifs à : [ADA][Résolu]raised ADA.IO_EXCEPTIONS.STATUS_ERROR et get()

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.063 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR