Entwickler-Ecke :: Thema anzeigen - IP hinter Router finden

Opa - Do 29.12.05 14:53
Titel: IP hinter Router finden

Bei Delphi 6.0 habe ich immer diese Routine benutzt um eine IP hinter einem Router zu finden;

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function _RouterIPFinden(Url:string):string;
var //uses NMHttp,SysUtils
  NHttp:TNMHTTP;
begin
  NHttp := TNMHTTP.Create(nil);
  try
    result := '';
    try
      NHttp.TimeOut := 20000;
      NHttp.Get(Url);
    except on E: Exception do exit;
    end;
    result := NHttp.Body;
  finally
    NHttp.Free;
  end;
end;

Dazu kommt noch eine php Datei auf dem Server:
<?
echo $_SERVER['REMOTE_ADDR'];
?>

In Delphi 7.0 gibt es aber nicht mehr >>TNMHTTP<< was kann man von Indy nehmen um dass gleiche zu erziehen?

Moderiert von raziel: Code- durch Delphi-Tags ersetzt

Opa - Do 29.12.05 16:37

Ich habe das jetzt getestet!
Mit Indy geht das so:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TMain.Button1Click(Sender: TObject);
var //uses IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP
  IdHTTP :TIdHTTP;
begin
 IdHTTP := TIdHTTP.Create(nil);
 try
   IdHTTP.ReadTimeout := 20000;
   Memo1.Text:=idHTTP.Get('http://www.DeinServer.de/yourip.php');//siehe oben das PHP Teil
 finally
   IdHTTP.Free;
 end;
end;

Das Teil das Narses vorgeschlagen hat geht auch aber es geht NUR NOCH "whatismyip.com"! Alle anderen sind OFF, deswegen mache ich das mit Indy über meinen Server und dem php teil, da weiß ich das ich ON bin *g

MFG

Moderiert von raziel: Code- durch Delphi-Tags ersetzt

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!