XMLDocument.LoadFromXML : Violation d'accès

Version imprimable

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:

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:

Citation:

---------------------------
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

26/03/2008, 02h37
Nono40
Tu devrais tester à chaque étage que le noeud est bien retourné :
Code:

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

Toujours une violation d'accès !!

Erreur a la ligne :

Code:

if (XMLNode1 <> nil) then

Le code:

Code:

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;

26/03/2008, 15h29
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:

XMLNode1 := DocumentElement;

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:

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;

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:

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.

26/03/2008, 15h45
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 :

Citation:

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.
26/03/2008, 15h46
mickael.be

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

Citation:

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

Merci
26/03/2008, 15h56
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.
26/03/2008, 16h03
mickael.be

Arf.... mais je ne peux pas.
Le code va être ajouté dans une DLL.

Je code dans une application classique pour avoir des contrôles de test.
26/03/2008, 16h12
Linkin
C'était juste pour dire que c'est sûrement au niveau de la construction qu'il y a un problème. Il me smeble qu'il faut absolument un Owner au TXMLDocument pour qu'il fonctionne correctement.

Et en passant directement par l'interface ça fonctionne:
Code:

1 2 3 4 5 var document : IXMLDocument; begin document := LoadXMLData(Reponse);
Le reste ne change pas normalement.
Pas de free.
26/03/2008, 16h43
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 ;-)

Salut

si c'est dans une dll je croit me souvenir que tu doit faire un
CoInitialize avant l'utilisation de ton object
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 procedure FaireQuelqueChose; var Document: IXMLDocument; begin Document := TXMLDocument.Create(nil); Document.loadFromXml(...); end; begin CoInitialize(nil); FaireQuelqueChose; CoUninitialize; end.
@+ Phil

26/03/2008, 16h55
mickael.be

Alors là, on a un sérieux problème:

Dans une application ceci ne fonctionne pas :

TXMLDocument.Create(nil);

Ceci fonctionne :

TXMLDocument.Create(application);

(Déjà là, c'est une victoire :yaisse2: )

Mais, dans ma DLL : aucun des deux ne fonctionne:

TXMLDocument.Create(nil); = Erreur
TXMLDocument.Create(application); donne ceci:

Citation:

[Erreur] dll.pas(106): Identificateur non déclaré : 'application'
[Erreur] dll.pas(106): Aucune version surchargée de 'Create' ne peut être appelée avec ces arguments
26/03/2008, 17h16
mickael.be

J'ai même essayé des Coinitialize .. quedalle.
J'abandonne, j'ai ouvert VB, c'est codé, c'est pesé, ca tourne.
26/03/2008, 19h27
anapurna

salut

utilise Txmlcursor si tu ne veut pas t'embeter

@+ Phil
27/03/2008, 02h43
Raylemon

Et utiliser l'API MSXML au lieu de TXMLDocument, tu n'aurais pas moins de problèmes ?