Отобразить XML в виде дерева

← →
JetMan (2005-07-29 09:32) [0]

Hi all!
Возникла такая ситуация. Мне необходимо посторить в виде дерева (в TreeView) содержимое XML-файла. Аналагично открыванию Internet Explorer"ом XML"а.
Помогите советом :)

← →
Чапаев © (2005-07-29 09:44) [1]

И что же ты уже сделал? В чём заминка?

Или ты ждёшь, что выложат готовый код?

← →
JetMan (2005-07-29 09:49) [2]

Сделал след.:

procedure LoadItems(TreeNode: TTreeNode; Node: Variant);
var
i: Integer;
begin
TreeNode := TreeView.Items.AddChild(TreeNode, Node.nodeName);
TreeNode.ImageIndex := TreeNode.Level;
TreeNode.SelectedIndex := TreeNode.ImageIndex;
if Node.nodeName = "#text" then
begin
TreeNode.Text := Node.nodeValue;
end;
for i:=0 to Node.childNodes.length-1 do
LoadItems(TreeNode, Node.childNodes.item[i]);
end;

begin
XML := CreateOleObject("Microsoft.XMLDOM");
XML.Async := false;
XML.load(FileName);
if XML.parseError.errorCode <> 0 then
begin
ShowMessage( getParseError(XML.parseError) );
end
else
begin
mainNode := XML.DocumentElement;
LoadItems(nil, mainNode);
TreeNode := TreeView.Items[1];
while Assigned(TreeNode) do
begin
TreeNode.Expand(false);
TreeNode := TreeNode.GetNextSibling;
end;
if Assigned(TreeView.Items[0]) then
TreeView.Items[0].Expand(false);
end;
end;

Заминка в mainNode := XML.DocumentElement; выводит только содержимое, а я хотел бы вывести всю строку, включая теги...

← →
Чапаев © (2005-07-29 10:47) [3]

> а я хотел бы вывести всю строку, включая теги...
Не понял. Что значит -- включая тэги?

← →
JetMan (2005-07-29 11:16) [4]

В общем, при "XML.DocumentElement" отображается значение "document", а надо "<document type="" part="" ...>"

← →
Чапаев © (2005-07-29 11:20) [5]

Ню... Этак нечестно. Атрибуты -- это тоже ветви дерева и их обрабатывать следует соответственно.

Справка по msxml находится здесь:
http://msdn.microsoft.com/library/en-us/xmlsdk/html/d051f7c5-e882-42e8-a5b6-d1ce67af275c.asp

Попробуй
mainNode := XML.DocumentElement.xml;

А вообще, конечно надо по-чапаевски. Спускаться вниз по дереву и перебирать ChildNodes, анализировать их свойства и т. д.

Отобразить XML в виде дерева Найти похожие ветки