Discussion :

[Eric Boisvert]

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

Code :

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

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

[Eric Boisvert]

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.

[Sub0]

Wouaw !!

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

[Eric Boisvert]

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

[Sub0]

Salut

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

[Sub0]

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 delphi :

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

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, à+

[Eric Boisvert]

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.