Построение TreeView из XML

[maximumtf2]

Здравствуйте! Уважаемые, подскажите пожалуйста как из такого XML-файла построить дерево в TreeView с помощью стандартных средств Делфи.

<group name="WORKGROUP" Level="0">
<computer name="comp1" ip="10.10.10.1" level="1"/>
<computer name="comp2" ip="10.10.10.2" level="1"/>
<computer name="comp3" ip="10.10.10.3" level="1"/>
</group>

Никогда с XML не работал, но сейчас это очень нужно.
Спасибо за внимание.

[phomm]

Гуглим, товарищ.
http://www.webdelphi.ru/2010/02/poka...vide-treeview/

[maximumtf2]

Спасибо. Там дерево строится по значениям и есть функция отображения атрибутов. Но там не описывается как строить дерево по атрибутам. Дело в том что в моем xml файле нет значений вообще...

[phomm]

Атрибуты вычленяются когда NodeType = ntAttribute
или вот ещё здесь смотрим http://docwiki.embarcadero.com/VCL/X...AttributeNodes (которая есть, пожалуй, неизменная версия оной же страницы из справки дельфи7 или даже ещё раньше :D)

Думаю если приложите старания то доведёте до нужной кондиции тот или подобный пример.

А вообще я когда первый ответ постил - я посмотрел разные готовые варианты в сети и опробовал их на своём одном проекте с XML - какие-то были более продуктивные, какие-то менее, но ни одного не было в виде "blackbox" т.е. готового инструмента (класса, например).
Я там один скаченный покромсал для большей универсальности, кое-где подшаманил, чтобы у себя в проекте норм запустилось. Но вот чтобы работало со всеми типами нод - это надо сильно расширять, т.е. чтобы добавить помимо самого узла и его значения ещё и атрибуты - надо поработать.

Как я это вижу - имеем ноду (для показа в древовиде) - имя её = имени в хмлноде, в ней 3 субзначения: 1е валью, 2 - набор атрибутов (который раскрывается и выглядит в виде пар ключ=значение) и 3 - подноды данной ноды.
Придётся намутить некислую рекурсию и наверное на конечном автомате ещё для обхода всего этого добра. Плюс так-то типов нод ещё больше (всякие #document #comment и т.п.) если ещё их поддержку делать...

[maximumtf2]

Нашел вроде простой алгоритм, в котором строится дерево по атрибутам с помощью XMLDOM. НО, при запуске выкидывает Access violation с указанием на строку присвоения iNode. Хотя и iNode и firstChild одного типа. Подскажите в чем может быть проблема.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,XmlDoc,XMLIntf, StdCtrls, sButton, ComCtrls, sTreeView,MSXML2_TLB;

type
  TForm1 = class(TForm)
    sTreeView1: TsTreeView;
    sButton1: TsButton;
    procedure sButton1Click(Sender: TObject);
    procedure XML2Tree(tree: TTreeView; XMLDoc: IXMLDOMDocument);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  doc: IXMLDOMDocument;

implementation

{$R *.dfm}

procedure TForm1.sButton1Click(Sender: TObject);
begin
 doc:=CoDOMDocument.Create;
 doc.loadXML('C:\file.xml');
 XML2Tree(sTreeView1,doc);
end;

procedure TForm1.XML2Tree(tree: TTreeView; XMLDoc: IXMLDOMDocument);
var
  iNode: IXMLDOMNode;
  procedure ProcessNode(Node: IXMLDOMNode; TreeNode: TTreeNode);
  var
    cNode: IXMLDOMNode;
    s: string;
  begin
    if Node = nil then Exit; // выходим если конец документа

    // добавляем узел в дерево
      s:=Node.Attributes[0].NodeValue;
    TreeNode := tree.Items.AddChild(TreeNode, s);
    // переходим к дочернему узлу
    cNode := Node.FirstChild;
    // проходим по всем дочерним узлам
    while cNode <> nil do
    begin
      ProcessNode(cNode, TreeNode);
      cNode := cNode.NextSibling;
    end;
  end;

begin
  iNode := XMLDoc.DocumentElement.FirstChild;
  while iNode <> nil do
  begin
    ProcessNode(iNode, nil); // рекурсия
    iNode := iNode.NextSibling;
  end;
end;

end.

[phomm]

После doc.loadXML('C:\file.xml');
Поставьте doc.active := true;
Если не поможет, киньте проект с тестовым хмл - погоняю.

[maximumtf2]

там нету такого свойства. Нашел выход: заменить doc.loadXML на doc.load
Хотя я так и не понял в чем разница
phomm, спасибо за внимание

[Пепел Феникса]

помему LoadXML это метод загрузки из строки(то есть сам XML уже в строковой переменной)

[Аватар]

Вот рабочий пример

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, xmldom, XMLIntf, StdCtrls, msxmldom, XMLDoc, ComCtrls;

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    XMLDocument1: TXMLDocument;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure GetNodeList(NodeList: IXMLNodeList; TreeNode: TTreeNode);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  XMLDocument1.LoadFromFile('e:\Otladka.xml');
  GetNodeList(XMLDocument1.ChildNodes,nil);
  TreeView1.FullExpand;
end;

procedure TForm1.GetNodeList(NodeList: IXMLNodeList; TreeNode: TTreeNode);
var i,j: Integer;
    Node: TTreeNode;
    s: String;
begin
  for i:=0 to NodeList.Count-1 do begin
    if NodeList.Nodes[i].NodeType=ntText then Continue;
    s:=NodeList.Nodes[i].NodeName;
    if NodeList.Nodes[i].IsTextElement then s:=s+': '+NodeList.Nodes[i].Text;
    Node:=TreeView1.Items.AddChild(TreeNode,s);
    for j:=0 to NodeList.Nodes[i].AttributeNodes.Count-1 do begin
      s:=NodeList.Nodes[i].AttributeNodes.Nodes[j].NodeName+'='+
         NodeList.Nodes[i].AttributeNodes.Nodes[j].NodeValue;
      TreeView1.Items.AddChild(Node,s);
    end;
    if NodeList.Nodes[i].HasChildNodes then GetNodeList(NodeList.Nodes[i].ChildNodes,Node);
  end;
end;


end.