Discussion :

[beni34]

Bonjour,
Je voudrais savoir comment peut-on récupérer des données d'un formulaire au format xml?

Voici un exemple de formulaire:

Code xml :

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

1
2
3
4
5
6
7
8
9
10
 
<form>
         <var name="isOk"/>
         <var name="failureReason"/>
         <block>
                 <assign name="isOk" expr="'true'"/>
                 <assign name="failureReason" expr="''"/>
                 <return namelist="isOk failureReason"/>
         </block>
</form>

Comment récupérer donc la valeur du champ 'expr'?
Merci

[philnext]

http://delphi.developpez.com/faq/?pa...rernoeudparnom

[beni34]

J'ai essayé la fonction utilisé sur le tutoriel, il ne se passe rien. La fonction ne retourne rien donc pas d'affichage de la messagebox.

[Just-Soft]

J'ai essayé la fonction utilisé sur le tutoriel, il ne se passe rien. La fonction ne retourne rien donc pas d'affichage de la messagebox.

salut,

y'a t-il une erreur ?
utilise le pas à pas pour savoir ce qui se passe à l'intérieur de la fonction.

[beni34]

Lorsque je rentre dans la fonction getNode et que la comparaison s'effectue entre ces deux parametres :

Code :

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

1
2
 
if UpperCase(XMLNode.AttributeNodes.Nodes[I].NodeName) = Uppercase(NodeName) then

La valeur du premier parametre est : 'violation d'accès pour 004156DD accédant à 00000000'.

[Just-Soft]

re,

le "I" est-il initialisé ? n'est-il pas en dehors des limites ? affiches-en la valeur du

Code :

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

XMLNode.AttributeNodes.Nodes[I].NodeName

pour savoir s'il est bien renseigné ou pas.

[beni34]

En faite il est bien renseigné mais c'est bien le XMLNode.AttributeNodes.Nodes[I].NodeName qui est bien en dehors des limites quelque soit la valeur de I.
Une solution?

[beni34]

Le probleme vient en faite du code xml, les methodes qui m'ont été fournit permettent de recuperer les valeurs de variables situé entre les balises:

Code :

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

1
2
3
4
5
 
<xmlData>	
	<isOk>false</isOk>
	<failureReason>test</failureReason>
</xmlData>

Or mon fichier xml est codé sous forme de formulaire a l'aide de balise <var>, celle-ci défini une variable par son nom (grâce à l'attribut name) et sa valeur (grâce à l'attribut value) :

Code :

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

1
2
3
4
5
 
<xmlData>
	<var name="isOk" value="false"/>
	<var name="failureReason" value="test"/>
</xmlData>

Ainsi comment peut on récuperer les données de mon fichier xml?

[Andnotor]

Dans un cas, c'est ChildNodes[x].Text et dans l'autre ChildNodes[x].Attributes[y]. (y peut être remplacé par le nom de l'attribut)

Où est défini XMLNode ? Comment est faite ta boucle ?
Montre-nous ta routine de lecture complète !

[beni34]

J'utilise le code fourni par le lien de philnext :
http://delphi.developpez.com/faq/?pa...rernoeudparnom

[Andnotor]

Dans ton cas, plutôt quelque chose comme ceci:

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
function GetXMLValue(aParentNode :IXMLNode; aNodeName, aAttrName :string; aDefault :variant) :variant;
var
  i    :integer;
  Node :IXMLNode;
 
begin
  for i := 0 to aParentNode.ChildNodes.Count -1 do
  begin
    Node := aParentNode.ChildNodes[i];
 
    if AnsiSameText(Node.NodeName, aNodeName)           and
       AnsiSameText(Node.Attributes['name'], aAttrName) then
    begin
      Result := Node.Attributes['value'];
      Exit;
    end;
  end;
 
  Result := aDefault;
end;
 
procedure TForm7.Button1Click(Sender: TObject);
begin
 MaVar := GetXMLValue(Doc.DocumentElement, 'var', 'failureReason', 'Mon texte');
end;

[beni34]

Merci a tous mais j'ai trouvé une solution a mon problème a l'aide d'une petite boucle :

Code :

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

1
2
3
4
5
6
7
 
With XMLDocument1.ChildNodes.Nodes['xmlData'].ChildNodes do
begin
      nom :=  Nodes['var'].GetAttributeNS('name', '');
      valeur :=  Nodes['var'].GetAttributeNS('value', '');
      Memo1.Text := Memo1.Text+ 'nom = '+nom+'  valeur = '+valeur+#13#10;
end;

Merci Andnotor ta fonction fonctionne trés bien aussi!