开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
DomTreeForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

DomTreeForm.pas：源码内容
  1. unit DomTreeForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, xmldom, XMLIntf, StdCtrls, msxmldom, XMLDoc, ComCtrls, ExtCtrls;
  9. type
  10.   TFormXmlTree = class(TForm)
  11.     XMLDocument1: TXMLDocument;
  12.     btnLoad: TButton;
  13.     OpenDialog1: TOpenDialog;
  14.     TreeView1: TTreeView;
  15.     Panel1: TPanel;
  16.     Button1: TButton;
  17.     Button2: TButton;
  18.     Button3: TButton;
  19.     procedure btnLoadClick(Sender: TObject);
  20.     procedure Button1Click(Sender: TObject);
  21.     procedure Button2Click(Sender: TObject);
  22.     procedure Button3Click(Sender: TObject);
  23.   private
  24.     procedure DomToTree(XmlNode: IXMLNode; TreeNode: TTreeNode);
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  30. var
  31.   FormXmlTree: TFormXmlTree;
  33. implementation
  35. {$R *.dfm}
  37. procedure TFormXmlTree.btnLoadClick(Sender: TObject);
  38. begin
  39.   OpenDialog1.InitialDir := ExtractFilePath (Application.ExeName);
  40.   if OpenDialog1.Execute then
  41.   begin
  42.     XMLDocument1.LoadFromFile(OpenDialog1.FileName);
  43.     Treeview1.Items.Clear;
  44.     DomToTree (XMLDocument1.DocumentElement, nil);
  45.     TreeView1.FullExpand;
  46.   end;
  47. end;
  49. procedure TFormXmlTree.DomToTree (XmlNode: IXMLNode; TreeNode: TTreeNode);
  50. var
  51.   I: Integer;
  52.   NewTreeNode: TTreeNode;
  53.   NodeText: string;
  54.   AttrNode: IXMLNode;
  55. begin
  56.   // skip text nodes and other special cases
  57.   if not (XmlNode.NodeType = ntElement) then
  58.     Exit;
  59.   // add the node itself
  60.   NodeText := XmlNode.NodeName;
  61.   if XmlNode.IsTextElement then
  62.     NodeText := NodeText + ' = ' + XmlNode.NodeValue;
  63.   NewTreeNode := TreeView1.Items.AddChild(TreeNode, NodeText);
  64.   // add attributes
  65.   for I := 0 to xmlNode.AttributeNodes.Count - 1 do
  66.   begin
  67.     AttrNode := xmlNode.AttributeNodes.Nodes[I];
  68.     TreeView1.Items.AddChild(NewTreeNode,
  69.       '[' + AttrNode.NodeName + ' = "' + AttrNode.Text + '"]');
  70.   end;
  71.   // add each child node
  72.   if XmlNode.HasChildNodes then
  73.     for I := 0 to xmlNode.ChildNodes.Count - 1 do
  74.       DomToTree (xmlNode.ChildNodes.Nodes [I], NewTreeNode);
  75. end;
  77. procedure TFormXmlTree.Button1Click(Sender: TObject);
  78. begin
  79.   ShowMessage (XMLDocument1.DocumentElement.
  80.     Attributes ['text']);
  81. //  AttributeNodes.Nodes[0].NodeValue);
  82. end;
  84. procedure TFormXmlTree.Button2Click(Sender: TObject);
  85. begin
  86.   ShowMessage (XMLDocument1.DocumentElement.
  87.     ChildNodes.Nodes[1].ChildValues['author']);
  88. end;
  90. procedure TFormXmlTree.Button3Click(Sender: TObject);
  91. begin
  92.   // this call creates an error with an odd essage
  93.   ShowMessage (XMLDocument1.DocumentElement.Attributes ['test']);
  94. end;
  96. end.