Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Función que obtiene la IP pública de un pc local - Delphi
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

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A