fritz.box Anruferliste

**JoachimQ**

Hallo!

Ich habe ein Problem.
Ich möchte in einer TWebBrowserkomponente die Anruferliste meiner Fritz.Box anzeigen lassen. Wie mache ich dies? Wenn ich fritz.box aufrufen kommt ja die Startseite der Fritz-Box. Wie lautet der Direktlink zur Anruferliste?

**mkinzler**

Schau dir doch mal den Quellcode der Startseite an.

**JoachimQ**

Zitat von mkinzler:

Schau dir doch mal den Quellcode der Startseite an.

Das bringt mich auch nicht weiter.
Ich möchte die Anruferliste folgendermaßen aufrufen: WebBrowser1.Navigate(DirectLinkzurAnruferliste);
Wie aber heißt dieser DirectLink?

**mkinzler**

Der müßte doch im Quellcode der FritzBox-Startseite stehen

**JoachimQ**

Zitat von mkinzler:

Der müßte doch im Quellcode der FritzBox-Startseite stehen

Im Quellcode finde ich den Link nicht!

**mkinzler**

Poste mal den Quellcode

**JoachimQ**

Zitat von mkinzler:

Poste mal den Quellcode

markieren

Code:

			<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">

<html>

<head>

 <title>FRITZ!Box</title>

 <script type="text/javascript">

 var g_HelpWin = null;

 </script>

</head>

<frameset rows="*">

 <frame src="/cgi-bin/webcm?getpage=../html/index_inhalt.html" id="frame_content" scrolling="auto" frameborder="0" />

 <noframes>

 <body>

 Die FRITZ!Box Benutzeroberfl&auml;che basiert auf XHTML-Frames. Ihr

 Browser scheint diese Art der Darstellung nicht zu unterst&uuml;tzen.

 </p>

 Sie k&ouml;nnen die Oberfl&auml;che trotzdem nutzen, wenn Sie

 <a href="/cgi-bin/webcm?getpage=../html/index_inhalt.html">direkt zur 

 Startseite</a> gehen.

 </p>

Beachten Sie bitte, dass Ihr Browser unbedingt
Javascript unterstützen muss. Bei den meisten Text-basierten
Browsern (lynx, links) ist das nicht der Fall. Bitte
konfigurieren Sie FRITZ!Box an einem Rechner mit DOM-1-kompatiblem
Browser und aktiviertem Javascript, zum Beispiel:

markieren

Code:

			</p>

 <ul>[*]Internet Explorer 5.5, 6 oder h&ouml;her[*]Mozilla basierte Browser (Netscape 6 oder h&ouml;her, Mozilla,

 Firefox, Galeon, ...)[*]Opera[*]Konqueror (Linux KDE)[*]Safari (MacOS)[/list] </body>

 </noframes>

</frameset>

</html>

[edit=Jelly]Code Tags nachgepflegt Mfg, Jelly[/edit]

**Kevin**

Ist der Direktlink nicht ein Javaaufruf: "javascript:jslGoTo('home','foncalls')"?

**TKC**

Hi,
ich habe mir dafür ne Komponente geschrieben ... hier ein Auszug aus dem Code

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TMyGetTelListThread.Execute;

var

  Params                      : TStringList;

  HTTP                        : TIdHTTP;

  sTelList                    : string;

label

  DoAbortAll;

begin

  HTTP := TIdHTTP.Create(nil);

  HTTP.HandleRedirects := True;

  HTTP.Request.ContentLength := -1;

  HTTP.Request.Accept := 'text/html, */*';

  HTTP.HTTPOptions := [hoForceEncodeParams];

  Params := TStringList.Create;

  sTelList := '';

  //Wenn Passwort dann Login durchführen

  if FPasswort <> '' then

    begin

      if Assigned(FOnStatus) then

        FOnStatus('Führe Login durch ...');

      with Params do

        begin

          Clear;

          Add('getpage=../html/de/menus/menu2.html');

          Add('errorpage=../html/index.html');

          Add('var:lang=de');

          Add('var:pagename=home');

          Add('var:menu=home');

          Add('login:command/password=' + FPasswort);

        end;

      //Login To Box

      try

        FHtml := HTTP.Post('http://'+FBoxURL+'/cgi-bin/webcm', Params);

        //Auf ungültiges Passwort prüfen

        if StrIPos('Kennwort ist ungültig', FHtml) > 0 then

          FIntErrStr := 'Kennwort ist ungültig !';

      except

        on E: Exception do FIntErrStr := E.Message;

      end;

    end;

  //Auf abbruch prüfen

  if Self.Terminated then goto DoAbortAll;

  //Telefonliste holen

  if FIntErrStr = '' then

    begin

      if Assigned(FOnStatus) then

        FOnStatus('Fritz!Box Anrufliste erzeugen  ...');

      try

        FHtml := HTTP.Get('http://'+FBoxURL+'/cgi-bin/webcm?getpage=../html/de/menus/menu2.html&' +

                          'errorpage=../html/de/menus/' +

                          'menu2.html&var:lang=de&var:pagename=foncalls&var:' +

                          'errorpagename=foncalls&var:menu=fon');

        if (FPasswort = '') and (StrIPos('FRITZ!Box Anmeldung', FHtml) > 0) then

          FIntErrStr := 'Sie benötigen ein gültiges Kennwort um die Anrufliste der Box abzuholen !';

      except

        on E: Exception do FIntErrStr := E.Message;

      end;

      //Auf abbruch prüfen

      if Terminated then goto DoAbortAll;

      if Assigned(FOnStatus) then

        FOnStatus('Fritz!Box Anrufliste abholen  ...');

      try

        FHtml := HTTP.Get('http://'+FBoxURL+'/cgi-bin/webcm?' + 

                          'getpage=../html/de/FRITZ!Box_Anrufliste.csv');

        sTelList := StrAfter('Dauer', FHtml);

        sTelList := Trim(sTelList);

      except

        on E: Exception do FIntErrStr := E.Message;

      end;

      //Auf abbruch prüfen

      if Terminated then goto DoAbortAll;

    end;

  //Telefonliste löschen

  if (FDeleteOnBox) and (FIntErrStr = '') then

    begin

      if Assigned(FOnStatus) then

        FOnStatus('Fritz!Box Anrufliste löschen ...');

      with Params do

        begin

          Clear;

          Add('getpage=../html/de/menus/menu2.html');

          Add('errorpage=../html/de/menus/menu2.html');

          Add('var:lang=de');

          Add('var:pagename=foncalls');

          Add('var:errorpagename=foncalls');

          Add('var:menu=fon');

          Add('var:pagemaster=');

          Add('telcfg:settings/ClearJournal=1');

        end;

      try

        FHtml := HTTP.Post('http://'+FBoxURL+'/cgi-bin/webcm', Params);

      except

        on E: Exception do FIntErrStr := E.Message;

      end;

      //Auf abbruch prüfen

      if Self.Terminated then goto DoAbortAll;

    end;

  //Event auslösen

  if Assigned(FOnHttpResult) then

    FOnHttpResult(sTelList, FIntErrStr);

  DoAbortAll:

  Params.Free;

  HTTP.Free;

end;

[edit=Jelly]Die zu langen Zeilen auf Wunsch etwas umgebrochen Mfg, Jelly[/edit]

**CalganX**

Mit Labels? Warum nimmst du nicht einen try...finally-Block? Das ist eigentlich das, was man grundsätzlich verwenden sollte unter Delphi.

Chris

fritz.box Anruferliste

fritz.box Anruferliste

Re: fritz.box Anruferliste

Re: fritz.box Anruferliste

Re: fritz.box Anruferliste

Re: fritz.box Anruferliste

Re: fritz.box Anruferliste

Re: fritz.box Anruferliste

Re: fritz.box Anruferliste

Re: fritz.box Anruferliste

Re: fritz.box Anruferliste

Forumregeln

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.858 Beiträge Delphi 11 Alexandria	#2 Re: fritz.box Anruferliste 23. Mär 2007, 10:46 Schau dir doch mal den Quellcode der Startseite an. Markus Kinzler
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.858 Beiträge Delphi 11 Alexandria	#4 Re: fritz.box Anruferliste 23. Mär 2007, 11:00 Der müßte doch im Quellcode der FritzBox-Startseite stehen Markus Kinzler
	Zitat

JoachimQ Registriert seit: 17. Aug 2003 Ort: Woltersdorf 56 Beiträge Delphi 10.1 Berlin Starter	#5 Re: fritz.box Anruferliste 23. Mär 2007, 11:24 Zitat von mkinzler: Der müßte doch im Quellcode der FritzBox-Startseite stehen Im Quellcode finde ich den Link nicht! Wer die Vergangenheit regiert regiert die Zukunft. Wer die Zukunft regiert regiert die Vergangenheit. Alles positiv sehen
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.858 Beiträge Delphi 11 Alexandria	#6 Re: fritz.box Anruferliste 23. Mär 2007, 11:29 Poste mal den Quellcode Markus Kinzler
	Zitat

Kevin Registriert seit: 11. Feb 2004 Ort: Bonn 576 Beiträge Delphi 2006 Professional	#8 Re: fritz.box Anruferliste 23. Mär 2007, 11:39 Ist der Direktlink nicht ein Javaaufruf: "javascript:jslGoTo('home','foncalls')"? Kevin
	Zitat

CalganX Registriert seit: 21. Jul 2002 Ort: Bonn 5.403 Beiträge Turbo Delphi für Win32	#10 Re: fritz.box Anruferliste 23. Mär 2007, 16:17 Mit Labels? Warum nimmst du nicht einen try...finally-Block? Das ist eigentlich das, was man grundsätzlich verwenden sollte unter Delphi. Chris
	Zitat