2006年的最后一道难到N个高手的XML,期待解决。。。。。

                            
procedure   TForm1.Button1Click(Sender:   TObject);   
  begin  
  WebBrowser1.Navigate('http://211.77.125.7:8080/rece.aspx?user=rote&pwd=123');  
  end;  
  //想从一网页,该网页的内容是XML文件,我要获取XML,来利用XMLDocument来解决,问题出在那里?  
   
  procedure   TForm1.WebBrowser1DocumentComplete(ASender:   TObject;  
      const   pDisp:   IDispatch;   var   URL:   OleVariant);  
      var   //       stringstream:Tstringstream;  
                        str:string;  
                        xDoc:   IXMLDocument;  
  begin  
      str:=webbrowser1.OleObject.document.documentelement.innerText   ;  
    //   StringStream   :=   TStringStream.Create(str);  
      xDoc   :=   LoadXMLData(str);//到这里老报错“‘XML声明无效’,但我把他考下来,当用XX.XML文件,可以用  
      xDoc.Active:=true;  
      root:=xDoc.DocumentElement;  
      Parent_Node   :=   Root.ChildNodes.First  
   
  高手,给个东东。或修改下。。

查看回复