Discussion :

[LeCaméléon]

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

[RDM]

http://xmlrad.com/DelosXMLRADBin/Del...01015#Progress

MaxField est le nom du champ dans le Context qui contient la valeur max.

[LeCaméléon]

Ok j'ai donc fais dans Delphi :

Code :

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

1
2
Context.SetValue('MaxField',IntToStr(nbLinesCSV));
Context.SetValue('Current','0');

puis dans XMLRAD dans le champ MaxField : {$MaxField}

ainsi que dans le ProgressLabel :

Code :

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

{$Current} / {$MaxField}

et bien sûr, j'ai rajouté en params de mon XMLGramOnly Current et MaxField. (Source Context, Destination Field Output) ...

Mon progress label affiche bien le bon maxfield transmis (Delphi=>Context=>XMLRAD) mais le compteur semble ne pas tenir compte de cette affectation en Context ! (il affiche tjs /100).

Si tu as une idée ... ? Merci d'avance

NB

[RDM]

nop, dans MaxFields il doit y a voir le nom du champs du Context

example:

Code :

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

Context.SetValue('nbLinesCSV',IntToStr(nbLinesCSV));

puis dans XMLRAD dans le champ MaxField : nbLignesCSV

pour le progressLabel c'est ok, il faut bien des templates properties pour récupérer la valeur du context !

[LeCaméléon]

Effectivement ...

Merci

NB

[LeCaméléon]

Le maxfield fonctionne donc, mais le curent semble additionner les valeurs des précédentes progress. Dans delphi j'ai en fait:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
repeat
...
   if() then
   begin
      Context.SetValue('MaxFieldA',IntToStr(nbLinesCSVA));
      for i:=0 to nbLinesCSV-1 do
      begin
         Context.SetValue('CurrentA',IntToStr(i+1));
         ProgressA.DoProcess(Context, InputDoc, OutputDoc);
         ...
      end;
   end;
 
   if() then
   begin
      Context.SetValue('MaxFieldB',IntToStr(nbLinesCSVB));
      for i:=0 to nbLinesCSVB-1 do
      begin
         Context.SetValue('CurrentB',IntToStr(i+1));
         ProgressB.DoProcess(Context, InputDoc, OutputDoc);
         ...
      end;
   end;
   ... suivi d'autres ifs identiques
 
until

Le pb est qu'à l'affichage, celà me génère à la fin par ex : 236/183 alors que, pour débuguer, celà affiche bien dans mon progress label ({$CurrentB} / {$MaxFieldB}) : 186/186 ... Après débug, A retourne effectivement 236-186=50results. Le current de la progress n'est donc pas RAZ ! Pourtant à chaque for, i retourne bien 0, et le renvoie en context.

Si tu peux m'aider à terminer ca, après je t'embète plus (sur la progress )