Discussion :

[engrobel]

Bonjour à tous,

Quelqu'un d'entre vous a-t-il déjà réussi à utiliser un composant TXMLDocument après une création dynamique ?

Après dépose du composant sur une fiche, celui-ci fonctionne parfaitement.

Par contre, le code suivant provoque une exception lors de l'accès à DocumentElement!

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
 
  // texte XML
  TStringList *FString = new TStringList();
  FString->Clear();
  FString->Add("<ROOT>");
  FString->Add("</ROOT>");
 
  // document XML
  TXMLDocument *XMLDoc =  new TXMLDocument("");
  XMLDoc->ParseOptions << poResolveExternals << poPreserveWhiteSpace;
  XMLDoc->DOMVendor = GetDOMVendor("MSXML");
  XMLDoc->XML = FString;
  XMLDoc->Active = true;
 
  // lecture du noeud racine
  _di_IXMLNode root = XMLDoc->DocumentElement;

[Sunchaser]

Bonjour

Je ne connais pas du tout ce composant (jamais utilisé) mais, en revanche, suis tombé sur un discussion/problème similaire, avec au final le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
TXMLDocument *XMLDoc;
_di_IXMLDocument d;
 
    XMLDoc=new TXMLDocument("");
    XMLDoc->GetInterface(d);
    d->LoadFromFile("c:\\test.xml");
    _di_IXMLNode RNode=d->DocumentElement;
    if (RNode->ChildNodes->IndexOf(WideString("Message"))>-1){
        AnsiString s=StrToInt(RNode->ChildNodes->Nodes[WideString("Message")]->Text);
    }

Peut être peut tu t'en inspirer ...

@+

[engrobel]

Merci Sunchaser, ce code marche impeccable!

Dans mon cas, pour une StringList, il suffit de remplacer
d->LoadFromFile("c:\\test.xml");
par
d->LoadFromXML(FString->Text);