XPath и TXmlDocument - PullRequest
Новая
       34

XPath и TXmlDocument

18 голосов
/ 22 марта 2011

В Delphi XE возможно ли использовать XPath с компонентом TXmlDocument?

Я знаю, что могу использовать позднюю привязку для доступа к MSXML2, а затем использовать XPath: 

XML := CreateOleObject('MSXML2.DOMDocument.3.0') ;
XML.async := false;
XML.SetProperty('SelectionLanguage','XPath');

Но я хочу знать, поддерживает ли TXmlDocument, установленный с Delphi XE, XPath.

1 Ответ

14 голосов
/ 22 марта 2011

Я не могу найти ничего в документации TXMLDocument о XPath.

Пример XML, из демонстрации OmniXML XPath: 

<?xml version="1.0" encoding="UTF-8"?>
<bookstore>
  <book>
    <title lang="eng">Harry Potter</title>
  </book>
  <book>
    <title lang="eng">Learning XML</title>
  </book>
  <book>
    <title lang="slo">Z OmniXML v lepso prihodnost</title>
    <year>2006</year>
  </book>
  <book>
    <title>Kwe sona standwa sam</title>
  </book>
</bookstore>

Попробуйте что-то вроде этого: 

uses 
  XMLDoc, XMLDom, XMLIntf;

// From a post in Embarcadero's Delphi XML forum.
function selectNode(xnRoot: IXmlNode; const nodePath: WideString): IXmlNode;
var
  intfSelect : IDomNodeSelect;
  dnResult : IDomNode;
  intfDocAccess : IXmlDocumentAccess;
  doc: TXmlDocument;
begin
  Result := nil;
  if not Assigned(xnRoot) or not Supports(xnRoot.DOMNode, IDomNodeSelect, intfSelect) then
    Exit;
  dnResult := intfSelect.selectNode(nodePath);
  if Assigned(dnResult) then
  begin
    if Supports(xnRoot.OwnerDocument, IXmlDocumentAccess, intfDocAccess) then
      doc := intfDocAccess.DocumentObject
    else
      doc := nil;
    Result := TXmlNode.Create(dnResult, nil, doc);
  end;
end;


var
  IDoc: IXMLDocument;
  INode: IXMLNode;
begin
  IDoc := LoadXMLDocument('.\books.xml');
  INode := SelectNode(IDoc.DocumentElement,'/bookstore/book[2]/title'); 
end;

Точно так же, как к сведению других, я оставлю это в: OmniXML поддерживает XPath и имеет демонстрационную версию, которая очень хорошо показывает, как его использовать.Он также бесплатный, поставляется с исходным кодом, поддерживает Unicode и имеет довольно хорошую поддержку на форумах.

...