Discussion :

[Nebulix]

Bonjour
Mon programme Delphi
1) clique sur une appli qui crée un fichier
2) attend que le fichier soit disponible :

Code :

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

1
2
sleep(400);
repeat until fileexists(...);

2) lit, analyse et détruit le fichier

Code :

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

...loadfromfile()

en boucle
Au bout d'un certain nombre de passages (parfois 15000) il se plante avec le message
EFOpenError : impossible d'ouvrir le fichier.
et en relançant, il affiche ensuite : fichier utilisé par un autre processus.
J'ai même doublé la boucle fileexists par une autre avec findfirst,etc.
Savez vous comment éviter celà et avoir un programme fiable, capable de tourner le temps voulu ?
Merci de vos conseils
PS Le câble réseau est débranché.

[Paul TOTH]

Bonjour
Mon programme Delphi
1) clique sur une appli qui crée un fichier
2) attend que le fichier soit disponible :

Code :

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

1
2
sleep(400);
repeat until fileexists(...);

2) lit, analyse et détruit le fichier

Code :

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

...loadfromfile()

en boucle
Au bout d'un certain nombre de passages (parfois 15000) il se plante avec le message
EFOpenError : impossible d'ouvrir le fichier.
et en relançant, il affiche ensuite : fichier utilisé par un autre processus.
J'ai même doublé la boucle fileexists par une autre avec findfirst,etc.
Savez vous comment éviter celà et avoir un programme fiable, capable de tourner le temps voulu ?
Merci de vos conseils
PS Le câble réseau est débranché.

je suppose qu'il faut vérifier que le process qui génère le fichier soi terminé (et qu'il ai donc fermé le fichier)...tu peux aussi tenter un accès exclusif, et boucler tant que tu ne l'obtiens pas.

[Nebulix]

je suppose qu'il faut vérifier que le process qui génère le fichier soit terminé (et qu'il ait donc fermé le fichier)..tu peux aussi tenter un accès exclusif, et boucler tant que tu ne l'obtiens pas.

Merci, mais je n'ai pas la moindre idée de comment procéder pour aucune de ces suggestions.

[Paul TOTH]

Merci, mais je n'ai pas la moindre idée de comment procéder pour aucune de ces suggestions.

recherche CreateProcess et WaitForSingleObject dans le forum pour la première

et regarde fmShareExclusive ou sa version API Windows OF_SHARE_EXCLUSIVE

PS: ta citation est de Nicolas Boileau

[Nebulix]

recherche CreateProcess et WaitForSingleObject dans le forum pour la première

et regarde fmShareExclusive ou sa version API Windows OF_SHARE_EXCLUSIVE

PS: ta citation est de Nicolas Boileau

Je rassemble mon courage et je regarde.
PS
Boileau a écrit :
ce qui bien se conçoit s'exprime clairement.
Nuance.

[Nebulix]

J'ai inséré la boucle :

Code :

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

1
2
3
4
5
repeat
idone:=findfirst(...);
findclose;
sleep(50);
until idone=0

le prog n'a planté qu'au bout de 18000 coups, mais pour une autre raison : fichier endommagé !
( je sauve les fichier sur une clé USB, croyez-vous que ce soit lié ? )

[Andnotor]

J'éviterais cette boucle et passerais plutôt par un Shell Change Notifier.
Regarde ici.

[Jipété]

(...) le prog n'a planté qu'au bout de 18000 coups, mais pour une autre raison : fichier endommagé !

"18 000 coups", comment le sais-tu ? Tu loggues tout ?
18 000 tout rond ?
Tu as donc le nom du fichier, tu peux le recopier à la main ?
Tu peux l'ouvrir ?
Ça serait dommage que le programme plante à cause d'un fichier endommagé, tu devrais mieux gérer les erreurs, pour pouvoir continuer si ça ne gène pas le fonctionnement de la suite.

je sauve les fichiers sur une clé USB, croyez-vous que ce soit lié ?

Oui ou non... Teste ta clé... Teste ce "fichier endommagé"...

[Nebulix]

L'erreur de fichier endommagé ne s'est pas reproduite.
Malheureusement EFOpenError est récurrente.
J'ai essayé d'allonger les "sleep" sans résultat.
J'ai essayé aussi le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
findfirst(...,sr);
repeat
try
bm.loadfromfile(sr.name);
bm2:=bm;
findclose(sr);
idone:=1;
except
on EFOpenerror do idone:=0;
end;
until idone=1;

pour retrouver un plantage avec EFOpenError !!!
Le message suivant est : fichier utilisé par un autre processus. Y aurait-il un programme fantôme qui utilise les fichiers ?

[Paul TOTH]

L'erreur de fichier endommagé ne s'est pas reproduite.
Malheureusement EFOpenError est récurrente.
J'ai essayé d'allonger les "sleep" sans résultat.
J'ai essayé aussi le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
findfirst(...,sr);
repeat
try
bm.loadfromfile(sr.name);
bm2:=bm;
findclose(sr);
idone:=1;
except
on EFOpenerror do idone:=0;
end;
until idone=1;

pour retrouver un plantage avec EFOpenError !!!
Le message suivant est : fichier utilisé par un autre processus. Y aurait-il un programme fantôme qui utilise les fichiers ?

ProcessXP permet de retrouver le process qui utilise un fichier donné, très pratique

[Jean-Jacques Engels]

Boileau a écrit :
ce qui bien se conçoit s'exprime clairement.

Pourquoi ne pas rapporter la citation dans sa totalité : "Ce qui se conçoit bien s'exprime clairement et les mots pour le dire arrivent aisément."



JJE

[Nebulix]

Une partie de la réponse sans doute
Merci Droïde !

Ça faisait longtemps que je n'avais eu l'occasion, à chatouiller du code en rapport avec la gestion des exceptions.

Hé oui en général, dès que l'on s'approche de près où de loin vers ces méthodes, c'est que ça devient chaud quelque part.

J'ai donc ajouté du code aux bons endroits et testé...

J'ai testé et re testé... mais sans jamais avoir un résultat positif ; comme si tout code ajouté ne servait rigoureusement à rien.

J'ai consulté scrupuleusement des tutos, mais en vain, toujours le même résultat

Au bout de plusieurs heures, si si... j'ai eu comme un flash

Bon sang mais c'est bien sûr !!!

Si ça vous arrive, pensez à moi.

Heuuuuuu, j'oubliais : pensez à tester votre exe hors EDI hein.

Enfin je suis sous D7, peut-être que les choses sont gérées désormais de façon différente sous d'autres versions de Delphi ?