Bonjour à tous,
J'ai un petit soucis : je souhaite pouvoir mettre une form d'attente lors de l'interrogation du xml car cela peut prendre un certains temps or cela ne fonctionne jamais et je ne vois pas pourquoi, j'ai utilisé plusieurs techniques :
1/ Affichage d'un panel avec un label dessus
==> Le panel s'affiche mais pas le label si je lance juste avant la lecture du xml (par contre s'affiche parfaitement si je ne lance pas le XML ensuite)
2/ Affichage d'une fenetre en showmodal juste avant l'interrogation
==> Le code est stoppé en attente que la fenetre soit fermé donc pas vraiement intéressant
3/ Affichage d'une fenetre en show modal et lecture XML via cette fenetre
==> La fenetre ne s'affiche pas mais le code est bien executé
Mon code XML est ci-dessous :
Donc le soucis n'est pas sur le code XML, il fonctionne très bien pour mon cas mais je souhaite savoir comment je peux mettre en place un système d'attente durant le traitement (entre try et finally sur le code de lecture XML)
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 var demotxt : string; begin form1.XMLDocument1.FileName:='lien XML sur internet'; form1.XMLDocument1.Active:=true; form1.Memo1.Lines.Add(''); With form1.XMLDocument1.ChildNodes.Nodes['noeud'] do begin demotxt:=ChildNodes.Nodes['nom1'].Text; form1.Memo1.Lines.Add('Domaine : '+ChildNodes.Nodes['nom1'].Text); form1.Memo1.Lines.Add('Création : '+ChildNodes.Nodes[demotxt].ChildNodes.Nodes['cas1'].Text); form1.Memo1.Lines.Add('Transfert : '+ChildNodes.Nodes[demotxt].ChildNodes.Nodes['cas2'].Text); end; end;
Merci d'avance
[Delphi 2009]
Partager