델파이에서 XML 파일 불러서 TreeView에 표시하기
델파이에서 XMLDocument 컴포넌트를 사용해서
XML 파일 불러 TreeView에 표시하는 소스
■ XML 파일 불러오기
// XML 파일 읽어오기
procedure TForm1.Button2Click(Sender: TObject);
Var
xdSoft : TXMLDocument;
begin
OpenDialog1.Filter := 'Xml file|*.xml';
if OpenDialog1.Execute then
begin
// XML Document 만들기
xdSoft := TXMLDocument.Create(Application);
// XML Document 불러오기
xdSoft.LoadFromFile(OpenDialog1.FileName);
xdSoft.Active := True;
// TreeView 기존 데이터 삭제
TreeView1.Items.Clear;
// XML 구조를 읽어서 TreeView에 표시
MakeTree(nil, xdSoft.DocumentElement);
// TreeView 다 펴서 보여주기
TreeView1.FullExpand;
xdSoft.Free;
end;
end;
■ XML 파일을 트리뷰에 표시
// XML 구조를 읽어서 TreeView에 표시
procedure TForm1.MakeTree(TreeNode : TTreeNode; XMLNode : IXMLNode);
var
Node: TTreeNode;
i: integer;
sNode : string;
begin
sNode := '';
// 노드 밑에 노드가 없을 때
if (XMLNode.NodeType = ntText) then
begin
// 노드에 Attribute가 있을 때
if XMLNode.AttributeNodes.Count > 0 then
begin
sNode := ' |';
For i :=0 To XMLNode.AttributeNodes.Count - 1 Do
begin
sNode := sNode +
XMLNode.AttributeNodes.Get(i).NodeName + ' : ' +
XMLNode.AttributeNodes.Get(i).NodeValue + '|';
end;
end;
// 트리뷰에 노드 추가
Node := TreeView1.Items.AddChild(TreeNode, XMLNode.NodeValue + sNode);
end
// 노드 밑에 노드가 있을 때
else
begin
// 노드에 Attribute가 있을 때
if XMLNode.AttributeNodes.Count > 0 then
begin
sNode := ' |';
For i :=0 To XMLNode.AttributeNodes.Count - 1 Do
begin
sNode := sNode +
XMLNode.AttributeNodes.Get(i).NodeName + ' : ' +
XMLNode.AttributeNodes.Get(i).NodeValue + '|';
end;
end;
// 트리뷰에 노드 추가
Node := TreeView1.Items.AddChild(TreeNode, XMLNode.NodeName + sNode);
end;
// 노드 밑에 노드가 있을 경우
for i := 0 to XMLNode.ChildNodes.Count - 1 do
// XML 구조를 읽어서 TreeView에 표시
MakeTree(Node, XMLNode.ChildNodes.Nodes[i]);
end;
XML 파일의 모든 노드와 속성을 표시하는 소스
invalid-file
델파이 2006 소스