Öffentliche IP der Fritz-Box in Delphi ermitteln?

[inherited]

Das ist zwar toll mit UPnP, allerdings kann das nicht jeder Router. Wenn du das Programm also weiter geben möchtest, soltest du möglichst flexibel sein. Das bist du mit meiner Lösung.
Wenn es nur für dich Privat ist, ist UPnP natürlich die "elegantere" Lösung. Das mit der Zwangstrennung brauchst du mir übrigens nicht erzählen

[TOC]

Hi!

Zitat von inherited:

Das ist zwar toll mit UPnP, allerdings kann das nicht jeder Router. Wenn du das Programm also weiter geben möchtest, soltest du möglichst flexibel sein. Das bist du mit meiner Lösung.
Wenn es nur für dich Privat ist, ist UPnP natürlich die "elegantere" Lösung. Das mit der Zwangstrennung brauchst du mir übrigens nicht erzählen

Ja, ok, da hast Du natürlich recht. Deine Methode ist wesentlich kompatiebler als eine Abfrage über UpNP, weil das ja nit jeder Router (Oder gar Modem???) kann. Ausserdem dürfte DynDNS so gut wie IMMER online sein, ist ja auch deren Geschäft. Und Dein Code ist genial, den kann ich sogar mühelos nach D3 portieren, oder Sockets "von Hand" programmieren. Ich hätte nicht gedacht das es so einfach zu lösen ist, Danke nochmnal für Deinen Tip.

Ich betrachte die Frage nun also als beantwortet und werd sie entsprechend markieren.

Vielen Dank an alle!

Grüsse von TOC !

[RWarnecke]

Habt Ihr es vielleicht mal mit diesem Beitrag probiert ?

[WS1976]

Hallo,

also ich habe es hier in unserer Firma mit ca 100 DSL Routern zu tun.
Jedes Gerät, aber auch jedes, das ich bisher in den Fingern hatte kann UPNP.
Man muss UPNP natürlich freischalten.
Natürlich ist es erforderlich sich trotz des Democodes noch "ein Minimum" mit dem Thema
zu beschäftigen. So benötigt man eventuell einen PNP explorer.
Dass man ein activeX importieren muss hatte ich leider vergessen zu erwähnen.

Nebenbei: den ganzen Code hab ich mir aus der DP zusammengesucht.
Suchen macht schlau!

Viele Grüsse

[jesus]

Zitat:

Ist abgeleitet von der UPnP.dll (%Systemroot%\system32\) und kann über "Komponente importieren..." (D2005; D3 bzw. D7 k.A. Sad ).

Unter Delphi 2005 Personal geht das leider nicht. Hat denn jemand die UPNPLib_TLB.pas und würde sie hier posten ? Alternativ per PN ?

Grüße jesus

[RWarnecke]

Mit diesem Link bekommt man seine Internet-IP Adresse als reinen Text. Das geht ganz einfach mit :
Label1.Caption := IdHTTP.Get('http://ip.smartcoder.net/txt/');