VC DOM 直接创建XML(不加载XML文件的方式)

CComQIPtr<IXMLDOMDocument> spDomDoc;
 HRESULT hr;

 hr = spDomDoc.CoCreateInstance(CLSID_DOMDocument);
 if (FAILED(hr))
 {
  return;
 }

 CComQIPtr<IXMLDOMElement> spFruitElment;
 hr = spDomDoc->createElement(CComBSTR(L"fruit"), &spFruitElment);
 CComBSTR bstrGetTagName;
 spFruitElment->get_tagName(&bstrGetTagName);
 

 CComQIPtr<IXMLDOMNode> spDomDocNote(spDomDoc);
 CComQIPtr<IXMLDOMNode> spFruitElmentOut;
 spDomDocNote->appendChild(spFruitElment, &spFruitElmentOut);//这个节点也就成为DOM的根节点

 

 CComQIPtr<IXMLDOMElement> spDocRootEle;
 hr = spDomDoc->get_documentElement(&spDocRootEle);

 

spDomDoc->save(CComVariant(L".\\text.xml"));