EugeneX MiniWeb

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

====== TXMLDocument и работа с XPath ======

Интересный код, для работы с XPath. Надо понимать что штука очень сильная и медленная.

Результат выполнения будет, в Memo1 будет - "Привет мир!"

<code xml>
<?xml version="1.0" encoding="UTF-8" ?>
<collection>
    <element name="connect">
<![CDATA[Привет мир!]]>
    </element>
</collection>
</code>

И вот код чтения по атрибуту

<code pascal>
procedure TForm1.FormCreate(Sender: TObject);
var
    iNode : IDOMNode;
    Sel: IDOMNodeSelect;
begin
    //
    try
        XMLDocument1.FileName := 'TheXML.xml';
        XMLDocument1.Active := True;
        Sel := XMLDocument1.DOMDocument as IDomNodeSelect;

        iNode := Sel.selectNode('//element[@name="connect"]/text()');
        if Assigned(iNode) and (not VarIsNull(iNode.nodeValue)) then begin
            Memo1.Lines.Text := VarToStr(iNode.nodeValue);
        end;
    except on E: Exception do
        MessageDlg(E.ClassName + ': ' + E.Message, mtError, [mbOK], 0);
    end;
end;
</code>

EugeneX MiniWeb

User Tools

Site Tools

Page Tools