读写xml出错

Question

UpdateData(true);
        ::CoInitialize(NULL);
        MSXML2::IXMLDOMDocumentPtr pDoc;
        MSXML2::IXMLDOMElementPtr xmlRoot;
                HRESULT hr = pDoc.CreateInstance(__uuidof(MSXML2::DOMDocument40));
        if (!SUCCEEDED(hr))
        {
                MessageBox("无法创建DOMDocument对象，请检查是否安装了MS XML Parser 运行库!");
                return;
        }        xmlRoot = pDoc->createElement((_bstr_t)"book");
        xmlRoot->setAttribute("id", (const char*)m_strID);
        pDoc->appendChild(xmlRoot);        MSXML2::IXMLDOMElementPtr pNode;
        pNode = pDoc->createElement((_bstr_t)"author");
        pNode->Puttext((_bstr_t)(const char*)m_strAuthor);
        xmlRoot->appendChild(pNode);        pNode = pDoc->createElement("Title");
        pNode->Puttext((const char*)m_strTitle);
        xmlRoot->appendChild(pNode);
        // 保存到文件 
        // 如果不存在就建立,存在就覆盖  
    pDoc->save("d://he.xml");
        ::CoUninitialize();
就网上的一段代码，到标红的地方报了内存错误，请高手帮忙

Answer 1

    pNode = pDoc->createElement("Title");
        pNode->Puttext((const char*)m_strTitle);
        xmlRoot->appendChild(pNode);
        // 保存到文件 
        // 如果不存在就建立,存在就覆盖  
    pDoc->save("d://he.xml");
        ::CoUninitialize();
就第二行

Answer 2

pDoc->save("d://he.xml");
执行这一句报错，pNode和pDoc以及xmlRoot 都不为空

Answer 3

_variant_t varString = _T("d://he.xml");
pDoc->save(varString);