création dynamique d'un composant TXMLDocument

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:

---

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;

---

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:

---

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

@+
;)

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