FritzBox - Telefoniegeräte - bitte testen.

[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!

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 von Sir Rufo:

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 von MacGuyver:

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.