@H_404_1@在Delphi XE中可以使用带有
TXmlDocument组件的XPath？
我知道我可以使用后期绑定访问MSXML2，然后使用XPath：
XML := CreateOleObject('MSXML2.DOMDocument.3.0') ;
XML.async := false;
XML.SetProperty('SelectionLanguage','XPath');
但是我想知道TXmlDocument安装的Delphi XE是否支持XPath。
解决方法
关于XPath的TXMLDocument文档中找不到任何内容。
来自OmniXML XPath演示的XML示例：
<?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;
就像其他人的FYI一样，我会留下来：OmniXML支持XPath，并有一个非常好的演示，如何使用它。它也是免费的，来源，支持Unicode，并通过它的论坛有很好的支持。