Delphi 中的 XMLDocument 类详解(3) - 读取 xml 文件
2008-11-21 21:12
423 查看
先虚拟一个测试文件: test.xml; 放在 c:/temp/ 下备用.
<科室名单 备注="测试">
<人员 职务="科长" 备注="正局级">
<姓名>张三姓名>
<性别>男性别>
<年龄>34年龄>
人员>
<人员 职务="付科长">
<姓名>李四姓名>
<性别>女性别>
<年龄>43年龄>
人员>
<人员>
<姓名>王五姓名>
<性别>女性别>
<年龄>25年龄>
人员>
<人员>
<姓名>孙六姓名>
<性别>男性别>
<年龄>52年龄>
人员>
<辅助人员>辅助人员>
科室名单>
<科室名单 备注="测试">
<人员 职务="科长" 备注="正局级">
<姓名>张三姓名>
<性别>男性别>
<年龄>34年龄>
人员>
<人员 职务="付科长">
<姓名>李四姓名>
<性别>女性别>
<年龄>43年龄>
人员>
<人员>
<姓名>王五姓名>
<性别>女性别>
<年龄>25年龄>
人员>
<人员>
<姓名>孙六姓名>
<性别>男性别>
<年龄>52年龄>
人员>
<辅助人员>辅助人员>
科室名单>
unit Unit1; interface uses Classes, Controls, Forms, StdCtrls, XMLDoc, xmldom, XMLIntf, msxmldom; type TForm1 = class(TForm) XMLDocument1: TXMLDocument; Memo1: TMemo; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} //载入方法1: LoadFromFile procedure TForm1.Button1Click(Sender: TObject); begin XMLDocument1.LoadFromFile('c:/temp/test.xml'); Memo1.Lines := XMLDocument1.XML; {查看} end; //载入方法2: 指定 FileName, 然后激活 procedure TForm1.Button2Click(Sender: TObject); begin XMLDocument1.FileName := 'c:/temp/test.xml'; XMLDocument1.Active := True; {激活} Memo1.Lines := XMLDocument1.XML; {查看} end; //载入方法3: 指定 LoadFromStream procedure TForm1.Button3Click(Sender: TObject); var ms: TMemoryStream; begin ms := TMemoryStream.Create; ms.LoadFromFile('c:/temp/test.xml'); XMLDocument1.LoadFromStream(ms); ms.Free; Memo1.Lines := XMLDocument1.XML; {查看} end; //可以用 LoadFromFile 或指定 FileName 的方法, 访问网上的 xml procedure TForm1.Button4Click(Sender: TObject); begin XMLDocument1.LoadFromFile('http://www.google.com/ig/skins/jr.xml'); Memo1.Lines := XMLDocument1.XML; {查看} end; end. 如果需要用浏览器查看 xml, 需要一个 api 函数: ShellAPI.ShellExecute, 所以先 uses ShellAPI; 然后: ShellExecute(Handle, 'open', 'c:/temp/test.xml', nil, nil, SW_NORMAL);
相关文章推荐
- Delphi 中的 XMLDocument 类详解(3) - 读取 xml 文件
- 黄聪:Delphi 中的 XMLDocument 类详解(3) - 读取 xml 文件
- Delphi 中的 XMLDocument 类详解(3) - 读取 xml 文件
- Delphi 中的 XMLDocument 类详解(12) - 读取或设置 xml 的编码与版本号
- 黄聪:Delphi 中的 XMLDocument 类详解(14) - 遍历 XML 文件
- Delphi 中的 XMLDocument 类详解(14) - 遍历 XML 文件
- 黄聪:Delphi 中的 XMLDocument 类详解(12) - 读取或设置 xml 的编码与版本号
- 黄聪:Delphi 中的 XMLDocument 类详解(13) - 关于 XML 属性
- 黄聪:Delphi 中的 XMLDocument 类详解(20) - 动态建立 XMLDocument 对象
- 利用Delphi中的TxmlDocument生成xml文件应注意的问题
- 菜鸟学Java(八)——dom4j详解之读取XML文件
- Delphi 中的 XMLDocument 类详解关于 XML 属性
- Delphi 中的 XMLDocument 类详解(18) - 更好地显示 xml 的测试结果 - FormatXMLData 及其他
- 黄聪:Delphi 中的 XMLDocument 类详解(2) - 记要
- Delphi 中的 XMLDocument 类详解关于 XML 属性
- Delphi 中的 XMLDocument 类详解(4) - 获取根目录下的元素数
- delphi读取xml文件
- NSXMLDocument读取远程XML文件
- Delphi 中的 XMLDocument 类详解(19) - NodeValue 与 NodeName 的读写区别
- TXMLDOCUMENT读取UTF-8格式XML文件乱码问题