"Internet IP" herausfinden

[Yan]

Hi @all,

gibt es eine Möglichkeit in Delphi die "Internet IP" oder "IP hinter Router", also nicht die lokale IP-Adresse, herauszufinden?
Im Moment benutze ich dazu IpX von dieser Website.

Bis dann,

[stefan2005]

hi,
ruf einfach eine PHP_Page auf die die Internet-IP zurückgibt.
Wenn du eigenen Webspace benutzt, kannst du das auch ganz einfach selber machen. Im Internet gibts viel dazu !

cu,
stefan2005

[Surrounder]

DynDns bietet so einen Dienst, hier ein Beispiel mit der Indy Komponente

Delphi-Quellcode:

procedure TForm1.BtnGetProviderIPClick(Sender: TObject);
var
  IPSTR, HP: string;
  BeginIP, EndIP, i: integer;
begin
  BtnGetProviderIP.Enabled := False;
  HP := 'http://checkip.dyndns.org/';

  IdHTTP1.ProxyParams.ProxyServer := EdtProxyIP.Text;
  IdHTTP1.ProxyParams.ProxyPort := StrToInt( EdtProxyPort.Text );
  IPSTR := IdHTTP1.Get(HP);

  BeginIP := Pos('Current IP Address:', IPSTR) + Length('Current IP Address:');
  EndIP := Pos('</body>', IPSTR);

  ip := '';
  for i := BeginIP + 1 to ENDip - 1 do
  begin
    IP := IP + IPstr[i];
  end;
  EdtProviderIP.Text := ip;
  BtnGetProviderIP.Enabled := True;
end;

[Yan]

Sorry Stefan2005, aber die zweite Lösung gefällt mir besser :wink:
Werd' ich gleich mal ausprobieren. Danke!

[Chris1986]

Zitat:

Zitat von Yan

Sorry Stefan2005, aber die zweite Lösung gefällt mir besser :wink:

Mir nicht, kaum ändert dydns den Quelltext funktionierts nicht mehr.

Schieb lieber dieses Script auf nen eigenen Server und ruf es ab:

Code:

<?php
 echo "$REMOTE_ADDR";
?>

Hat den Vorteil das es dein eigenes Script ist und das du den Quelltext nicht parsen musst. In der Antwort vom Web-Server steht nämlich nur die IP.

Gruß
Christian

[Yan]

Okay, überzeugt :wink:

[Gigant02]

Zitat:

Zitat von Chris1986

Zitat:

Zitat von Yan

Sorry Stefan2005, aber die zweite Lösung gefällt mir besser :wink:

Mir nicht, kaum ändert dydns den Quelltext funktionierts nicht mehr.

Schieb lieber dieses Script auf nen eigenen Server und ruf es ab:

Code:

<?php
 echo "$REMOTE_ADDR";
?>

Hat den Vorteil das es dein eigenes Script ist und das du den Quelltext nicht parsen musst. In der Antwort vom Web-Server steht nämlich nur die IP.

Gruß
Christian

gut und wie bekomme ich die antwort in einen string oder so rein ??

ich habs schon versucht klapt aber noch nicht so

lg, Gigant

[moritz]

http://www.delphipraxis.net/internal...ct.php?t=51079

[DevilsCamp]

Zitat:

Zitat von Gigant02

gut und wie bekomme ich die antwort in einen string oder so rein ??

ich habs schon versucht klapt aber noch nicht so

lg, Gigant

Delphi-Quellcode:

function TForm1.GetMyIP(const URLwoPHPdateiLiegt: String): String;
begin
  Result := IdHTTP1.Get(URLwoPHPdateiLiegt);
//  Result := IdHTTP1.Get('http://www.hier_fin.de/st/du_deine/php_datei.php');
end;

Mehr brauchst du nicht ;)

[Coldice111]

Hi!
Nehm doch einfach den code (Es wird da die ip in einem edit angezeigt)
Kompo idhttp1

Delphi-Quellcode:

Edit1.Text  := IdHTTP1.Get('http://headdygivers.he.funpic.de/index.php');

Bei mir geht der Code 100 %

Der Server ist 24 stunden immer an denn kannste ruhig nehmen :D
cu coldice111

[moritz]

Moin!

Darf ich nochmal auf meinen Codelib-Beitrag verweisen? :)
http://www.delphipraxis.net/topic5107 ... ter+mit+winsockets+ermitteln.html

Wenn du die Unit einbindest, sieht dein Code so aus.

Delphi-Quellcode:

ShowMessage('Deine IP: '+getRIP);

Zudem ist das ganze schneller und Platz(RAM & HD)-Sparender als die Indys.

Gruß

[DataCool]

Hi,

zusätzlich ist noch zu erwähnen das die Methode mit einem PHP Script, nicht immer die richtige Antwort liefert.
Probiert das mal aus, wenn Ihr hinter einem Zwangsproxy hängt.

Greetz Data

[Gigant02]

hmm der link geht leider nicht

lg, Gigant

[moritz]

Hier nochmal
Klick