Lenguaje de programación Borland Delphi
Esta función obtiene la IP pública del PC donde se ejecute. Para ello utiliza una web externa (por ejemplo: www.ajpdsoft.com/ip.php). Esta función sólo utiliza un componente que viene incluido en Delphi 6, en la paleta de componentes de Indy, llamado "TidHTTP". Este componente nos servirá para obtener en un TStringList el contenido de la Web elegida para la optención de la IP:
function ObtenerIPPublicaPCLocal(webIP, textoBuscar : string) : string;
var
obtenerHTTP : TidHTTP;
web : TStringList;
i, posCar : integer;
lineaActual, lineaCor, ip : string;
begin
web := TStringList.Create;
try
obtenerHTTP := TidHTTP.Create(nil);
web.Text := obtenerHTTP.Get(webIP);
finally
obtenerHTTP.Free;
end;
for i := 0 to web.Count do
begin
lineaActual := web.Strings[i];
if Pos (textoBuscar, lineaActual) <> 0 then
begin
lineaCor := copy (lineaActual, Pos (textoBuscar, lineaActual)
+ length(textoBuscar), length(lineaActual));
posCar := 1;
ip := '';
while (lineaCor[posCar] in ['0'..'9']) or (lineaCor[posCar] = '.') do
begin
ip := ip + lineaCor[posCar];
posCar := posCar + 1;
end;
Break;
end;
end;
ObtenerIPPublicaPCLocal := ip;
end;
Un ejemplo de utilización:
...
ObtenerIPPublicaPCLocal ('http://www.ajpdsoft.com/ip.php', 'Su IP: ');
...
Publicado el: 2005-02-07