FRITZ!Box Komponente v0.17

[Garfield]

Dies ist eine Komponente mit welcher auf die FRITZ!Box zugegriffen werden kann.

Merkmale:

1. Lesen Boxinfo (Name, HW, Version, Revision, Serial, ...).
2. Lesen verschiedener Geräteinformationen (Name, Provider, Beschreibung, UDN, ...).
3. Lesen Internet Protokoll Adressen (extern, intern).
4. Lesen Status (Verbindung, letzter Fehler, Uptime).
5. Lesen DSL-Eigenschaften (Link Type, Link Status, Modulation, ATM Enc).
6. Neuverbindung zum Erhalt einer neuen externen Internet Protokoll Adresse.
7. Anrufmonitor. Nach Anmeldung und Lesen des Telefonbuches auch mit Namen.
8. Anmeldung mit SessionID und Benutzernamen.
9. Abruf des Telefonbuches als XML-Datei.
10. Abruf der Anrufliste als CSV-Datei.
11. WLAN: Ein- und Ausschalten, Namen ändern, Verschlüsselung und Schlüssel anzeigen, Name verstecken ändern.
12. Gast-WLAN: Ein- und Ausschalten, Namen, Verschlüsselung und Schlüssel ändern.
13. Lesen und Setzen der Nachschaltung/Klingelsperre.

Geplante Merkmale

1. Hinzufügen, Ändern und Löschen von Telefonbucheinträgen.
2. Hinzufügen, Ändern und Löschen von Sperren.
3. Wählhilfe benutzen.
4. Weitere welche noch nicht spruchreif sind.

Anmerkungen:

1. Die aktuellen Demos wurden mit Turbodelphi und Lazarus 1.0 unter Windows XP sowie Delphi XE5 unter Windows 8.1 erstellt und mit den FRITZ!Boxen 7320 und 7362 SL getestet.
2. Zum Projekt gehört auch ein Spider, welcher sich die XML-Dateien einer FRITZ!Box hangelt, Anfragen erstellt und ausführt. Siehe unten in #3.
3. Ich arbeite in einer Einsatzwechseltätigkeit und habe deshalb nicht ständig Zugriff auf eine FRITZ!Box mit Internetverbindung, da mein WLAN-Router (Huawei E5319) keine Reichweitenverlängerung unterstützt und manche Funktionen wohl nur gehen, wenn die FRITZ!Box ihre Systemzeit aus dem Internet aktualisieren kann. Somit können sich Updates etwas hinziehen.
4. Die Anhänge sind die aktuelle Komponente mit den Demos (nur Quelltexte), die auf Windows XP compilierte Lazarus 1.0 Demo, die auf Windows XP compilierte Turbodelphi Demo und die auf Windows 8.1 compilierte Delphi XE5 Demo. die letzte Demo läuft nicht auf Windows XP und 7.

Hinweise, Anregungen, Kritiken usw. sind willkommen.

Änderungen

[v0.17] 27.03.2014
[v0.17] Überarbeitung der Komponente.
[v0.17] Neue Demos.
[v0.17] Anmeldung mit SessionID für Firmware ab xx.04.74 und vor xx.05.50 entfernt.
[v0.17] Lesen des Online-Telefonbuches entfernt.
[v0.17] Abruf der Anrufliste als XML-Datei entfernt.
[v0.17] Anrufmonitor integriert. Nach Anmeldung und Lesen des Telefonbuches Anrufsignalisierung auch mit Namen möglich.
[v0.17] WLAN: Ein- und Ausschalten, Namen ändern, Verschlüsselung und Schlüssel anzeigen, Name verstecken ändern.
[v0.17] Gast-WLAN: Ein- und Ausschalten, Namen, Verschlüsselung und Schlüssel ändern.
[v0.17] Die Demos sind alle unter Win8.1 compiliert.

[v0.16] Anrufmonitor hinzugefügt.

[v0.15] Bei größeren 'Chunked' übertragenen Dateien konnte das Ende abgeschnitten werden.
[v0.15] Nachtschaltung.

[Garfield]

@Borstenei - Das dürfte an der Software der Fritzbox liegen. Ich habe hier jetzt keine Fritzbox um das noch einmal zu Überprüfen, aber ich denke in der Fritzbox werden auch nicht alle 400 Einträge angezeigt.

@greenmile - In der v0.17 ist schon etwas WLAN drin. Die v0.18 ist/war schon einige Zeit in Arbeit (Sollte bereits letztes Jahr hier veröffentlich werden). Die Verwendung mehrerer Compiler ist jedoch nicht so einfach. Von Februar bis Juli war mein Laptop defekt. Entweder ist er immernoch defekt oder Windows 10 läuft darauf nicht stabil. Die ein, zwei Bluescreen mit Neustart am Abend sind nicht gerade förderlich. Im Moment beschäftige ich mehr mit Lazarus im allgemeinen und dem IP Scan im besonderen.

[Rene K.]

Scheinbar geht es hier nicht weiter, aber ich frage dennoch.

Ich habe mir die aktuelle Version herunter geladen. Die Lazarus-Variante funktioniert nicht unter MAC OS. Statt WinSock muss da Synapse mit SynSock her. Leider sind die IPv4 Aufrufe aber nicht mehr enthalten. Jedenfalls konnte ich den Code nicht komplett migrieren. Besser sah es mit der XE5 Version unter Berlin 10.1 aus. Klappte auf Anhieb.

Nun zur eigentlichen Frage: Wie kann ich die Steckdosen abfragen (via getswitchstate)?
Das Studium diverser PHP Scripte hat mich leider nicht weiter gebracht.

[Garfield]

Zitat von Rene K.:

Scheinbar geht es hier nicht weiter, aber ich frage dennoch.

-31-

Zitat von Rene K.:

... Die Lazarus-Variante funktioniert nicht unter MAC OS. ...

Da Windows-Funktionen verwendet werden ist das logisch. Ohne MAC OS kann ich es eh nicht testen. Ubuntu ist für mich eher interessant. Ob das dann alles kompatibel sein wird, weiß ich nicht. Den Callmonitor hatte ich erfolgreich mit Wine getestet.

Zitat von Rene K.:

Nun zur eigentlichen Frage: Wie kann ich die Steckdosen abfragen (via getswitchstate)?
Das Studium diverser PHP Scripte hat mich leider nicht weiter gebracht.

Wozu PHP-Scripte auswerten? Firefox mit Live HTTP Headers starten, die gewünschten Informationen im Fritzbox-Menue abrufen und den Mitschnitt von Live HTTP Headers auswerten.

[Garfield]

Vielleicht das mal ansehen.

[Garfield]

Erläuterung:

Der Spider verwendet upnp. Auf der Fritzbox sind verschiedene Beschreibungsdateien enthalten, diese enthalten Links auf weitere Beschreibungsdateien oder die Beschreibung von Funktionen usw. Das bedeutet die Namen der Funktionen, ihre Variablen, die Typen der Variablen und die möglichen Werte.

Mit einem Klick auf den Button "Scannen" wird nach den Dateien 'tr64desc.xml', 'igddesc.xml', 'phonebook.xml' und 'crossdomain.xml' geguckt. Sind sie vorhanden werden sie durchgesehehen.

Unter "Services, Actions, Argumente und Eigenschaften" ist links ein TreeView mit den gefundenenen Dateien und Funktionen usw. Wird eine Funktion ausgewählt werden in dem Memo in der Mitte die Variablen angezeigt. Wählt man eine Variable aus, werden im Memo rechts der Typ und die Werte angezeigt.

Ist eine Funktionn ausgewählt, wird unter "TCP Send Script" das Script zur Abfrage angezeigt. Ein Klick auf den Button "Senden" verschickt das Script und unter "TCP Receive Script" sieht man die Antwort. Ist der Balken darüber grün ist alles in Ordnung. Ist er rot, liegt es in der Regel daran, dass eine HTPPS-Verbindung notwendig ist, welche nicht im Spider implementiert ist.

Der Spider ist mit TurboDelphi geschrieben und kompiliert.

[Garfield]

Dokumente dazu: https://avm.de/service/schnittstellen/

[Vienesko]

Moin Moin,

ich bin neu hier im Forum (bisher nur stiller Mitleser) und beschäftige mich noch nicht so lange mit der Programmierung in Delphi.
Ich möchte mir das Programmieren mit einer eigenen Software beibringen - also leraning by doing sozusagen.

In diese Software (eine eigene Haussteuerung) möchte ich auch die Abfrage meiner FritzBox implementieren.
Ich habe die Komponente heruntergeladen (herzlichen Dank an Garfield fürs Bereitstellen) und wollte diese installieren. Ich bekomme allerdings Fehler angezeigt.
Er findet unter "uses" leider "Dom" und "XMLRead" nicht.

Wo liegt das Problem? Auch bei der Beispielanwendung gibt es Probleme.
Ich nutze XE7.

Ich würde mich freuen, wenn ihr mir helfen könntet. Vielen Dank

[himitsu]

Alle fast alle Delphi-Units heißen inzwischen anders, aber standardmäíg hat man in neuen Projekten den fehlenden Namespace definiert (vorallem System. Vcl. und WinApi. ).
Forms = Vcl.Forms
SysUtils = System.SysUtils
usw.

Als Erstes solltes du lernen, was Compiler-Direktiven sind.
Dieser Code wurde für Delphi und Lazarus geschrieben und je nach Compiler und CompilerVersion wird unterschiedlicher Code verwendet.

Delphi-Quellcode:

{$IfDef VER260}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$EndIf}   {Delphi XE5}
{$IfDef VER250}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$EndIf}   {Delphi XE4}
{$IfDef VER240}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$EndIf}   {Delphi XE3}
...
{$IfDef VER80}{$Define DELPHI} {$EndIf}                          {Delphi 1}

interface

uses
  Classes, SysUtils, Windows, WinSock, Dialogs, ExtCtrls, Forms, StdCtrls, Graphics,
  {$IfDef DELPHI}Jpeg, Messages, XMLIntf, XMLDoc{$Else}Controls, Dom, XMLRead{$EndIf};

Und schon würde bestimmt schnell auffallen, dass dein Problem im Bereich "Prüfung auf Delphiversionen" liegt.

Der fehlende Teil:

Delphi-Quellcode:

{$IfDef VER320}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$EndIf}   {Delphi XE10.2}
{$IfDef VER310}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$EndIf}   {Delphi XE10.1}
{$IfDef VER300}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$EndIf}   {Delphi XE10}
{$IfDef VER290}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$EndIf}   {Delphi XE8}
{$IfDef VER280}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$EndIf}   {Delphi XE7}
{$IfDef VER270}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$EndIf}   {Delphi XE6}

Nja, aus solchen Grüden nutze ich in meinen Codes eine die entsprechenden Conditional-Expressions ala {$IF CompilerVersion >= 23.0}
für {$DEFINE DELPHI_XE2_UP} , was auch in zukünftigen Delphis passen wird, im Gegensatz zu den {$IFDEF VER230} -Orgien.

Aber am Liebsten prüfe ich möglichst auf benötigte Compiler-Features und Deklarationen, anstatt auf irgendwelche Compiler-Versionen, da es "eindeutiger", verständlicher und vorallem versionsunabhängig ist.

Delphi-Quellcode:

uses {$IFDEF FPC}Controls, Dom, XMLRead{$ELSE}Jpeg, Messages, XMLIntf, XMLDoc{$ENDIF}  // FreePacal und seit XE gibt es im Delphi auch "DCC" 

{$IF Declared(RawByteString)}RawByteString{$ELSE}AnsiString{$IFEND}

[Garfield]

@Vienesko: Hier muss man nichts installieren, weshalb es wohl eigentlich keine Komponente ist. Die Demos habe ich mit den angegebenen Compilern getestet und Änderungen nur soweit vorgenommen wie es notwendig war. Delphi XE5 war dabei der neueste. Neuer wird er wahrscheinlich nicht mehr werden.

@himitsu: Dein Hinweis auf das Prüfen auf Feature und Deklarationen finde ich gut. Ein Update ist schon lange fällig.

[Andy090778]

Hallo Garfield,

konnte aus Deiner Komponente viel Erfahrung sammeln wie man die Fritz.box denn nun überhaupt mal anspricht.
Ich überlege grade ob ich eine Delphi GUi samt Server bastle für den geplanten Touchscreen in der Küche, der als Hauptaufgabe natürlich per KNX das Haus steuern kann.

Bist Du schon weitergekommen beim Feature "Wählhilfe"?

Grüße