Discussion :

[bern59]

Bonjour,
Je voudrais copier un répertoire entier vers un autre (CopyDirTree) mais j'aimerai que s'affiche la progression dans un progressbar.
J'ai vainement cherché le code.
Qui a une solution ?
Merci.

[Jipété]

J'ai vainement cherché le code.

Vainement, vraiment ? Il y en a plein le web, faut juste utiliser les bons mots-clé, éventuellement en regardant comment ça se passe en Delphi.

(là je n'ai pas trop le temps, et je n'ai pas ça en rayon.)

[tourlourou]

Sous Windows, MoveFileWithProgressA.

[bern59]

Sous Windows, MoveFileWithProgressA.

Merci,mais ma recherche concerne Lazarus.

[tourlourou]

Merci,mais ma recherche concerne Lazarus.

Là n'est pas la question : il faut savoir quel est l'OS cible.
Pour du seul Windows, faire appel aux fonctions de son API est judicieux, d'où mon lien. On doit pouvoir aussi faire un ShellExec pour Copy qui affichera la boîte de progression de Windows.
Pour une solution multiplateforme, soit il existe une solution Lazarus, soit il suffit de balayer le répertoire en stockant la taille et le nombre des fichiers, puis de boucler sur la copie en faisant progresser à chaque fichier ou lot de x fichiers un TProgressBar soi-même (ne pas oublier un Application.ProcessMessages ensuite pour lui permettre de se dessiner à sa nouvelle position).

[thierrybo]

Bonjour,

peut-être que tu devrais étudier le logiciel DoubleCommander, fait avec Lazarus et qui l'implémente. Ci dessous la version Linux mais il y a une version Windows et Mac :

[BeanzMaster]

Salut pour afficher une progression tu dois d'abord connaitre le nombre total de répertoires ou fichiers à copier ensuite c'est facile. Tu sais calculer un pourcentage ? Non ? Alors une petite règle de trois et hop

Exemple
En pourcentage

ProgressBar.Min := 0
ProgressBar.Max := 100

Pourcentage	100	X
Elements	Total	Copiés

X := (Nombre_d_element_copiés * 100) div Nombre_total_d_élément_a_copier

ProgressBar.Position := X

Malheureusement CopyDirTree ne te permet pas de connaitre le nombre de fichiers ou de répertoires à l'avance. L plus simple c'est de mettre la propriété "Style" sur "pbstMarquee"

Voir aussi cette discussion sur la copie de dossier

[bern59]

Salut pour afficher une progression tu dois d'abord connaitre le nombre total de répertoires ou fichiers à copier ensuite c'est facile. Tu sais calculer un pourcentage ? Non ? Alors une petite règle de trois et hop

Exemple
En pourcentage

ProgressBar.Min := 0
ProgressBar.Max := 100

Pourcentage	100	X
Elements	Total	Copiés

X := (Nombre_d_element_copiés * 100) div Nombre_total_d_élément_a_copier

ProgressBar.Position := X

Malheureusement CopyDirTree ne te permet pas de connaitre le nombre de fichiers ou de répertoires à l'avance. L plus simple c'est de mettre la propriété "Style" sur "pbstMarquee"

Voir aussi cette discussion sur la copie de dossier

C'est gentil de me répondre mais je tiens à signaler que le calcul des pourcentages ne m'a jamais posé de problème ; je n'ai pas compris comment mettre la propriété "Style" sur "pbstMarquee".
.

Merci quant même.

[BeanzMaster]

C'est gentil de me répondre mais je tiens à signaler que le calcul des pourcentages ne m'a jamais posé de problème ;

Tu ne l'as pas préciser.

je n'ai pas compris comment mettre la propriété "Style" sur "pbstMarquee".

Tu devrais d'abord commencer par apprendre à utilisé l'EDI, placer des composants, definir les propriétés via l'inspecteur d'objet etc..... Cela serai déjà un bon début plutôt que de foncer tête baisser. Tu ne vas pas te jeter à l'eau si tu ne sait pas nager (à moins que tu ai pied )