Ich habe ein Lösung gefunden. Leider geht das ganze nicht direkt mit TXMLDocument. Zumindest nicht in meinem Delphi 2007. Es werden Interfache Funktionen gebraucht die erst mit IXMLDOMDocument2 dazukommen.
Da ich es nicht geschafft habe von einer TXMLDocument Instanz auf dessen TMSDOMDocument und dessen IXMLDOMDocument zu kommen (dann hätte ich eine QueryInterfache auf das IXMLDOMDocument2 machen können). Muss ich den Umweg über ein neues IXMLDOMDocument2 machen.
Also ein neues IXMLDOMDocument2 erzeugen und das
XML aus der TXMLDocument Instanz einladen.
Dann frage ich alle im
XML enthalten Namespace ab (selectNodes('//namespace::*')).
Denn um eine XPath Abfrage zu machen müssen alle externen Namespace Elemente dem XPath bekannt sein. Siehe hierzu die
MSDN Remarks unter
SelectionNamespaces Property
Also eine Namespaceliste für das SelectionNamespaces Property aufbauen und diese mit IXMLDOMDocument2 .setProperty setzten.
Dann klappt auch alles. Hier die Funktion:
Delphi-Quellcode:
function XPathQuery(aXmlDoc: TXMLDocument; aQuery:
string): IXMLDOMNodeList;
var
hList: IDOMNodeList;
i: Integer;
s, sNSN, sNSUri:
string;
sNsLine:
string;
hQueryDoc: IXMLDOMDocument2;
begin
Result :=
nil;
if not aXmlDoc.Active
then
exit;
hList := (aXmlDoc.DOMDocument
as IDOMNodeSelect).selectNodes('
//namespace::*');
try
for i := 0
to hList.length - 1
do
begin
sNSN := StringReplace(hList.item[i].nodeName, '
xmlns:', '
', []);
if sNSN = '
xml'
then
begin // wenn es als xmlns:xml hinzugefügt wird bekommt man die meldung das der Namespacename xml nicht verwendet werden darf...
sNSN := '
xmlns:MyXml';
sNSUri := hList.item[i].nodeValue;
end
else
if sNSN = '
xmlns'
then
begin // den Default Namespace mit einem Namen versehen, damit XPath drauf zugreifen kann.
sNSN := '
xmlns:dn';
sNSUri := hList.item[i].nodeValue;
end
else
begin // alle anderen Namespace auch für XPath bekannt machen
sNSN := hList.item[i].nodeName;
sNSUri := hList.item[i].nodeValue;
end;
s := sNSN + '
="'+sNSUri+'
"';
if ContainsText(sNsLine, s)
then
continue;
sNsLine := '
'+s + sNsLine;
end;
sNsLine := trim(sNsLine);
finally
hList :=
nil;
end;
hQueryDoc := CreateOleObject('
MSXML2.DOMDocument.4.0')
as IXMLDOMDocument2;
try
hQueryDoc.loadXML(aXmlDoc.XML.Text);
hQueryDoc.setProperty('
SelectionLanguage', '
XPath');
// ab 4.0 ist SelectionLanguage eh immer XPath
hQueryDoc.setProperty('
SelectionNamespaces', sNsLine) ;
Result := hQueryDoc.selectNodes(aQuery);
finally
hQueryDoc :=
nil;
end;
end;
Und die Beispiele, wichtig ist das der Default Namespace auch einen Namen bekommen hat. Das hat Einfluss auf den XPath
Query:
Delphi-Quellcode:
XPathQuery(xmlReader, '//presentationArc');
//Funktioniert auch nicht, erst wenn die XPath Abfrage um den Default Namespace Namen erweitert wird kommt das gewünschte ergebnis raus:
XPathQuery(xmlReader, '//dn:presentationArc'); //geht!
XPathQuery(xmlReader, '//linkbase/presentationLink/presentationArc/@xlink:to'); //geht nicht
XPathQuery(xmlReader, '//dn:linkbase/dn:presentationLink/dn:presentationArc/@xlink:to'); //geht!