Öffentliche IP der Fritz-Box in Delphi ermitteln?

[TOC]

Hi!

Ich habe folgendes Problem: Ich habe eine Fritz!-Box Fon WLan 7170 als DSL-Router und ich möchte nun die ÖFFENTLICHE Ip meiner Box mit einem Delphi-Programm ermitteln. Das Problem ist das sich diese öffentliche IP mindestens einmal innerhalb von 24 Stunden verändert, manchmal auch öfter.

Wie kann man diese IP mit Delphi abfragen ?

Ich hab schon die Suche probiert, aber da leider nix gefunden.

Danke für Eure Antworten!

Grüsse von TOC!

[mkinzler]

Die Seite Auslesen und Parsen oder dyndns verwenden und diese Auslesen.

[inherited]

So einfach geht das leider nicht. Aber du kannst es anders machen, indem du eine Website fragst.
Siehe http://www.delphipraxis.net/internal...ct.php?t=84289

Hm, mkinzler war wieder schneller :?
(Aber ich hab einen Link :P )

[WS1976]

Hallo Toc,

ich kann dir heute Abend den zugehörigen Sourcecode senden wenn du willst.
Geht ganz einfach. Hab den Code leider nicht hier.

Viele Grüsse

[WS1976]

Hallo,

das geht mit UPNP und das kann die Fritzbox kinderleicht!

Bis später

[TOC]

Hi!

Danke für Eure Antworten :thumb: !

Also, das mit der Seite da von wegen dyndns probier ich gleich mal aus.

Zitat:

Zitat von WS1976

Hallo Toc,
ich kann dir heute Abend den zugehörigen Sourcecode senden wenn du willst.
Geht ganz einfach. Hab den Code leider nicht hier.

Oh, Danke, das wäre cool. Schick mir den Code bitte mal auch wenn das mit dyndns funkruioniert, vielleicht kann ich aus Deiner Source ja sonst irgenwas lernen.

Ich beschäftige mich grad sehr intensiv mit Netzwerkprogrammierung und TCP und spiel grad rum mit Indy 10...

Grüsse von TOC!

[TOC]

Hi!

Zitat:

Zitat von WS1976

Hallo,

das geht mit UPNP und das kann die Fritzbox kinderleicht!

Bis später

Ja, nur wie??? Kanns kaum erwarten Deinen Source zu sehen, weil das mit dyndns gefällt mir nit so richtig!

Grüsse von TOC!

[oki]

Zitat:

Zitat von WS1976

Hallo Toc,

ich kann dir heute Abend den zugehörigen Sourcecode senden wenn du willst.
Geht ganz einfach. Hab den Code leider nicht hier.

Viele Grüsse

Hi WS1976. Poste den Code doch hier, dann haben wir alle was davon. Ich bräuchte das für meinen Router "Speedport W 701V".

Gruß oki

[TOC]

Hi!

Zitat:

Zitat von oki

Hi WS1976. Poste den Code doch hier, dann haben wir alle was davon. Ich bräuchte das für meinen Router "Speedport W 701V".

Gruß oki

Ja, genau! Mit UPnP wäre am logischsten weil man dafür nicht ins Netzt gehen muss!

Ich habe folgendes probiert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Temp: string;
begin
  Temp := IdHTTP1.Get('http://checkip.dyndns.org');
  Label1.Caption := Copy(Temp, Pos(':', Temp) + 2, Pos('</bo', Temp) - Pos(':', Temp) - 2);
  Label2.Caption:= Temp;
end;

Gut, ok, das in den Label 2 rein zu schreibben ist gewagt, ich geb´s zu!

Aber ich bekomme mit Indy 10 immer nur die Fehlermeldung:

Zitat:

Zitat von Indy 10 IdHTTP1

Socket Error # 10055 No Buffer Space available!

:gruebel: Wieso funktioniert denn dat mit dem Quote nit?

Grüsse von TOC :roll: !

[TOC]

Hi!

Also, Leute, dat hier kapier ich nun wirklich nicht. Wenn ich das D7 Testprogramm von der IDE aus Starte bekomme ich diese Fehlermeldung "No bufferspace available!", aber wenn ich direkt die kompilierte Exe starte klappts einwanfrei :wall: !

Woran kann den dat nur liegen :x ?

Grüsse von TOC!