Progress Barre & UpdateQuery

Bonjour,

J'ai un BService qui fait un nombre conséquent de requêtes SQL d'Update dans une Base SQL Server.
Je cherche à utiliser une progress Instruction pour faire patienter mon utilisateur.

Le problème est que la demo "Knowledge" ne m’aide pas beaucoup.

Si vous l'avez déjà fait ...........

Merci encore.

En ce qu'il me concernce je ne l'ai jamais fait. Par contre tu trouveras sur le site xmlrad.com des infos interessantes je pense, notanement sous l'Appendix 13 dans les Training Manuals (instruction Progress :wink: ).

Sinon paraîtrait que parfois il faille faire ca dans le BeforeXMLService:

Code:

---

1 2	XMLRequest.SetContentType('text/html'); XMLRequest.SendResponse;

---

(vu aussi sur le site apres une recherche de 'progress')

Michael

autrement tu peux regarder comme exemple le XMLService de type TableScan. il crée un Progress automatiquement.
si tu as des questions plus spécifique revient les poser ici.

En fait c'est un peu confus ......

Le "problème" est simple, j'aimerai que la position de ma ProgressBar avance de 1 lorsqu'une requête SQL d'update est terminée.

Par exemple j'ai 10 requêtes d'update dans mon XMLGRAM et donc ma ProgressBar avancera d'un pas (10 en tous) à chaque requête.

Alors :roll:

Bon alors pour avoir le plus de souplesse avec la progress bar il faut l'utiliser dans du code.

il faut d'abord récupérer l'instnace de l'instruction progress que l'on aura mis dans le XMLGram.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

var Progress: TProgress; XMLInstruction: IXMLInstruction; begin XMLInstruction := XMLInstruction.GetXMLInstruction('MyProgress'); if XMLInsturction = nil then raise Exception.create('Instruction Progress not found'); Progress := TProgress(XMLInstruction.Get_ObjectReference); ProgressIndex.DoProcess(Context, InputDoc, OututDoc); end;

---

chache appel a DoProcess sur l'instruction permet d'avancer d'une unité.

Dèjà,
Je m'excuse pour ma réponse tardive !

Alors j'ai essayé ton code et le compilateur delphi me jete sur :

Code:

---

Progress: TProgress;

---

je ne trouve pas où ce type est défini.
d'autre part, ce code est à écrire dans quel evenement ?

Merci encore.

défini dans l'unité XMLGram

le code est à écrire la ou tu fais tes updates. en général c'est dan le Before XMLGram

Merci pour ta réponse super super rapide !

Alors voici ce que j’ai fais :

Deux variables globales dans mon business module :

Code:

---

1 2 3

GMyProgress :TProgress; GXMLInstructionProgr : IXMLInstruction;

---

Dans le BeforeXMLGram

Code:

---

1 2 3 4 5 6 7 8 9 10

if GXMLInstructionProgr = nil then begin GXMLInstructionProgr:= xmlgram.GetXMLInstruction('MyProgress'); if GXMLInstructionProgr = nil then raise Exception.create('Instruction Progress not found'); GMyProgress := TProgress(GXMLInstructionProgr.Get_ObjectReference); end; GMyProgress.Current := 0; Context.Values['Max'] := 'MAXVAL'; GMyProgress.MaxField := 'Max';

---

Dans le BeforeInstruction

Code:

---

1 2	GMyProgress.DoProcess(Context, InputDoc, OutputDoc);

---

Et une petite modification du fichier « XMLC_Progress.Header.html » qui va bien et c’est OK.

Merci pour ton aide.

Si je ne m'abuse, l'usage de variables globales n'est pas indiqué.

Yep,
Mais y'a t'il plus simple ?

pour eviter la variable globale, tu peux récupéré l'instance du TProgress directement dans le BeforeInstruction
c'est pas très couteux

Bonjour,

Je souhaite gérer une progress bar également mais en Java.
Comment faire ?
1) Je l'ai créé dans mon xmlgram
2) comment la récupérer dans mon code sachant qu'elle ne sera pas liée à un DBExtract mais que je veux l'utiliser de facon indépendante et l'incrémenter moi-même dans mon code.

Un exemple de code serait le bienvenu.

Merci d'avance pour votre aide.

pour faire progresser la barre au moment ou on le souhaite il faut appeler la méthode DoProcess de l'instruction qui se trouve dans le XMLGram
il faut donc au préalable récupérer la référence. (voir les posts précédents)
mais il me semble qu'en Java il n'est pas possible de le faire