Convertir IP al nombre relacionado y viceversa

[arima]

Buenas queridos amigos espero recibir su pronta ayuda y de paso despejar esta duda que me carcome la cabeza.

La verdad desearia que alguien me diga como puedo introducir por decir algo un numero IP en una caja de texto y que mi aplicacion me devuelva el nombre asociado a este IP. por ejemplo: si coloco el IP 64.233.187.99, el sistema me devuelva el nombre asociado que en este caso seria www.google.com

gracias de anteman o

[[Gunman]]

Si no me equivoco de eso se encargan los servidores DNS. Busca en el google. Los servidores DNS llevan asociado el dominio a la dirección IP.

[dec]

Hola,

En este enlace puede contrarse la unidad "SimpleTcp" escrita por Piechnat. En dicha unidad existen dos funciones que no sé porqué a mí no me van bien, pero, que, puede que a ti te vayan bien, o, cuando menos, te da alguna que otra idea:

Código Delphi [-]
uses
  WinSock;

function HostToIP(Host: string): string;
var
  He: PHostEnt;
  InAddr: TInAddr;
begin
  Result := '';
  He := gethostbyname(PChar(Host));
  if He <> nil then
  begin
    Move(He^.h_addr_list^^, InAddr.S_addr, He^.h_length);
    Result := string(inet_ntoa(InAddr));
  end;
end;

function IPToHost(IP: string): string;
var
  He: PHostEnt;
  Addr: Integer;
begin
  Result := IP;
  Addr := inet_addr(PChar(IP));
  He:= gethostbyaddr(@Addr, SizeOf(Addr), AF_INET);
  if He <> nil then Result := He^.h_name;
end;

[OSKR]

Pues es verdad, eso lo hace el DNS, si este no encuentra la dirección entonces la mandará afuera ligando exito (claro está, si está configurado para hacer esto), por ejemplo en www.google.com.ve será consultado en dominio "ve" q ubicación tiene su .com y a este se le preguntará a q dirección apunta el nombre "google" y asi...
Con gethostbyname puedo resolver IP's dado el nombre en linux, en windows no he podido, siempre me devuelve un maldito '\n'.
Mira esto:
http://curl.haxx.se/mail/lib-2003-01/0241.html
http://msdn.microsoft.com/library/de...stbyname_2.asp
Edición: dec te me adelantaste por cuestión de congestión aqí existente, chiezen!! bueno estos enlaces tratan de lo mismo, no pongo mi código en windows xq aún no me funciona

[[seoane]]

Solo añadir que para que el codigo anterior funcione hay que inicar winsock primero. Quedaria algo asi:

Código Delphi [-]
function IPToHost(IP: string): string;
var
  WSADATA: TWSADATA;
  He: PHostEnt;
  Addr: Integer;
begin
  Result := IP;
  if WSAStartup(MAKEWORD(1, 1), WSADATA) = 0 then
  begin
    Addr := inet_addr(PChar(IP));
    He:= gethostbyaddr(@Addr, SizeOf(Addr), AF_INET);
    if He <> nil then Result := He^.h_name;
    WSACleanup();
  end;
end;

Lo he probado y si le pongo la ip de mi maquina, por ejemplo, me devuelve el nombre del equipo pero si pongo la ip de google no me devuelve nada.

EDITO: Si pongo la ip 212.34.137.175 me devuelve "clubdelphi.net" asi que debe de funcionar

[OSKR]

En eso tienes razón, de lo contrario daría este error: WSANOTINITIALISED, pero aún no puedo resolver el IP dado el nombre, claro!! con el gethostbyname

[Mick]

Solo comentar que el que no funcione con google o con otros servidores no es un problema del codigo, simplemente esto significa que google en sus DNS no habra definido el registro en su zona inversa, de modo que no es posible saber el nombre a partir de la IP.

Otra cosa a tener en cuenta es que es posible que la funcion devuelva un nombre distinto al que esperariamos, eso es debido a que una misma IP puede tener muchos nombres distintos.

Saludos