vc6.0如何解析soap返回的xml

Question

本帖最后由 glgxw 于 2010-12-30 15:33:21 编辑

Answer 1

SXML2::IXMLDOMDocumentPtr pDoc;
  HRESULT hr;
  hr = pDoc.CreateInstance(_uuidof(MSXML2::DOMDocument40));
  if (FAILED(hr))
  {
  MessageBox("无法创建DOM对象，检查是否安装了MS XML Parser运行库！");
  return false;
  }
  //加载xml文档
  pDoc->loadXML((LPCSTR)(returninfo));
  MessageBox("1");
  MSXML2::IXMLDOMElementPtr childNode2;   
  childNode2 = (MSXML2::IXMLDOMElementPtr)(pDoc->selectSingleNode("//code"));
  MessageBox("2");
  VARIANT varVal;
  CString s_code,s_message,s_value;
  MSXML2::DOMNodeType nodeType; //得到节点类型
  childNode2->get_nodeType(&nodeType);  
  MessageBox("3");  
  childNode2->get_nodeTypedValue(&varVal); //得到节点值  
  MessageBox("4");
  s_code=(char*)(_bstr_t)varVal;  
  MessageBox("5");   
  MessageBox(s_code);
  childNode2 = (MSXML2::IXMLDOMElementPtr)(pDoc->selectSingleNode("//message"));
  childNode2->get_nodeType(&nodeType);   
  childNode2->get_nodeTypedValue(&varVal); //得到节点值
  s_message=(char*)(_bstr_t)varVal;
  MessageBox(s_message);
  childNode2 = (MSXML2::IXMLDOMElementPtr)(pDoc->selectSingleNode("//value"));
  childNode2->get_nodeType(&nodeType);   
  childNode2->get_nodeTypedValue(&varVal); //得到节点值
  s_value=(char*)(_bstr_t)varVal;
  MessageBox(s_value);这是我利用以前解析xml文本写的但是执行到message 2就出错了 请帮忙看下 急用  !