Ver Mensaje Individual
  #5  
Antiguo 22-01-2008
Avatar de acertij022
acertij022 acertij022 is offline
Miembro
 
Registrado: may 2003
Ubicación: Argentina-Bs. As.
Posts: 233
Reputación: 22
acertij022 Va por buen camino
Yo lo que aria es conectarme atravez de idHTTP a una pagina externa el cual te diga de que ip venis ejemplo los proxyJudge (http://www2.dokidoki.ne.jp/tomocrus/...eck/prxjdg.cgi)
seria algo asi
Código Delphi [-]
Function MyIP():string;
var
Html,ADDR:string;
begin
Html:=idHTTP.Get('http://www2.dokidoki.ne.jp/tomocrus/cgi-bin/check/prxjdg.cgi');
if pos('REMOTE_ADDR',uppercase(Html))>0 then
               begin
               ADDR:=copy(Html,pos('REMOTE_ADDR',uppercase(Html))+11,length(Html));
               ADDR:=copy(ADDR,1,pos(#10,ADDR)-1);
               str1:='';
               for int1:=1 to length(ADDR) do if ADDR[int1]in['0'..'9','.'] then Str1:=Str1+ADDR[int1];
               ADDR:=Str1;
               end;
Result:=ADDR;
end;

Espero haber sido de ayuda
Responder Con Cita