//读取XML文件 //1、LoadFromFile装入XML文件 //2、指定路径,激活读取 //3、从内存流读取 //4、从网络上直接获取 //1、LoadFromFile装入XML文件 procedure TForm1.Button1Click(Sender: TObject); begin XMLDocument1.LoadFromFile('c:/temp/test.xml'); // XMLDocument1.Active := True; Memo1.Lines := XMLDocument1.XML; end; //2、指定路径,激活读取 procedure TForm1.Button9Click(Sender: TObject); begin XMLDocument1.FileName := 'c:/temp/test.xml'; XMLDocument1.Active := True; ShowMessage(FormatXMLData(XMLDocument1.XML.Text)); end; //3、从内存流读取 procedure TForm1.Button2Click(Sender: TObject); var ms: TMemoryStream; begin ms := TMemoryStream.Create; ms.LoadFromFile('c:/temp/test.xml'); XMLDocument1.LoadFromStream(ms); Memo1.Lines := XMLDocument1.XML; ms.Free; end; //4、从网络上直接获取 procedure TForm1.Button10Click(Sender: TObject); begin XMLDocument1.LoadFromFile('http://www.************8/*.xml'); ShowMessage(FormatXMLData(XMLDocument1.XML.Text)); end;