Bonjour,
J'ai bien suivi les indications trouvées ici pour piloter ma progress depuis Delphi.

J'ai d'abord :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
XMLInstruction := XMLGram.GetXMLInstruction('MyProgress');
if(XMLInstruction = nil) then showmessage('Instruction Progress non trouvée !');
Progress := TProgress(XMLInstruction.Get_ObjectReference);
Puis, dans un repeat (sur le contenu d'un dossier), j'ai :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Progress.Current := 0;
Progress.MaxField := IntToStr(var);
Mon pb : à l'affichage, ma progress indique un max toujours égal à 100, ne tenant apparement pas compte de l'affection précédente ! Qq'un a t'il une idée ?

Merci de votre indulgence ...

NB