(4).读取XML文件

//读取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;