mon ip Internet

Version imprimable

mon ip Internet

salut
ce sujet est déjà posé mainte fois, l'une d'eux est:
http://www.developpez.net/forums/showthread.php?t=29073
mais la solution prposé par sub0 a besoin d'un script php sur un serveur
et en plus c'est un peut leng,,non??
j'ai touvé sa en VB:
Code:

1 2 3 4 5 6 7 8 9 Dim IP As String 'Jérémie Mineault Forget 'Gestion IP Private Sub Form_Load() IP = FrmGestionIp.Inet.OpenURL("http://testip.free.fr/ip.php") If IP = "" Then IP = "Vous n'êtes pas connecté" EtiIpInternet = IP End Sub
quelqu'un peut le convertir en delphi, merci, :P

19/07/2006, 12h25
TicTacToe

Il y a ce post qui traite de cela ici, si c'est bien ce a quoi je pense

http://www.developpez.net/forums/sho...764353#2713210
19/07/2006, 12h26
edam

j'ai remplacé dans http://www.developpez.net/forums/showthread.php?t=29073

Code:

Memo1.Text := GetHTML('http://monsite.com/getmyip.php');

par:

Code:

GetHTML('http://testip.free.fr/ip.php');

et sa marche sans le script PHP, mais vraiment si possible de convertir le code vb, sera mieu ,non???simplement pour comprendre !!!!:lol:

TicTacToe :merci sa marche aussi
voila mon code aprés modif:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
uses  IdHTTP;
 
function GetMyIp(URL: String): String;
Var
  HTTP: TIdHTTP;
begin
  HTTP:= TIdHTTP.Create(nil);
  Try
    Try
      Result:= Http.Get(url);
    Except
      Result:= '';
    End ;
  Finally
    FreeAndNil(http);
  End ;
end;
 
procedure TFPrincip.FormCreate(Sender: TObject);
begin
     Panel6.Caption:=GetMyIp('http://testip.free.fr/ip.php');
end;

merci

19/07/2006, 12h58
edam

le code de sub0 marche a tt les coup, mais le 2éme marche quelque fois et autre il me donne mon IP locale,,bizar
a la fin j'opte pour la solu de sub0
19/07/2006, 19h34
Sub0

Salut! ;)

Que se soit sur Free ou ailleurs, il s'agit dans les deux cas d'appeller un script PHP qui nous retourne notre IP.
Il se peut que ma solution fonctionne mieux pour plusieurs raisons :

- L'url d'un script perso est moins connue, donc plus disponible...
- Mon code PHP est prévu pour gérer les erreurs. Dans tous les cas, l'adresse du client sera retournée.

Edam, que se soit un code VB ou Delphi, il n'y a pas vraiment de différence, puisqu'il s'agira dans tous les cas d'éxécuter une url de la même façon, à+

entre temp j'ai trouvé cette solution, je ne sais pas si tout le monde la connait :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses Wininet;
Function  GetMyIP:String;
const
     body:string='<body>';
     body_:string='</body>';
var  InternetHandle,UrlHandle:HINTERNET;
     i,j:Cardinal;
     p,q:Cardinal;
     buff:string;
begin
     Result:='Erreur';
     InternetHandle:= InternetOpen('', 0, 0, 0, 0);
     if InternetHandle<>nil then
       begin
         UrlHandle := InternetOpenUrl(InternetHandle, 'http://checkip.dyndns.org', 0, 0, INTERNET_FLAG_NEED_FILE, 0);
         if (UrlHandle <> nil) then
           begin
             setlength(buff,256);
             if InternetReadFile(UrlHandle, @buff[1], 255,j) then
               begin
                 setlength(buff,j);
                 p:=Pos(body,buff);
                 if p<=0 then exit;
                 p:=p+length(body);
                 q:=pos(body_,buff);
                 if (p>q) then exit;
                 Result:=copy(buff,p,q-p);
               end;
             InternetCloseHandle(UrlHandle);
           end;
         InternetCloseHandle(InternetHandle);
       end;
end;

:aie: