FRITZ!Box Komponente v0.17

[Garfield]

Die Priorität der Wählhilfe hat sich hier wegen der App Fritz Fon verringert. Ist allerdings nicht vom Tisch.

[Neumann]

Hallo,

habe den Anrufmonitor auch mal getestet. Merkwürdigerweise funktioniert dieser bei mir im Büro gut mit einer 7490, woanders mit der gleichen Fritzbox dagegen nicht, da wird schon bei Connect eine Exception (Zugriffsverletzung) geworfen. Was kann das sein?

[Garfield]

Hallo Ralf, wie lautet denn die Fehlermeldung?

[NWNSSolutions]

Hi,
Mega was du da programmiert hast, leider bekomme ich im Anrufmonitor bei dem Button klick auf start einen Runtime error 211:oops:. Könntest du mir vieleicht sagen was das sein könnte? Finde leider nichtmal einen Lösungsansatz. Nutze Lazarus 1.8.2 unter Windows 10 und haben die Box 7390 von AVM. Angemeldet habe ich mich schon!

[EWeiss]

Zitat:

Runtime error 211

Kann viele gründe haben..
Zum Beispiel 64Bit <> 32

gruss

[NWNSSolutions]

Hi ich nutze 64bit mit einem 32bit Kompiler kann das ein problem sein

[EWeiss]

Zitat:

Zitat von NWNSSolutions (Beitrag 1402642)

Hi ich nutze 64bit mit einem 32bit Kompiler kann das ein problem sein

Ich meine wenn diese Fritzbox keinen 32Bit Treiber mehr zur Verfügung stellt und du eine 32Bit Anwendung verwendest um damit zu kommunizieren.

Leider kenne ich diese Box nicht.
Habe hier Speedport.

gruss

[NWNSSolutions]

Ne das war es nicht, aber muss man denn irgendwelche Packages installieren in Lazarus, da wenn ich dein Lazarus Demo nutze funktioniert es wenn ich aber selber Kompiliere geht es nicht oder muss ich eine ältere Version wählen von Lazarus?

[NWNSSolutions]

Hi erstmal vielen dank für den schnellen Support EWeiss, ich habe meinen Fehler erkannt die neue IDE von Lazarus 1.8.2 ist der Fehler man muss eine ältere Version wählen wie die 1.0.12.
Super Tool, jetzt läuft alles!:thumb::-D

[Dalai]

Zitat:

Zitat von EWeiss (Beitrag 1402643)

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

[EWeiss]

Zitat:

Zitat von Dalai (Beitrag 1402648)

Zitat:

Zitat von EWeiss (Beitrag 1402643)

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

[himitsu]

Mir fällt grade ein ... mal heute abend mal mit meinem neuen fritz.router das Ganze ausprobieren.

[kdf]

bekomme den Monitor nicht gestartet.

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

K.-D.

[Garfield]

Die Verbindung wird über ein Socket hergestellt. Dabei ist es egal ob der Port frei ist oder nicht.

[Hunni]

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

[Union]

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;

[alice]

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 ...

[Garfield]

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

[Jolero]

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