Discussion :

[mickael.be]

Salut,
J'essaie tant bien que mal de lire le retour XML d'une requête POST, mais je me ramasse une jolie erreur.

Mon code:

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
27
 
    // ici pour le DEBUG, je copie le retour XML de la connexion dans une variable, car tout est OK de ce côté, et ça embrouillerait le code.
 
    Reponse := '<?xml version="1.0" encoding="UTF-8" ?><mt><return><status>0</status><error>METHOD NOT ALLOWED</error></return></mt>';
 
    with TXMLDocument.Create(nil) do
    try
 
    LoadFromXML(Reponse);
    Active := True;
 
    XMLReponseString := ChildNodes.Nodes['mt'].ChildNodes.Nodes['return'].ChildNodes.Nodes['status'].Text;
 
    if(XMLReponseString = '0') then
    begin
      Result := False;
    end
    else
    begin
      Result := True;
    end;
 
    Active := False;
 
    finally
      Free;
    end;

Le système m'envoie a la merde avec ceci:

---------------------------
Notification d'une exception du débogueur
---------------------------
Le projet Encoder.exe a provoqué une classe d'exception EAccessViolation avec le message 'Violation d'accès à l'adresse FFFF0000. Lecture de l'adresse FFFF0000'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.
---------------------------
OK Aide
---------------------------

Merci de votre aide

[Nono40]

Tu devrais tester à chaque étage que le noeud est bien retourné :

Code :

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

1
2
3
4
XNdoe : IXMLNode;
...
XNode := ChildNodes.Nodes['mt']
If XNode<>Nil then...

[mickael.be]

Toujours une violation d'accès !!


Erreur a la ligne :

Code :

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

 if (XMLNode1 <> nil) then

Le code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
   Reponse := '<?xml version="1.0" encoding="UTF-8" ?><mt><return><status>0</status><error>METHOD NOT ALLOWED</error></return></mt>';
 
    with TXMLDocument.Create(nil) do
    try
 
      LoadFromXML(Reponse);
      Active := True;
 
      XMLNode1 := ChildNodes.Nodes['mt'];
 
      if (XMLNode1 <> nil) then
      begin
        ShowMessage('La node MT est vide.');
      end
      else
      begin
 
      XMLNode2 := XMLNode1.ChildNodes.Nodes['return'];
 
        if (XMLNode2 <> nil) then
        begin
          ShowMessage('La node Return est vide.');
        end
        else
        begin
          ShowMessage(XMLNode2.ChildNodes.Nodes['status'].Text);
        end;
 
      end;
 
      if (XMLReponseString = '0') then
      begin
        Result := False;
      end
      else
      begin
        Result := True;
      end;
 
      Active := False;
 
    finally
      Free;
    end;

[Aka Guymelef]

Bonjour, première remarque dans ton algorithme tu t'es trompé car tu dois tester XMLNode1 = NIL alors erreur au lieu de XMLNode1 <> NIL.

Ensuite pour le premier noeud pourquoi ne tenterait-tu pas de faire :

Code :

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

XMLNode1 := DocumentElement;

[mickael.be]

encore et toujours violation d'accès alors que les erreurs doivent être gerées à présent ...

et le mieux c'est qu'a présent l'IDE ne me dit même pas ou il bloque.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
    Reponse := '<?xml version="1.0" encoding="UTF-8" ?><mt><return><status>0</status><error>METHOD NOT ALLOWED</error></return></mt>';
 
    with TXMLDocument.Create(nil) do
    try
      //XML :=Reponse; // MARCHE PAS ?
      LoadFromXML(Reponse);
      Active := True;
 
      XMLNode1 := DocumentElement;
 
      if (XMLNode1 = nil) then
      begin
        ShowMessage('La node MT est vide.');
      end
      else
      begin
 
      XMLNode2 := XMLNode1.ChildNodes.Nodes[0];
 
        if (XMLNode2 = nil) then
        begin
          ShowMessage('La node Return est vide.');
        end
        else
        begin
          ShowMessage(XMLNode2.ChildNodes.Nodes['status'].Text);
        end;
 
      end;
 
      if (XMLReponseString = '0') then
      begin
        Result := False;
      end
      else
      begin
        Result := True;
      end;
 
      Active := False;
 
    finally
      Free;
    end;

[Aka Guymelef]

Est-ce que vous effectuez une lecture asynchrone (poAsyncLoad dans la propriété ParseOptions) ?

Par ailleurs il y a un truc que j'ai lu dans l'aide de Delphi à propos de la méthode LoadFromXml et qui me fait tiquer, je cite :

Le paramètre XML est une chaîne contenant le texte d'un document XML.Il doit représenter le texte XML codé en utilisant UTF-8,Unicode ou UTF-16.

[Linkin]

En pas à pas l'erreur est sur : XMLNode1 := ChildNodes.Nodes['mt'];
DocumentElement ne marche pas ici. (Violation d'accès)


J'ai essayé d"insérer (je n'aime pas les with pour le débugage, j'ai mis une variable):

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var
  test : WideString; // Caractère Unicode comme la représentation mémoire du fichier XML.
begin
  // ...
  // Le noeud fils 1 correspond à mt
      test := document.ChildNodes.Nodes[1].NodeName;
 
      XMLNode1 := document.ChildNodes.Nodes[test];
  // ...

Et je me retrouve avec une erreur abstraite au lieu de la violation d'accès.

Par contre, retrouver une node par son nom me paraît bizarre de cette, façon, car si plusieurs nodes ont le même nom, il est impossible de récupérer la deuxième.

Solution:
Passer par une boucle sur les ChildNodes et tester la NodeName est bien 'mt' et ainsi de suite.

[mickael.be]

Solution??
Que faire pour lire la valeur de STATUS dans cette chaine qui restera toujours FIXE:

<?xml version="1.0" encoding="UTF-8" ?><mt><return><status>0</status><error>METHOD NOT ALLOWED</error></return></mt>

Merci

[Linkin]

Par contre en posant un document TXMLDocument et en renseignant la propriété XML directement dans l'éditeur le code de départ fonctionne.

[mickael.be]

La réponse est ici:

http://www.developpez.net/forums/showthread.php?t=32043



with TXMLDocument.Create(nil) do

deviens:

with TXMLDocument.Create(application) do

Merci quand même ;-)