Discussion :

[dehorter olivier]

Bonjour a tous

Je voudrais lire un fichier texte en utilisant le code classique suivant

Code :

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

1
2
3
4
5
6
7
8
9
Procedure xxxx;
VAR
F   : TextFile;
 
Begin    // code simplifie pour faciliter la lecture du pb :ccool:
       AssignFile(F, 'c:\texte.txt');
       Reset(F);
       CloseFile(F);
End;

Lorsque j'utlise ce code dans le "coeur" du projet, pas de pb.

Mais je l'ai installe dans un thread (au travers d'un composant JEDI: tJvThread dans sa methode OnExecute)

Voici l'echantillon du code

Code :

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

1
2
3
4
5
6
7
8
9
Procedure JvThreadExecute(Sender: TObject; Params: Pointer);
VAR
F   : TextFile;
 
Begin    // code simplifie pour faciliter la lecture du pb :ccool:
       AssignFile(F, 'c:\texte.txt');
       Reset(F);
       CloseFile(F);
End;

et la, malheur une erreur 103 E/S apparait au moment du Reset(F);

Des idees sur les raisons, et comment la corriger ???

merci d'avance

olivier

[Cl@udius]

Salut

L'erreur E/S 103 signifie normalement que le fichier n'est pas ouvert.

Le fichier auquel tu accèdes ne serait-il pas en lecture-seule ? Car le mode d'accès (FileMode) par défaut est en lecture-écriture.

Ensuite cela peut venir de l'utilisation au sein d'un thread, l'aide de Delphi précisant que FileMode n'est pas tread-safe. Mais sur ce point je ne te serais pas d'un grand secours.

@+ Claudius.

[dehorter olivier]

Bonjour claudius

Non le fichier est en lecture/ecriture, mais Reset est un appel a la lecture seulement. Ca ne devrait donc pas intervenir !

En plus la lecture du meme fichier dans hors thread fonctionne.

En effet je pense que ca viens d'un "conflit" avec le thread, mais alors comment resoudre ce probleme ????

a+
olivier

[qi130]

Es-tu certain de l'unicité de ce thread qui s'exécute ?

Le OnExecute du thread n'a t'il pas tendance à "mouliner" sur lui-même tant que le thread s'exécute ?
Ce serait dans cet événement qu'il faut loger une commande de notification d'avancement à un progressBar dépendant du lanceur du thread ().

[dehorter olivier]

Bonjour a tous


j'ai trouve. Evidement c'est de ma faute

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
Procedure xxxx;
VAR
F   : TextFile;
 
Begin    // code simplifie pour faciliter la lecture du pb :ccool:
      
                  // il y avait un closefile avant. En l'enlevant tout fonctionne a merveille !
      {$I-}
       CloseFile(F);
       {$I+}
      

      AssignFile(F, 'c:\texte.txt');
       Reset(F);
       CloseFile(F);
End;

Gros soupir !


merci quand meme, et excusez moi pour le tps perdu

olivier