FritzBox auslesen - Problem SOAP-Abfrage

[TERWI]

Moin zusammen !

Für ein kleines Projekt habe ich mit "Know-How-Transfer" aus hier vorhanden Quellen etwas übersichtlicheres zusammengebaut und erweitert..
"Discover" auch mehrerer Boxen funktioniert mit auslesen der TR-064- und verfügbaren uPNP-XML-Daten funzt prima.
Login's (hier zunächst nur "neuere" OS ab 7.5x) sind auch problemlos.
… fehlt nur noch das lesen & schreiben wünschenswerter Daten mittels "Seifen-Oper".

Ich verzweifele jedoch schon an dem Beispiel "10.5 SOAP Request with Action GetSecurityPort" aus dem PDF "AVM_TR-064_first_steps".
Die Fritz-Mädels quittieren meine SOAP-Anfragen mit permanentem ERROR 500/502.

Das sieht in Kürze mit INDY statt mit Winsock hier etwa so aus:
(Funktioniert beim Rest einwandfrei)

Delphi-Quellcode:

Aufruf mit;
  control := '/upnp/control/deviceinfo';
  service := 'urn:dslforum-org:service:DeviceInfo:1';
  action  := 'GetSecurityPort';
Global:
  FBoxAct^.IP  := 'Fritz.Box'; // oder jeweilige IP
  cFB_PORT_TCP := 49000;

function TDATA.Read_SOAP(Service, Action, Control : string): string;
var
   url, SA : string;
   Content : TStringList;
   HTTP    : TIdHTTP;
begin
  result := '?';
  url := Format('http://%s:%d%s', [FBoxAct^.IP, cFB_PORT_TCP, Control]);
  SA  := Format('SoapAction:%s#%s', [Service, action]);
  try
    Content := TStringList.Create;
    Content.Add('<?xml version="1.0"?>');
    Content.Add('<s:Envelope s:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">');
    Content.Add('<s:Body>');
    Content.Add(Format('<u:%s xmlns:u=%s></u:%s>', [Action, Service, Action]));
    Content.Add('</s:Body>');
    Content.Add('</s:Envelope>');
    Log('Read_SOAP', Content.Text);
    HTTP := TIdHTTP.Create(nil);
    HTTP.Request.Accept          := 'text/xml';
    HTTP.Request.ContentType := 'text/xml';
    HTTP.Request.Charset         := 'utf-8';
    HTTP.Request.CustomHeaders.Add(SA);
    result := HTTP.Post(url, Content);
  except
    on E: EIdHTTPProtocolException do
    begin
      Log('Read_SOAP', 'ERROR: ' + inttostr(E.ErrorCode) + ' |' +  E.ErrorMessage);
    end;
  end;
  Content.Free;
  HTTP.Free;
end;

Mein CONTENT-LOG sieht so aus:

Code:

<?xml version="1.0"?>
<s:Envelope s:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
<s:Body>
<u:GetSecurityPort xmlns:u=urn:dslforum-org:service:DeviceInfo:1></u:GetSecurityPort>
</s:Body>
</s:Envelope>

Mein ERROR-LOG sieht so aus:

Code:

ERROR: 500 |
<?xml version="1.0"?>
<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/" s:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
<s:Body>
<s:Fault>
<faultcode>s:Client</faultcode>
<faultstring>UPnPError</faultstring>
<detail>
<UPnPError xmlns="urn:dslforum-org:control-1-0">
<errorCode>502</errorCode>
<errorDescription>XML error</errorDescription>
</UPnPError>
</detail>
</s:Fault>
</s:Body>
</s:Envelope>

Mit XML hab ich mich schon länger angefreundet, aber SOAP will nicht mein Freund werden ?!
Habe reichlich im WWW recherchiert - leider keine Lösung - kein Blitz hier.
Falsche, fehlende HTTP.Request Angaben / Einstellungen ?
Irgendwo ' " ' zu wenig / zu viel ? (probiert, keine Änderung)
... Hilfe bitte - in bin da leider überfordert.

[itsChris]

Moin,
als erstes fällt mir auf, dass in deiner XML die Anführungszeichen um den Namespace-Wert von GetSecurityPort fehlen. Richtig wäre:

Code:

<?xml version="1.0"?>
<s:Envelope s:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
<s:Body>
<u:GetSecurityPort xmlns:u="urn:dslforum-org:service:DeviceInfo:1"></u:GetSecurityPort>
</s:Body>
</s:Envelope>

Vielleicht reicht das ja schon. Denn die ErrorMessage der EIdHTTPProtocolException verweißt ja auf einen "XML error".

[QuickAndDirty]

Zitat von TERWI:

Moin zusammen !

Für ein kleines Projekt habe ich mit "Know-How-Transfer" aus hier vorhanden Quellen etwas übersichtlicheres zusammengebaut und erweitert..
"Discover" auch mehrerer Boxen funktioniert mit auslesen der TR-064- und verfügbaren uPNP-XML-Daten funzt prima.
Login's (hier zunächst nur "neuere" OS ab 7.5x) sind auch problemlos.
… fehlt nur noch das lesen & schreiben wünschenswerter Daten mittels "Seifen-Oper".

Ich verzweifele jedoch schon an dem Beispiel "10.5 SOAP Request with Action GetSecurityPort" aus dem PDF "AVM_TR-064_first_steps".
Die Fritz-Mädels quittieren meine SOAP-Anfragen mit permanentem ERROR 500/502.

Ohne jetzt die PDF gelesen zu haben, exportiert deren Service keine WSDL Datei? Oder gibts von denen keine WSDL Datei an die man anders heran kommt?

[TERWI]

Das habe ich bei Recherche (u.a. IPPhone-, Arduino-Forum) auch schon gelesen.
Bringt leider keinerlei Änderung am Response.

[QuickAndDirty]

Google sagt das hier wäre die WSDL datei
http://fritz.box/xml/tr-064.xml

Das müsste reichen um dir einen SoapClient generieren zu lassen.

mit so einer Batch/cmd datei sollte es gehen , die "Idera-Mödels" sollten eine ITR064Client.Pas datei generieren.

Code:

c:
cd c:\TR064Client
powershell.exe -Command "(new-object System.Net.WebClient).DownloadFile('http://fritz.box/xml/tr-064.xml','ITR064Client.xml') "
Pause
c:
CD C:\Program Files (x86)\Embarcadero\Studio\23.0\bin
WSDLIMP -P -Ov+ -Oz- -Dc:\TR064Client c:\TR064Client\ITR064Client.xml
Pause

Fritz.box ist die URL der lokalen Fritzbox. unter umständen musst du sie durch ne IP adresse ersetzen

[TERWI]

Google labert viel .... insbesondere dieser neue KI-Geschisss ... Sorry !
Ich möchte gerne simple & straight ohne WDSL und Importgedöns kommunizieren.
Die TR-064.XML und alles was via SSDP an XML angeboten wird, kann ich bereits erfolgreich lesen und weiss, was die Box(en) da an Kommunikation anbieten.
Das Problem ist hier die vermeintlich grundsätzliche (einfache) Kommunikation via SOAP (erst mal lesen, dann auch schreiben von Daten).

[QuickAndDirty]

Ich habe das auch mal zufuß versucht so wie du das jetzt machst...aber naja es ist halt einfacher wenn man nichts tun muss und nicht fehler in irgendwelchen string suchen muss..
ich gucke zu hause mal ob ich die WSDL datei bekomme.
EDIT:
OK ... es gibt keine vollständigen WSDL daten von der Fritzbox. nur eine beschreibung in den SCPD dateien...
ich hasse UPnP...

[mjustin]

Zitat von TERWI:

Delphi-Quellcode:

   Content : TStringList;

...
    result := HTTP.Post(url, Content);

Da liegt der Fehler: es muss für XML oder JSON hier keine Stringlist sondern ein Stream übergeben werden.

Siehe hier: https://blog.habarisoft.com/2015/03/...-6-https-post/

"you must not use a TStringList for the POST body. That version of TIdHTTP.Post() formats the data according to the application/x-www-form-urlencoded media type, which is not appropriate for JSON and will corrupt it."

Delphi-Quellcode:

RequestBody: TStream;
ResponseBody: string;
...

RequestBody:= TStringStream.Create(Content.Text, TEncoding.UTF8);

ResponseBody := HTTP.Post(url,  RequestBody);

[TERWI]

Es liegt nicht an den IP's der Fritz-Mädels - die kenne ich alle via SSDP ("Discover").
Ich kann ja auch mit den Boxen sprechen und deren detaillierte XML's betreff verfügbaren Services & Actions auslesen.
Es geht hier eben im nächsten Schritt darum, die einzelnen "ServiceStateVarables" mittels dieser unsäglichen SEIFEN-OPER zu lesen / schreiben.

[TERWI]

QuickAndDirty - Name ist Programm ? - genau mein Geschmack / Stil !
... musst nicht zwingend "Dirty" sein... aber einfach halt mit Basics.
Dieses WSDL-Gedöns brauche ich nicht. Wie soll man denn dort Fehler finden ?

Ich habe keinerlei Probleme, die Boxen betreff uPNP SCPD auszulesen !
Es geht hier explizit nur um eingangs benannte Probs bei dezidierter SOAP-Abfrage.