Danke himitsu, ich habe mittlerweile etwas dazu gefunden.
In OmniXMLUtils gibt es
Delphi-Quellcode:
function GetNodeAttr(parentNode: IXMLNode; attrName: string;
var value: WideString): boolean;
und dahinter steckt dann:
Delphi-Quellcode:
function GetNodeAttr(parentNode: IXMLNode; attrName: string;
var value: WideString): boolean;
var
attrNode: IXMLNode;
begin
if IsDocument(parentNode) and assigned(DocumentElement(parentNode)) then
parentNode := DocumentElement(parentNode);
attrNode := parentNode.Attributes.GetNamedItem(attrName);
if not assigned(attrNode) then
Result := false
else begin
value := attrNode.NodeValue;
Result := true;
end;
end;