Примеры работы с XML-файлами

Копировать пример

Sub Sample1;
Var
    XMLDoc: IXMLDOMDocument;
    XMLName: String = "c:\Data.xml";
    Loaded: Boolean;
Begin
    XMLDoc := New DOMDocument60.Create;
    Loaded := XMLDoc.load(XMLName);
    If Loaded Then
        //Дальнейшая работа с загруженным документом
        //...
        XMLDoc.save(XMLName);
    End If;
End Sub Sample1;

Копировать пример

Sub Sample2(strXML: String);
Var
    XMLDoc: IXMLDOMDocument3;
    Loaded: Boolean;
Begin
    XMLDoc := New FreeThreadedDOMDocument60.Create;
    Loaded := XMLDoc.loadXML(strXML);
    If Loaded Then
        //Дальнейшая работа с загруженным документом
    End If;
End Sub Sample2;

Копировать пример

Sub Sample3;
Var
    XMLDoc: IXMLDOMDocument;
    Loaded: Boolean;
    Nodes: IXmlDomNodeList;
    Node, NewNode: IXmlDomNode;
    NewAttr: IXmlDomAttribute;
Begin
    //Загрузка документа
    //...
    If Loaded Then
        //Корневая вершина
        Node := XMLDOc.documentElement;
        //Получение вершин, дочерних для корневой вершины
        Nodes := Node.childNodes;
        //Получение необходимых вершин в соответствии с XPath-запросом
        Nodes := XMLDOc.selectNodes("<XPath-запрос для отбора вершин>");
        //Новая вершина
        NewNode := XMLDOc.createNode("element", "Comments", "");
        //Новый атрибут для вершины
        NewAttr := XMLDOc.createAttribute("text");
        NewAttr.value := "Comment...";
        NewNode.attributes.setNamedItem(NewAttr);
        //Добавление созданной вершины в дерево
        Node.appendChild(NewNode);
        //Получение необходимой вершины в соответствии с XPath-запросом
        Node := XMLDOc.selectSingleNode("<XPath-запрос для отбора вершины>");
        //...
End Sub Sample3;