1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
// Declarations
MSXML2::IXMLDOMNode *root = NULL;
MSXML2::IXMLDOMElement *rootElem = NULL;
BSTR rootName = NULL;
MSXML2::IXMLDOMDocument *xmldoc = NULL;
// Initialisation du COM et creation d'une insatnce de DOMDocument
CoInitialize (NULL);
CoCreateInstance(CLSID_DOMDocument, NULL, CLSCTX_INPROC_SERVER, IID_IXMLDOMDocument, (LPVOID FAR*)&xmldoc);
// Creation et insertion du root
rootName = ::SysAllocString(L"Root");
VARIANT vtype;
vtype.vt = VT_I4;
V_I4(&vtype) = (int)MSXML2::NODE_ELEMENT;
xmldoc->createNode(vtype, rootName, NULL, &root);
xmldoc->appendChild(root, NULL);
// Recuperation du XML
BSTR myXML;
CString myXMLASCII;
xmldoc->get_xml(&myXML);
myXMLASCII.SetSysString (&myXML); |