Discussion :

[BobaL]

Salut !

Voici mon problème. J'ai un composant qui émet un évènement lorsqu'un fichier est ajouté dans le dossier qu'il surveille. Cet évènement survient dès que le fichier est créé et non lorsque la copie est terminée (fichiers vidéo de grandes tailles).
Je dois ensuite passer ce fichier dans le compo FilterGraph (DS Pack) pour en récupérer la durée sauf que lorsque la copie n'est pas terminée j'ai une exception me disant que le fichier est utilisé par un autre processus...

Une idée ..?

J'ai vu les discussion traitant ce genre de problème sur le forum et rien de concluant... le try...except avec un Sleep m'aurait suffit mais l'exception se produit dans le composant FilterGraph et ne remonte pas jusque dans ma procédure

J'espère avoir été suffisamment clair pour avoir une direction vers laquelle chercher.

Merci d'avance.

[sat83]

Tu peux tenter d'ouvrir ton fichier en mode exclusif :

- Si tu arrive a l'ouvrir: ton fichier n'est pas utilisé, tu peux faire ton traitement
- Si tu n'arrive pas a l'ouvrir: ton fichier est utilisé

Code :

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

1
2
3
4
5
6
7
8
 Handle := FileOpen( f , fmShareExclusive ); // On essai d'ouvrir le fichier en mode exclusif
 
 // Si le Handle est different de -1 le fichier est non-utilisé
 if (Handle <> -1) then                    
 begin
   FileClose(Handle) ;
   //TRAITEMENT;
 end;

[Yurck]

Je dois ensuite passer ce fichier dans le compo FilterGraph (DS Pack)

....

J'ai vu les discussion traitant ce genre de problème sur le forum et rien de concluant... le try...except avec un Sleep m'aurait suffit mais l'exception se produit dans le composant FilterGraph et ne remonte pas jusque dans ma procédure

Et bien il faut faire la boucle d'attente avec le try except avant de passer le fichier dans le compo FilterGraph.

Dans la boucle tu peux tenter un renommage du fichier qui plante aussi tant que le fichier n'est pas disponible.

a+

[BobaL]

Oui j'ai déjà essayé d'ouvrir le fichier mais bizarement cela ne fonctionnai pas...
Voici mon code

Code :

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

1
2
3
4
5
    repeat
      Handle := FileOpen(FileName, fmOpenReadWrite);
      Sleep(100);
    until Handle = -1;
    FileClose(Handle);

Je vais essayer de renommer le fichier et je vous tiens au courant...

Merci encore

[peter27x]

N'existe t'il pas tout simplement une fonction Delphi permettant de savoir si un fichier F est en cours d'utilisation ou pas ?

[sat83]

Il faut ouvrir le fichier en mode Exclusif!

Donc utilisé fmShareExclusive, et pas fmOpenReadWrite dans ton FileOpen.

Le mode exclusif signifie que le fichier ne peut pas etre ouvert par quelqu'un d'autre. Donc si le fichier est déja utilisé, tu ne pourra pas l'ouvrir en mode exclusif. Si tu arrive à l'ouvrir en mode exclusif, c'est que le fichier n'est pas ouvert par un autre processus.

[peter27x]

Il faut ouvrir le fichier en mode Exclusif!

Donc utilisé fmShareExclusive, et pas fmOpenReadWrite dans ton FileOpen.

Le mode exclusif signifie que le fichier ne peut pas etre ouvert par quelqu'un d'autre. Donc si le fichier est déja utilisé, tu ne pourra pas l'ouvrir en mode exclusif. Si tu arrive à l'ouvrir en mode exclusif, c'est que le fichier n'est pas ouvert par un autre processus.

Bon ben voilà !

[BobaL]

Merci de votre aide
Alors j'ai mis le FileOpen en mode exclusif comme le disait sat83.
Mais j'ai surtout compris comment fonctionnait le repeat...until en allant vérifier dans le tuto de base

Code :

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

1
2
3
4
5
repeat
  instruction_1;
  ...
  instruction_n;
until condition_de_sortie;

Je l'utilisait comme un do...while moi... Du coup en modifiant le = en <> et bien ça marche

Voici le code pour ceux que ça pourrait intéresser

Code :

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

1
2
3
4
5
    repeat
      Handle := FileOpen(FileName, fmShareExclusive);
      Sleep(100);
    until Handle <> -1;
    FileClose(Handle);

Merci à tous !