간단한 XML 을 파싱하는 방법입니다.
물론 다른분은 오동작 할 수도 있습니다.
질문에 올린것과 같이 짧은 지식으로 테스트한 결과입니다. *^_^*
참고문서는 델파이코리아의 델파이6 디벨로퍼 가이드(번역 pdf) 입니다.
<xml>
<basic>
<dest>210.115.121.15</dest>
<port>8788</port>
</basic>
</xml>
procedure TForm1.BitBtn1Click(Sender: TObject);
var
temp : IXMLNode;
temp2 : string;
temp3 : string;
begin
XMLDocument1.Active := True;
// 인덱스로 찾기
temp := XMLDocument1.DocumentElement.ChildNodes[0];
// 태그명으로 찾기
// temp := XMLDocument1.DocumentElement.ChildNodes.FindNode('basic');
temp2 := temp.ChildNodes['dest'].Text;
ShowMessage(temp2);
end;
|