XMLDocument.LoadFromXML : Violation d'accès

**mickael.be** · 26/03/2008, 02h05

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** · 26/03/2008, 02h37

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** · 26/03/2008, 14h40

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

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** · 26/03/2008, 15h40

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;

**Linkin** · 26/03/2008, 15h41

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.

**Aka Guymelef** · 26/03/2008, 15h45

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.

**mickael.be** · 26/03/2008, 15h46

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** · 26/03/2008, 15h56

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** · 26/03/2008, 16h03

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.

**Linkin** · 26/03/2008, 16h12

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 :

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

1
2
3
4
5
 
var
    document : IXMLDocument;
begin
    document := LoadXMLData(Reponse);

Le reste ne change pas normalement.
Pas de free.

**mickael.be** · 26/03/2008, 16h43

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

**anapurna** · 26/03/2008, 16h51

Salut

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

Code :

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

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

**mickael.be** · 26/03/2008, 16h55

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

)

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

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

[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