IP herausfinden?

Wolle92 · Verfasst: So 16.09.07 15:01

Hallo,
kann mir jemand sagen, wie ich die IP-Adresse, die im Internet angezeigt wird, also nicht die Netzwerk-IP-Adresse, mit Delphi herausfinden kann?

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

Nun ein wirklich zuverlässiges Ergebnis zu bekommen ist sicher schwer, wegen Firewall&Proxy, Router etc.
Eine Idee wäre, www.wieistmeineip.de aufzurufen und die dortige IP zu suchen.

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

Wolle92 · Verfasst: So 16.09.07 15:14

im Quellcode der Seite sieht man auch, es ist nicht schwer:

markieren

Quelltext

1:	<h1 class="ip">Hier steht die IP-Adresse</h1>

also ungefähr so:

markieren

Delphi-Quelltext

1:
2:
3:
4:

wimip := IdHTTP1.Get('www.wieistmeineip.de');
pos1 := Pos('<h1 class="ip">',wimip)+15;
pos2 := Pos('</h1>',wimip);
ip := Copy(wimip,pos1,pos2-pos1);

Wolle92 · Verfasst: So 16.09.07 15:24

Das klappt nicht... gibt immer ein "Connection reset by peer"... woran könnte das liegen?

Calculon · Verfasst: So 16.09.07 16:02

markieren

Delphi-Quelltext

1:	wimip := IdHTTP1.Get('http://www.wieistmeineip.de/');

Wolle92 · Verfasst: So 16.09.07 16:07

Danke!

Narses · Verfasst: So 16.09.07 23:24

Moin!

Zu dem Thema haben wir auch einen FAQ-Beitrag!

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme