Discussion :

[darkendorf]

Bonjour ^^

Voilà, j'ai développé une petite application qui copie les fichiers d'un dossier et de ses sous dossiers dans une base de donnée puis les supprimes, cette fonctionnalité étant appelée par un timer.

Le risque de cette procédure étant que si un fichier est en train d'être copié voir supprimé, j'ai pas mal d'erreurs à gérer et je ne sais pas par quel bout le prendre.

J'ai pensé à mettre en place un objet threadé surveillant l'activité du dossier et mettant en pause la copie si elle est en cours, et reportant le prochain appel du timer. J'ai trouvé quelques sources assez proches sur ce site pour la surveillance d'un dossier, très fonctionnelles.

Mon problème est que je reçois bien un message comme quoi il y a des modifications, mais au début de celle-ci, et quelques messages sur la modifications du fichiers durant sa copie, mais aucun message me disant que c'est terminé !! hors lors de l'ajout d'un fichier volumineux dans mon dossier, mon temps d'attente ajouté au timer pourrait se trouver insuffisant, et donc je risque de lancer la sauvegarder d'un fichier partiellement présent...

N'existe-t-il pas un autre moyen, par l'écoute des messages windows par exemple (un peu lourd à filtrer ensuite par contre), pour être au courant qu'une copie, une suppression voir une édition de fichier, est EN COURS ou bien TERMINEE ?

Merci d'avance pour toute piste que vous pourrez m'indiquer...

[Aka Guymelef]

Bonjour,

est-ce que tu contrôle l'arrivée des fichiers sur ton répertoire ? En général on règle ce problème en plaçant un fichier style "endofcopy.txt" vide pour signifier que tout les fichiers sont terminés de transférer sur ce répertoire et que l'on peut prendre la main sur ces derniers sans risques.

[Andnotor]

Je ne sais pas si c'est à ce composant que tu fais référence pour la surveillance du répertoire. Sinon jettes-y un coup d'oeil.
http://delphi.about.com/od/kbwinshell/l/aa030403a.htm

Dans ton thread ou timer, utilises des TFileStream en spécifiant fmShareExclusive. Si tu arrives à l'ouvrir, tu est sûr qu'il est complet.

[edam]

1 solution de genre surveillance windows:
-http://nono40.developpez.com/sources/source0017/
-http://nono40.developpez.com/sources/source0018/
merci à Nono40 , à propos, ou est-il .?
2 utilise fileexiste pour savoir si le fichier existe, ou assignfile+reset (avec directive $-i) avec la 2éme si il existe, tu es sûr qu'il ne sera pas supprimer tant que tu n'as pas appeler closefile, aussi tu peut essayer de le renomer pour savoir si il est "libre"

[darkendorf]

Wow, que de réponses ^^

Je vais tester vos sources et exemples et je reviens pour valider ^^

Merci encore !

[darkendorf]

>> Edam
Oui c'est ça que j'utilise !
-http://nono40.developpez.com/sources/source0017/
-http://nono40.developpez.com/sources/source0018/

j'utilise bien sûr fileexiste, mais la création, l'ajout, la modif... tout ça vient de l'extérieur, sinon effectivement il serait facile d'attendre que la modif soit terminée ou même de provoquer l'exécution du timer.

>> Aka Guymelef
Effectivement, un petit fichier est l'affaire serait réglé, j'aime bien !! mais ce n'est pas applicable dans mon contexte malheureusement, il y a des ajouts logiciels (de deux ou trois sources logicielles) mais il peut y avoir des ajouts manuels...

>> Andnotor
>> utilises des TFileStream en spécifiant fmShareExclusive
Effectivement, ça ça me plait, c'est tout simple ^^ je conserve ma copie avec cette option en plus, je conserve aussi le code de nono40 pour surveiller les modif et interrompre entre deux copies et reporter à plus tard, et le tour est joué !!

le reste, ce n'est plus que de la prog... merci infiniment, je commençait à me mélanger les pinceau, mais la vérité était ailleurs...

[darkendorf]

Bon, petit soucis : fmShareExclusive n'est pas le bienvenue dans vista il semblerait, résultat : peu d'avenir pour mon application si c'est aussi le cas pour le prochain windows.

Avez vous déjà entendu parler de ce problème ? une autre option de contournement (globale ou uniquement dans le cas de vista avec les petits {$ifdef qui vont bien) ?

PS : j'ai vu tellement de sources différentes est de contradictions... est-il correcte d'utiliser dans mon cas pour lancer la sauvegarde ceci :

Code :

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

1
2
 
TFileStream.Create(FromFile, fmOpenRead or fmShareExclusive);

[Arsenic68]

http://delphi.developpez.com/faq/?pa...llerrepertoire

Il y a aussi une class en delphi.net mais j'arrive plus à mettre la main dessus

[darkendorf]

Merci, je garde ça sous le coude ^^ mais je préfère conserver ce que j'ai trouvé, le code de nono40 fonctionne très bien (en plus avec les sous dossier, contrairement à ce code apparemment) !!

par contre ceci :

Code :

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

1
2
 
TFileStream.Create(FromFile, fmOpenRead or fmShareExclusive);

est-ce que "fmOpenRead or fmShareExclusive" est correct ? les info sur le net sont assez contradictoires.

en tout cas sur xp, tout ça fonctionne nickel...