Forum: XML
Delphi
by Dalai,
24. Okt 2017
Da die Daten immer in derselben Ebene zu finden sind, habe ich mich entschieden, bei meiner Funktion zu bleiben. Nach etwas Überarbeitung sieht diese nun so aus:function ValueOfElement(const AXMLNode: IXMLNode; const AResponseName, ANodeName: string): string;
var
LNode: IXMLNode;
begin
Result:= '';
if Assigned(AXMLNode) then begin
if AXMLNode.HasChildNodes then begin
...
Forum: XML
Delphi
by Dalai,
19. Okt 2017
Meine Befürchtung hat sich bestätigt: der Code funktioniert so nicht, weil die Namespaces nicht passen.uses ..., GetCommonLinksPropertiesResponse;
var
LXMLBody: IXMLBodyType;
LXMLGCLP: IXMLGetCommonLinkPropertiesResponseType;
begin
LXMLDoc:= FRITZBox_SOAPDownload(FRITZBOX_UPNP_WANCommonIFC1_URL, FRITZBOX_URN_WANCOMMONIFC, cGCLP, False);
LXMLBody:=...