5 respuestas en este tema

[FerCastro]

Hola al grupo, después de varios días de intentar y tratar recurro al último recurso

 

Necesito obtener la dirección IP de una dirección URL y he intentado con:

 

- IP Works, (IPInfo)

- INDY, (DNSResolver)

- GetHostByName

 

De IPWorks he probado el demo y corre bien, pero por alguna razón cuadno implemento el código en mi aplicación no resuelve, no se dispara el evento de resolver.

 

De INDY he probado con algunos ejemplos que he encontrado en internet y nada, simplemente no resuelvo.

 

Con GetHostByName he probado, movido tipos de datos y sigo sin obtenerlo.

 

Espero que alguien lo haya resuelto antes y pueda ayudarme.

 

Saludos

 

 

[enecumene]

delphi

function ObtenerIP(const HostName: string): string;
var
  WSAData: TWSAData;
  R: PHostEnt;
  A: TInAddr;
begin
  Result := IPNULL; // '0.0.0.0'
  WSAStartup($101, WSAData);
  R := Winsock.GetHostByName(PAnsiChar(AnsiString(HostName)));
  if Assigned(R) then
  begin
    A := PInAddr(r^.h_Addr_List^)^;
    Result := WinSock.inet_ntoa(A);
  end;
end;

Saludos.

[FerCastro]

Hola Enecumene,

 

Revisando, en unos minutos te comento los resultados. Por el momento te agradezco infinitamente la ayuda.

[seoane]

Prueba con esto:

delphi

uses
  Windows, Winsock;
 
function ObtenerIP(Nombre: AnsiString): String;
var
  WSAData: TWSAData;
  Address: u_long;
  HostEnt: phostent;
  Addr: sockaddr_in;
begin
  Result:= '';
  if WSAStartup(MAKEWORD(1, 1), WSADATA) = 0 then
  try
    // Compruebo si es una ip
    Address:= inet_addr(PAnsiChar(Nombre));
    if Address = INADDR_NONE then
    begin
      // Si no es una ip, intento resolver el nombre
      HostEnt:= gethostbyname(PAnsiChar(Nombre));
      if HostEnt <> nil then
        Address:= PInAddr(HostEnt.h_addr_list^)^.S_addr;
    end;
    if Address <> INADDR_NONE then
    begin
      Addr.sin_addr.S_addr:= Address;
      Result:= inet_ntoa(Addr.sin_addr);
    end;
  finally
    WSACleanup;
  end;
end;

Por ejemplo:

delphi

Writeln(ObtenerIP('www.delphiaccess.com'));

Saludos

[FerCastro]

Ay Wero!!

 

Los Dioses siguen hablando.

 

Gracias!! reviso ahora mesmo y les aviso que onda (en mi trabajo no me dejan experimentar)

[FerCastro]

Estimado Enecumene, tu función fue la buena. Por alguna razón la de Seoane no furuló pero la otra jaló a la perfección y a la primera.

 

Muchas gracias, me han resuelto un dolor de cabeza sin aspirina.

 

Saludos y enecumene,te debo un cartón!! tu dime a donde te lo mando.

 

- El cartón es para Enecumene, así que Poli, E-Go y Héctor favor de no acercarse a la gorra...