mon ip Internet

**edam** · 19/07/2006, 11h55

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

**TicTacToe** · 19/07/2006, 12h25

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

**edam** · 19/07/2006, 12h26

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**edam** · 19/07/2006, 12h33

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**edam** · 19/07/2006, 12h58

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

**Sub0** · 19/07/2006, 19h34

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, à+

**edam** · 03/08/2009, 22h57

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

mon ip Internet

Web & réseau Delphi

Discussions similaires

Partager

Partager