Internet-IP-Adresse mit www.whatismyip.com

[Trouble_Maker]

Hiho habe folgenden code bei Delphi-Forum.de gefunden:

Code:

const 
  sURL = 'http://www.whatismyip.com'; 
  sSearchText = 'your ip is'; 
var 
  sResult: string; 
  sIP    : string; 
begin 
  try 
    sResult := http.Get(sURL); 
    sResult := LowerCase(sResult); 
    sIP := Copy(sResult, pos(sSearchText, sResult) + Length(sSearchText) + 1,pos(' ', Copy(sResult, pos(sSearchText, sResult) + Length(sSearchText) + 1, length(sResult))) -1 ); 
    ShowMessage(sIP); // hier nun deine ip... 
  except 
    MessageDlg('Sie sind nicht mit dem Internet verbunden.', mtError, [mbOK], 0);

so... nur bei mir findet er das "http" vor dem Get nicht !!! Habe die Indy-Komponente installiert und sie liegt auch auf dem Formular ...

weiss jemand was ich falsch mache ?!?

danke

Trouble_Maker

[Snoop007]

ich hab nicht ganz verstanden was du möchtest
es schien mir so, als wolltest du das http:// weglöschen, falls das der fall ist / war dann kannst du die indy komponenten wieder entfernen

Delphi-Quellcode:

  const URL = 'http://www.gmx.de';
...
begin
  copy(url,pos('w',url),length(url) - pos('w',url)+1);
end;

die function liefert www.gmx.de

[chris]

hi,

er findet das http nicht weil http der name der komponente idhttp von indy sein muss!

gebe der komponente auf deinem formular den namen http, wenn du sie nur auf dein formular ziehst dann ist der name standardmäßig idhttp1, nicht http

[Trouble_Maker]

hi...

ou man...
danke @chris. Einfache Lösung, aber manchmal kommt man einfach nicht drauf


cu Trouble_Maker

[moritz]

Ich hab ne php-Seite auf meine Server, da wird dir nur die IP angezeigt:
http://www.onz24.de/out/showip.php
Vielleicht hilft dir das weiter.

[Trouble_Maker]

hi

@Onz: muss echt ma sagen, dass deine Seite um einiges schneller ist, als www.whatismyip.com

funktioniert aber beides.


danke


Trouble_Maker

[moritz]

Ok

[moritz]

Das ganze geht jetzt auch mit ip.onz24.de

Blast!