Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· 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

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+