Fritzbox AVM Mesh/Router Schnittstelle für Delphi

[David1]

Hallo,
es geht um den folgenden Code:

Delphi-Quellcode:

unit TEstWlan;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, Vcl.StdCtrls;

type
  TForm3 = class(TForm)
    IdTCPClient1: TIdTCPClient;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var
  Response: string;
begin
  IdTCPClient1.Port := 80; // Festlegung des Ports
  IdTCPClient1.Host := '.....'; // IP des Zielgeräts
  IdTCPClient1.ConnectTimeout := 5000; // Timeout für die Verbindung in Millisekunden (hier 5 Sekunden)
  try
    IdTCPClient1.Connect;


    ShowMessage('Erfolgreich');
  except
    on E: Exception do
      ShowMessage('Fehler beim Verbinden mit dem Zielrechner: ' + E.Message);
  end;
end;

end.

Ich möchte per Fritzbox Netzwerk auf Geräte , welche mit diesem verbunden sind kommunizieren (d.h. Daten auslesen und ausgeben - wie zb. Modelname, Gerätbezeichnung etc. oder Befehle wie "auschalten" o.ä.) Die dazu benötigten Befehl, damit die Kommunikation mit Fritzbox funktioniert finde ich nicht. Hat jemand Erfahrung damit und kann mir die Befehle nennen, zeigen wo ich diese finden kann oder eine andere Art der Kommunikation aufzeigen? (dabei sind die anzupingenden Geräte im selben Netzwerk wie der Rechner)
Vielen Dank
LG

[himitsu]

https://avm.de/service/schnittstellen/
siehe Anmelden, Apps/TR und HTTP

FritzBox API

[noisy_master]

Moinsen!

hier gibt es übrigens schon eine Komponente für die Fritzbox, die dir jede Menge Arbeit abnimmt:
https://www.delphipraxis.net/179127-...e-v0-17-a.html

[David1]

Zitat von noisy_master:

Moinsen!

hier gibt es übrigens schon eine Komponente für die Fritzbox, die dir jede Menge Arbeit abnimmt:
https://www.delphipraxis.net/179127-...e-v0-17-a.html

Vielen Dank, nur leider lassen sich die Anhänge nicht richtig ausführen. Welche der Dateien benötige ich für Delphi 11 und welches genau muss ich ausführen, bzw. muss ich noch etwas modifizieren?
LG

[himitsu]

Das Ganze ist schon knapp 10 Jahre alt.

Die Anhänge:
XE5 = Delphi XE5
TDE = Turbo Delphi Explorer / Delphi 2006
LAZ = Lazarus / FreePascal

[supermulti81]

Ich hatte das mal angepasst und es läuft unter Delphi 11.
Der Login musste nochmal geändert werden, da hat AVM immer wieder Änderungen vorgenommen. Und ich hatte die Fritzbox IP anpassbar gemacht. Muss ich mal nachschauen.