"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
Werd' ich gleich mal ausprobieren. Danke!

[Chris1986]

Zitat von Yan:

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

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

[Gigant02]

Zitat von Chris1986:

Zitat von Yan:

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

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 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

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
cu coldice111