Discussion :

[popeyes]

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 :

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;

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)

Merci d'avance

[Delphi 2009]

[Lung]

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

Affiche-là en Show seulement, avec un StayOnTop pour qu'elle reste au premier plan, et un Application.ProcessMessages pour rafraichir son affichage.

[popeyes]

Merci bcp, cela fonctionne parfaite