AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte FRITZ!Box Komponente v0.17

FRITZ!Box Komponente v0.17

Ein Thema von Garfield · begonnen am 16. Feb 2014 · letzter Beitrag vom 26. Dez 2023
Antwort Antwort
Seite 6 von 6   « Erste     456
Benutzerbild von Garfield
Garfield
Registriert seit: 9. Jul 2004
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.
Miniaturansicht angehängter Grafiken
bild1.png  
Angehängte Dateien
Dateityp: 7z FritzBox_v0.17.0.0.7z (175,5 KB, 550x aufgerufen)
Dateityp: 7z Fritzbox_LAZ.7z (545,8 KB, 194x aufgerufen)
Dateityp: 7z FritzBox_TDE.7z (365,4 KB, 167x aufgerufen)
Dateityp: 7z FritzBox_XE5.7z (842,8 KB, 394x aufgerufen)
Gruss Garfield
Ubuntu 22.04: Laz2.2.2/FPC3.2.2 - VirtBox6.1+W10: D7PE, DXE5Prof

Geändert von Garfield (27. Mär 2014 um 19:00 Uhr) Grund: Neue Version
 
EWeiss
 
#51
  Alt 22. Mai 2018, 05:51
Ich meine wenn diese Fritzbox keinen 32Bit Treiber mehr zur Verfügung stellt und du eine 32Bit Anwendung verwendest um damit zu kommunizieren.
Treiber? Dir ist wohl entgangen, dass die Kommunikation mit der Box via HTTP über einen Webserver auf der Box erfolgt.

Grüße
Dalai
Dir ist wohl entgangen,
Zitat:
Leider kenne ich diese Box nicht.
gruss
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

 
Delphi 12 Athens
 
#52
  Alt 22. Mai 2018, 12:29
Mir fällt grade ein ... mal heute abend mal mit meinem neuen fritz.router das Ganze ausprobieren.
  Mit Zitat antworten Zitat
kdf

 
Delphi 10 Seattle Professional
 
#53
  Alt 19. Sep 2019, 20:51
bekomme den Monitor nicht gestartet.

Port 1012 TCP ist frei, #96*5* ist eingeschaltet, aber Verbindung konnte nicht hergestellt werden.

K.-D.
  Mit Zitat antworten Zitat
Benutzerbild von Garfield
Garfield

 
Delphi XE5 Professional
 
#54
  Alt 21. Sep 2019, 11:07
Die Verbindung wird über ein Socket hergestellt. Dabei ist es egal ob der Port frei ist oder nicht.
  Mit Zitat antworten Zitat
Hunni

 
Delphi 11 Alexandria
 
#55
  Alt 22. Sep 2019, 08:16
Hallo,

Ich habe das Programm unter Delphi 10.2 bzw 10.3 zu kompilieren, aber LowPart und HighPart werden als Fehler angesehen.


Val(aValue[0], Result.BytesReceived.LowPart, Error);
Val(aValue[1], Result.BytesReceived.HighPart, Error);
Val(aValue[2], Result.BytesSent.LowPart, Error);
Val(aValue[3], Result.BytesSent.HighPart, Error);

Wurde in Delphi 10.n etwas an der Deklarierung von TULargeInteger geändert?

Viele Grüße

Torsten
  Mit Zitat antworten Zitat
Benutzerbild von Union
Union

 
Delphi 7 Enterprise
 
#56
  Alt 17. Okt 2019, 08:36
Ja, seit Tokyo ist das UInt64. Folgende Korrekturen in UFritzBox beheben das:

Delphi-Quellcode:
// Ergänzung der Defines für neue Compilerversionen

{$IfDef VER330}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$Define USE_ULARGE_INTEGER}{$EndIf}   {Delphi Rio}
{$IfDef VER320}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$Define USE_ULARGE_INTEGER}{$EndIf}   {Delphi Tokyo}
{$IfDef VER310}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$EndIf}   {Delphi Berlin}
{$IfDef VER300}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$EndIf}   {Delphi Seattle}
{$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}

  TOnlineCounter = record
    // Verwendung von ULARGE_INTEGER ab Tokyo
    BytesReceived : {$IfDef DELPHI}{$IfDef USE_ULARGE_INTEGER}ULARGE_INTEGER{$else}TULargeInteger{$endif}{$Else}ULARGE_INTEGER{$EndIf}; // Bytes
    BytesSent : {$IfDef DELPHI}{$IfDef USE_ULARGE_INTEGER}ULARGE_INTEGER{$else}TULargeInteger{$endif}{$Else}ULARGE_INTEGER{$EndIf}; // Bytes
    OutgoingCalls : Cardinal; // Verbindungen der Fritzbox
    ConnectTime : Cardinal; // in Sekunden
  end;
  Mit Zitat antworten Zitat
alice
 
#57
  Alt 30. Sep 2020, 07:38
hi,

habe hier 2 fritzbox'en zum test am laufen,
wie kann ich bestimmen an welche ich mich anmelde ?
habe keinen parameter finden können, bisher ...
  Mit Zitat antworten Zitat
Benutzerbild von Garfield
Garfield

 
Delphi XE5 Professional
 
#58
  Alt 25. Dez 2023, 19:28
Die in der Komponente verwendete Anmeldung funktionierte von Firmware-Version 5.50 bis vor 7.24. Vieles funktioniert bei den neuen Firmwareversionen leider nicht mehr.

https://avm.de/fileadmin/user_upload...Session_ID.pdf
https://avm.de/fileadmin/user_upload...2021-05-03.pdf
  Mit Zitat antworten Zitat
Benutzerbild von Jolero
Jolero

 
Delphi 12 Athens
 
#59
  Alt 26. Dez 2023, 10:10
Hallo,

hier mal die Anmeldung an einer aktuellen FritzBox.
Für den Hash wird HashLib4Pascal eingebunden.
Die EXE wurde mit 10.4 erstellt.


Viele Grüße

Jochen
Angehängte Dateien
Dateityp: zip FritzBoxExe.zip (1,29 MB, 22x aufgerufen)
Dateityp: zip uFritzBox.zip (433,3 KB, 29x aufgerufen)
Jochen
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:29 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz