델파이에서 XMLDocument 컴포넌트로 XML 읽고 쓰기

델파이에서 XMLDocument 컴포넌트로 XML파일을 읽고 쓰는 방법은
말로 설명하기는 좀 어렵고 그냥 소스를 보는 것이 알기 쉬울 것같다.

먼저 uses에  XMLDoc, XMLIntf을 추가한다.

■ XML 파일 쓰기

// XML 파일 만들고 쓰기
procedure TForm1.Button1Click(Sender: TObject);
Var
  xdSoft : TXMLDocument;
  xnRoot  : IXMLNode;
  xnChild : IXMLNode;
  xnGrandchild : IXMLNode;
begin

  // XML Document 만들기
  xdSoft := TXMLDocument.Create(Application);
  xdSoft.Active := True;
  xdSoft.Encoding:= 'euc-kr';

  // 루트 노드 만들기
  xnRoot := xdSoft.AddChild('SoftList');
  // 노드에 속성 설정
  xnRoot.Attributes['LatestUpdate'] := FormatDateTime('YYYY/MM/DD', Now);

  // 테스트 데이터 추가

###################################################################### //

  // 노드 밑에 노드 만들기
  xnChild := xnRoot.AddChild('Soft');
  xnChild.Attributes['Soft_name'] := 'PhotoSharp';

  xnGrandchild := xnChild.AddChild('Detail');
  xnGrandchild.Attributes['maker'] := 'Adove';
  xnGrandchild.Attributes['section']  := 'Drawing tool';
  xnGrandchild.Attributes['Price']  := 5000;

  xnGrandchild := xnChild.AddChild('Extra');
  xnGrandchild.Attributes['name'] := 'toy';
  xnGrandchild.Attributes['note']  := 'for child';

  xnGrandchild := xnChild.AddChild('Stock');
  // 노드 값 설정
  xnGrandchild.NodeValue := 100;

  // ---------------------------------------------------------------------- //

  xnChild := xnRoot.AddChild('Soft');
  xnChild.Attributes['Soft_name'] := 'OverOffice';

  xnGrandchild := xnChild.AddChild('Detail');
  xnGrandchild.Attributes['maker'] := 'OverSoft';
  xnGrandchild.Attributes['section']  := 'office tool';
  xnGrandchild.Attributes['Price']  := 2000;

  xnGrandchild := xnChild.AddChild('Extra');
  xnGrandchild.Attributes['name'] := 'notebook';
  xnGrandchild.Attributes['note']  := 'no comment';

  xnGrandchild := xnChild.AddChild('Stock');
  xnGrandchild.NodeValue := 50;

  // ###################################################################### //

  // XML Document 저장하기
  xdSoft.SaveToFile('C:\Test.Xml');
  xdSoft.Free;

end;

■ 만들어진 XML 파일

<?xml version="1.0" encoding="euc-kr" ?>
<SoftList LatestUpdate="2007-10-12">
  <Soft Soft_name="PhotoSharp">
    <Detail maker="Adove" section="Drawing tool" Price="5000" />
    <Extra name="toy" note="for child" />
    <Stock>100</Stock>
  </Soft>
  <Soft Soft_name="OverOffice">
    <Detail maker="OverSoft" section="office tool" Price="2000" />
    <Extra name="notebook" note="no comment" />
    <Stock>50</Stock>
  </Soft>
</SoftList>

■ XML 파일 읽기

// XML 파일 읽어오기
procedure TForm1.Button2Click(Sender: TObject);
Var
  xdSoft : TXMLDocument;
  xnChild : IXMLNode;
  xnGrandchild : IXMLNode;
  i : Integer;
  j : Integer;
  k : Integer;
  sMsg : string;
  sTest : string;
begin

  // XML Document 만들기
  xdSoft := TXMLDocument.Create(Application);

  // XML Document 불러오기
  xdSoft.LoadFromFile('C:\Test.Xml');
  xdSoft.Active := True;

  // 루트 노드가 없을 경우 종료
  if xdSoft.ChildNodes.First = nil then Begin
    Exit;
  End;

  // 루트에 딸려있는 노드 분
  For i := 0 To xdSoft.DocumentElement.ChildNodes.count - 1 Do
  Begin
    sMsg := '';
    sTest := '';

    xnChild := xdSoft.DocumentElement.ChildNodes[i];
    xnGrandchild := xnChild.ChildNodes[0];

    // Soft 노드의 첫번째 노드의 속한 attribute 분
    For j :=0 To xnGrandchild.AttributeNodes.Count - 1 Do
    begin

    sMsg := sMsg +
      '    ' + xnGrandchild.AttributeNodes.Get(j).NodeName + ' : ' +
      xnGrandchild.AttributeNodes.Get(j).NodeValue + #13

    end;
    sTest := sTest + xnChild.NodeName + ' : ';
    sTest := sTest + xnChild.AttributeNodes.Get(0).NodeValue + #13;

    xnGrandchild := xnChild.ChildNodes[2];

    ShowMessage(
      sTest + #13 +
      sMsg + '    ----------' + #13 +
      '    ' + xnGrandchild.NodeName + ' : ' +
      xnGrandchild.NodeValue
    );

  End;

  xdSoft.Free;

end;

개인적으로 생각하기에는 XML Data Binding보다 XML Documnet 컴포넌트를
쓰는것이 더 깔끔하게 프로그램을 만들 수 있을 것같다.

invalid-file