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