FritzBox - Telefoniegeräte - bitte testen.

[Garfield]

Ich möchte die Telefoniegeräte und die Telefonnummern einer Fritzbox auslesen. Die Telefonummern (MSN) samt Landes- und Ortskennzahl scheint zu funktionieren. Auch mein analoges und mein DECT-Telefon werden angezeigt. Allerdings habe ich keine ISDN-Anschlüsse (insbesondere s0) welche ich testen kann.

Deshalb bitte ich Euch um Mithilfe. Nach dem Start des Programms anmelden und auf das Tab Wählhilfe wechseln und sehen, was da im Memo angezeigt wird.

0.3.0.0 - 8. März 2014

- Neues Login.
- Komplett überarbeitet.

0.2.1.0 - 4. August 2012

- Umlaute werden richtig dargestellt.

0.2.0.0 - 23. Juli 2012

- Passwort kann maskiert eingegeben werden.
- Es werden drei Rufnummern gelesen und wenn vorhanden auch angezeigt..

0.1.0.0 - 18. Juli 2012

Ich habe die Demo auf das Auslesen des Onlinetelefonbuches ausgerichtet. Ich würde mich freuen, wenn Ihr die Demo ausprobieren und berichten würdet, ob Eure Rufnummern korrekt angezeigt werden.

[Der.Kaktus]

Hallo,

bei mir gab es folgende Ausgabe:

Delphi-Quellcode:

Analog

ISDN
  ISDN1: Hauptnummer
ISDN
DECT (Foncontrol)
DECT (Handset)
IP
IP
SIP
  SIP0: xxxxxxxx
  SIP1: yyyyyyyy
  SIP2: zzzzzzzz
MSN
  MSN0: xxxxxxxx
  MSN1: yyyyyyyy
  MSN2: zzzzzzzz
Fax
Faxmodem
Kurzwahlen

[MacGuyver]

Moin auch! :hi:

BoxInfo

Name FRITZ!Box Fon WLAN 7270 v3
HW 145
Version 74.04.89
Revision 19590
Serial ....
OEM avm
Lang de
Annex B
Lab
Country 049
Flag nomini

Bei Wählhilfe ist der Kasten leer.
Bei Test wiederholt er nur die Anfrage.
Ich habe die Tapi-Unterstützung installiert.
Mein Anschluss ist 2 x ISDN mit 4 MSN und DSL.
Win7 64Bit.

Ich hoffe, du kannst mit den Daten etwas anfangen.

[Garfield]

Danke für die Tests. Ich habe leider vergessen zu schreiben, dass das Script Query.LUA verwendet wird, welches es in der Firmwareversion 74.04.89 noch nicht gibt. Ich musste bei meiner 7320 auch erst ein Update von 74.04.89 auf 74.05.22 vornehmen.

[Sir Rufo]

Ist das eigentlich gewollt, dass die Instanz von THttpRequest niemals freigegeben wird?
Wäre da nicht ein try finally angebracht?

Delphi-Quellcode:

function TFritzbox.GetLogOut: Boolean;
{*******************************************************************************
*  -8- Aus der Fritzbox ausloggen.
}
var
  HTTPReq : THTTPRequest;
begin
  {
  *  Wenn noch nicht eingeloggt ...
  }
  if GetIsLoggedIn then
  begin
    {
    *  Abfrage mit Senden des Passwortes.
    }
    HTTPReq             := THTTPRequest.Create;
    try
      HTTPReq.Method      := 'POST';
      HTTPReq.Accept      := 'text/html';
      HTTPReq.ContentType := 'application/x-www-form-urlencoded';
      HTTPReq.URL         := FRITZBOXurl(FRITZBOX_PATH_WEBCM);
      HTTPReq.SendStream  := Format(FRITZBOX_MENU_LOGOUT, [FSession.SID]);
      {
      *  Ausführen.
      }
      HTTPReq.Execute; 
      {
      *  Eine Überprüfung der Antwort ist nicht notwendig, da keine neue SessionID
      *  übernommen werden muss. Siehe nächsten Kommentar.
      }
    finally
      HTTPReq.Free;
    end;
  end;
  {
  *  Es wird geprüft, ob die SessionID noch gültig und der Zugriff auf die
  *  Fritzbox möglich ist.
  }
  Result := GetIsLoggedIn;
end;

[MacGuyver]

So, nun habe ich die 74.05.22 drauf. Es hat sich nichts geändert. Was muss ich den bei Test reinschreiben?

[Garfield]

Zitat:

Zitat von Sir Rufo (Beitrag 1172164)

Ist das eigentlich gewollt, dass die Instanz von THttpRequest niemals freigegeben wird?
Wäre da nicht ein try finally angebracht?

Gewollt ist so etwas sicher nicht. Muss ich nachher zu Hause mal nachsehen.

Zitat:

Zitat von MacGuyver (Beitrag 1172167)

So, nun habe ich die 74.05.22 drauf. Es hat sich nichts geändert. Was muss ich den bei Test reinschreiben?

Das ist schlecht. Ich habe eigentlich nur den Port für den Callmonitor freigegeben und es funktioniert. Weiß jetzt gar nicht ob für Telnet noch ein Port geöffnet werden muss.
Mir kommt es im Moment nur darauf an, ob in der Wählhilfe Telefoniegeräte angezeigt werden. Unter Test sehe ich mir an, was die Settings bewirken. Im Moment müsste da die Liste der Telefonate angezeigt werden.

[Garfield]

@ Sir Rufo: Vielen Dank für Deinen Hinweis. Das hatte ich übersehen.

@ MacGuyver: Es scheint ein Problem mit der Anmeldung unter Win7 64bit zu geben. Die Antwort ist nicht vollständig und es wird keine SessionID gelesen.

[KarstenK]

FRITZBOX!Box Fon WLAN 7390

Analog

ISDN

ISDN

DECT (Foncontrol)
DECT1: Mobilteil 1

DECT (Handset)

IP
IP0: N82

IP
IP0: N82

SIP

MSN

Fax
FaxMSN0: POTS

Faxmodem

Kurzwahlen


Meine Geräte:

ISDN Telefon Tectra
DECT Handset
Nokia N82 über SIP
Fritzfax am PC


PS: Unter WIn 7 64 bit klappt Anmemldung nicht, ebenfalls in einer XP-VM auf dieser Maschine auch nicht und unter W2k auch nicht

PPS: Was passiert, wenn mehrere Fritzbox im Netz sind?

[Garfield]

Zitat:

Zitat von KarstenK (Beitrag 1172182)

PS: Unter WIn 7 64 bit klappt Anmemldung nicht, ebenfalls in einer XP-VM auf dieser Maschine auch nicht und unter W2k auch nicht

Hört sich nicht so gut an. Habe schon überlegt, ob ich auf URLOpenStream und BindStatusCallback umstellen soll.

Zitat:

Zitat von KarstenK (Beitrag 1172182)

PPS: Was passiert, wenn mehrere Fritzbox im Netz sind?

Es wird nur "http://fritz.box" verwendet. In "function TFritzBox.GetIPIntern: AnsiString;" wird über die Winsock die interne IP ermittelt. Wie man mehrere Fritzboxen erkennen kann, weiß ich leider nicht.

[Garfield]

Das Problem liegt in der Verbindungsgeschwindigkeit. Ich hatte die Header unter Windows XP mit Firefox und LiveHeader ermittelt und Keep_Alive mit 115 angegeben:

Delphi-Quellcode:

const
  KEEP_ALIVE = 115;

...

function TClient.ReceiveBuf: Integer;
{*******************************************************************************
*  -7- Die Antwort abrufen.
}
var
  FBuffer : Array[0..cBufSize - 1] of Char;
begin
  Result := -1;
  if fConnected
  then begin
    fBytesRcvd := 0;
    {
    *  Daten abrufen.
    }
    fBufferStr := '';
    Result     := -1;
    while (Result < 0) or (Result = cBufSize)
    do begin
      sleep(KEEP_ALIVE);
      FillChar(FBuffer, cBufSize, #0);
      Result := recv(fSocket, FBuffer, cBufSize, 0);
      {
      *  Die gelesenen Bytes übernehmen und die Anzahl aktualisieren.
      }
      fBufferStr := fBufferStr + FBuffer;
      inc(fBytesRcvd, Result);
    end;
  end;
end;

Beim Abholen der Antwort wird diese Zeit gewartet. Unter Windows XP ist diese Zeitspanne ausreichend. Bei meinem Windows 7 Home Premium 64Bit musste ich die Zeitspanne auf 300 erhöhen, damit das "Lämpchen" grün wurde.

Somit bekomme ich jetzt

Zitat:

Analog
Analog0: Telefon

ISDN

ISDN

DECT (Foncontrol)
DECT1: AAAA
DECT2: BBBB

DECT (Handset)

IP

IP

SIP
SIP0: 8xxxx

MSN
MSN0: 8xxxx

Fax

Faxmodem

Kurzwahlen
HotDial0: [e-mail]
HotDial1: [e-mail]
HotDial2: [e-mail]

angezeigt. Dauert allerdings wegen der vielen Abfragen sehr lange.

Nachtrag:

Habe die geänderte Version ebenfalls im ersten Beitrag angehangen.

[Garfield]

Zitat:

Zitat von KarstenK (Beitrag 1172182)

IP0: N82

Steht da der Gerätetyp oder die Nummer des Gerätes?

Zitat:

Zitat von KarstenK (Beitrag 1172182)

PPS: Was passiert, wenn mehrere Fritzbox im Netz sind?

Das weiß ich leider nicht. Es wird als URL "Fritz.box verwendet. Ich nehme an, es gibt nur eine Box mit der Adresse und nur diese wird gefunden. Wenn man die Computer im Netzwerk sucht, wird auch keine Fritz.box gefunden sondern nur ein "\\FRITZ!NAS". Unter WinXP wird in der Netzwerkumgebung "FRITZ.NAS an FRITZ!Box (fritz!nas)" angezeigt. Unter Win7 wird die Fritzbox mit ihrem Namen angezeigt. Da bei der Fritzbox eine bestimmte IP voreinstellt ist, könnte man dies als Ausgangspunkt zum Suchen nehmen und die vierte Zahl entsprechen variieren.

Im Anhang ist eine Version, bei der die Abfragen beim Erstellen der Class TFritzbox entfernt wurde und welche dadurch schneller startet.

Es wäre schön wenn weitere Besitzer einer Fritzbox, welche die Demo heruntergeladen haben, mir ihre Testergebnisse mitteilen könnten. Entweder hier oder per PN.

Wen nur die Demo interessiert, kann sich auch die Demo auf der Seite ansehen.

Nachtrag: Der Anhang ist im ersten Beitrag.

[KarstenK]

Es ist die Bezeichnung, die ich selber eingeben habe.

"Bei mehreren Boxen" eventuell vorsehen, da ich die IP-Adresse manuell ändern kann.

[Garfield]

Danke. Dann ist IP in dem Sinne kein Telefoniegerät und könnte aus der Abfrage entfernt werden. An das manuelle Eingeben einer IP habe ich auch schon gedacht.

[DP-Maintenance]

Dieses Thema wurde am "26. Jun 2012, 21:51 Uhr" von "mkinzler" aus dem Forum "Programmieren allgemein" in das Forum "Software-Projekte der Mitglieder" verschoben.

[Garfield]

Ich musste feststellen, dass im Online-Telefonbuch der Fritzbox alle Rufnummern stehen. Also interne und externe. Im neuen Tab werden die Einträge des ersten Telefonbuchs mit jeweils der ersten Nummer ohne Filterung angezeigt.

Download siehe ersten Eintrag.

[KarstenK]

Zitat:

Zitat von Garfield (Beitrag 1172579)

Danke. Dann ist IP in dem Sinne kein Telefoniegerät und könnte aus der Abfrage entfernt werden.

Nein, das ist schon ein Telefon und wird auch als solches genutzt, damit bekomme ich am Handy zu Hause auch meine Festnetztlefonate mit. Das gleiche geht auch fürs Softphones am PC.

[Garfield]

Update 18. Juli 2012

Ich habe die Demo auf das Auslesen des Onlinetelefonbuches ausgerichtet. Ich würde mich freuen, wenn Ihr die Demo ausprobieren und berichten würdet, ob Eure Rufnummern korrekt angezeigt werden.

[Zacherl]

Habe die FritBox 7270 und die Liste bleibt einfach leer :) Die Anmeldung funktioniert aber korrekt.

[Garfield]

Danke für den Test. :cry:

Es wird http://www.wehavemorefun.de/fritzbox/Telcfg#Phonebook verwendet. Wenn ich das richtig verstehe, soll es ab Firmware 4.80 funktionieren.

[Nersgatt]

Bei mir bleibt auch alles leer. Die Anmeldung funktioniert aber (wird grün).
FritzBox 7330 SL
Firmware: FRITZ!OS 05.22

Edit: jetzt funktioniert es. Ich hab mir zwischenzeitlich über den Browser an der FB angemeldet. Ob es daran liegt, dass es jetzt geht? :cyclops:
Allerdings wird die Interne Rufnummer "Büro" nicht richtig dargestellt.

[Garfield]

Hallo Jens,

vielen Dank für Deinen Bericht. Es ist gut möglich, dass es am Anmelden liegt. Manchmal funktioniert die Anmeldung auch erst, wenn man sich über das Webinterface angemeldet hat.

Die falsche Darstellung des Umlauts werde ich mir morgen ansehen.

[totti14]

Hallo Garfield,
an meiner 6360 läuft es auch.
Es wird aber immer nur die erste Nummer des Eintrags angzeigt obwohl es ja bis zu drei Nummern sein können?

[Neutral General]

Bei mir hats geklappt. (FRITZ!Box 7330 SL) Wäre ganz schön wenn das Anmelde-Edit das Passwort nicht im Klartext zeigen würde.... :roll:

[Garfield]

Zitat:

Zitat von Nersgatt (Beitrag 1175294)

Allerdings wird die Interne Rufnummer "Büro" nicht richtig dargestellt.

Die Antwort der Fritzbox ist von Typ "Content-type: application/json", das heißt JavaScript Object Notation. Damit muss ich mich noch beschäftigen. Es gibt anscheinend auch schon etwas in Delphi.

Zitat:

Zitat von totti14 (Beitrag 1175582)

Es wird aber immer nur die erste Nummer des Eintrags angzeigt obwohl es ja bis zu drei Nummern sein können?

Die Fritzbox speichert je Telefonbucheintrag drei Nummern. In der Abfrage wurde nur die erste abgefragt. Ich habe die Abfrage ergänzt.

Zitat:

Zitat von Neutral General (Beitrag 1175587)

Wäre ganz schön wenn das Anmelde-Edit das Passwort nicht im Klartext zeigen würde.... :roll:

Kann jetzt maskiert eingegeben werden.

[Der.Kaktus]

hallo,

befinden sich im Adressbuch Umlaute..so werden sie nicht angezeigt(falsch). ansonsten SUPI (FritzBox 7390)8-)

[Garfield]

Jetzt habe ich mehrfach erfolglos versucht einen Parser einzubauen. Dabei war die Lösung ganz einfach: Utf8ToAnsi. :oops:

[Garfield]

Vielleicht kann man den JSONViewer verwenden/anpassen.

[totti14]

Hallo Garfield,
seit FRITZ!OS 05.29 holt er das Online Telefonbuch nicht mehr ab auf meiner 6360.
"Daten werden geladen" und das wars.:cry:

totti

[Garfield]

totti, Deinen Beitrag habe ich schon ein paar mal gelesen und vor Grübeln vergessen zu antworten. Das Phonebook wird zur Zeit überarbeitet.

[Garfield]

Neue Version im ersten Beitrag. Ist jedoch kein echtes Online Phonebook. Es werden "nur" bestimmte Listen abgefragt. Da meine Fritzbox kein ISDN hat, fehlt diese Überprüfung.