Discussion :

[momofr]

Bonjour,

Je développe une petite application en Delphi5 sous Windows10.
Je commence par créer un fichier séquentiel typé à partir d'un fichier texte et la création se passe bien.
Après avoir fermé mon fichier, je l'ouvre dans la foulée en lecture seule, mais je ne comprends pas pourquoi AssignFile retourne alors un IOResult = 103 : "File not open.".
Les paramètres en entrée des fonctions "Ouvrir_lFicCotTrieOUT" et "Ouvrir_lFicCotTrieIN" sont renseignés tous les deux avec la même concaténation du nom complet du répertoire et du nom de fichier, de la forme : "C:\ ... \NomFichier".

Comment AssignFile peut-il retourner "103 File not open." ? Cela semble tout à fait normal que le fichier ne soit pas encore ouvert puisqu'on utilise AssignFile pour l'ouvrir.

Le pire est que cela fonctionne parfois correctement.
Si je modifie le code en supprimant la partie de création du fichier, l'ouverture du fichier créé lors de l'exécution précédente s'effectue à chaque fois sans problème.

Pour que cela fonctionne correctement, y a-t-il donc quelque chose de particulier à faire entre la fermeture de mon fichier en création et son ouverture en lecture ?

Merci d'avance pour votre aide

[Charly910]

Bonjour,
peut être que l'écriture n'est pas terminée dans le fichier quand tu essayes de le ré ouvrir ?
Essaye de séparer les 2 opérations si ce n'est pas fait ?

A+
Charly

[Andnotor]

Après avoir fermé mon fichier

Il n'y a pas de fermeture (CloseFile)...

[momofr]

Je n'ai pas joint toute la source, mais il y a bien un CloseFile.
(d'ailleurs le code renvoyé IOResult = 103 signifie normalement "File not open")

[tourlourou]

Bonjour,
Dans function TForm1.Ouvrir_lFicCotTrieOUT (lNomFicCotOUT : string) : integer; //Ouverture en création,
le fichier est créé avec un nom qui n'est pas celui passé en paramètre : AssignFile (lFicCotTrieOUT, lNomFicCotTrieJ); ;
Est-ce la cause ?

[momofr]

En exécutant pas à pas dans l'EDI Delphi, j'ai pu constater que les noms de fichiers en création puis en consultation sont bien les mêmes.
Je vais quand même rectifier pour une meilleure lisibilité.

[Charly910]

à la compilation : lNomFicCotTrieJ n'est pas déclaré dans Ouvrir_lFicCotTrieOUT ?

A+
Charly

[momofr]

Le fichier en création était bien fermé mais cela ne fonctionnait pas (comme je l'ai déjà expliqué).
J'ai ajouté un second CloseFile de ce fichier juste avant de l'ouvrir en lecture et pourtant l'IOResult retourné est = zéro, et maintenant cela fonctionne correctement comme je le souhaite.

Je vais attendre un peu avant de passer cette discussion à l'état "résolu" pour le cas où l'amélioration ne serait que passagère,
car ce n'est pas logique qu'il faille 2 CloseFile pour fermer le fichier en création.

Merci à tous !