[Algorithme] Copie liste de fichiers avec 10 threads

Dernière petite chose, si FreeOnTerminate := False....
après le waitfor... ca prend Free!

Code:

---

1 2 3

MyThreads[i].WaitFor; //Attend la sortie de Execute MyThreads[i].Free; //Liberation du thread

---

Voilà une mise à jour de ma démo...
si tu veux bien la regarder et m'envoyer tes commentaires...
si tout est ok, je vais par la suite la soumettre pour les code sources.

- 2 Fifo Thread-safe pour les échanges inter-thread. (Via TThreadList)
- Affichage de l'état des threads.
- Illustration de 2 façons pour quitter (rapide et lente)
- Meilleur Feed-back en cas de pépins pendant la copie.
- Commentaires tout en français.

Wouaw !! 8O :ccool:

L'interface est superbe. Bravo!
Je vais regarder si il ya des choses à modifier, je te tiens au courant, à+

Ce serait SUPER simpa en effet!
Lâche toi lousse!

Salut ;)

@Eric : As-tu reçu mon message privé ?

J'ai proposé le code suivant pour la page "code sources" du forum Delphi :

http://sub0.developpez.com/delphi/threadscopy.zip

Le programme possède une protection contre l'écrasement des fichiers avec un dialogue [Oui/Non/Tous/Annuler]. Lorsqu'on choisit [Oui] dans le dialogue, [Tous] apparaît dans le dialogue suivant. Ce programme possède 3 paramètres :

Code:

---

1 2 3

Const NbrThreads: Byte = 10; { Nombre de copies simultannées } DestinDir : String = 'tmp'; { Nom du répertoire de destination } BufSize = $10000; { Taille du bloc de copie }

---

Manque plus que réaliser cette démo avec les sémaphores, Eric BoisVert s'étant déjà occupé de la développer avec une TThreadList...
En attendant, si vous avez des suggestions pour améliorer la qualité du code, je suis preneur, à+

Bon voilà la version finale.

- J'ai ajouté des barres de progression dans la TListview.
- Modification dans l'affichage de l'état des threads (lorsqu'il y en a beaucoup)
- J'ai suivie les conseils jeudicieux de Sub0 pour la présentation du code.