ip to domain çevirici

[TURGUT]

MERHABA arkadaşlar hepinize kolay gelsin,
ip to domain ( 65.54.174.253=hotmail.com)çevirici program yapmak istiyorum, yalnız bu konuda fazla bi bilgim yok sizden nasıl yapabilirim, kullanılan komutlar vs.. nedir.
bana yol göstermenizi istiyorum

[husonet]

Domain e ping atarak ip numarasını bulabilirsin.

Kolay Gelsin...

[mrmarman]

Merhaba...
- Google'da buldum ve denedim... Çalışıyor...

Fonksiyon :

Kod: Tümünü seç

function IPAddrToName(IPAddr: string): string;
var
  SockAddrIn: TSockAddrIn; // Uses Winsock
  HostEnt: PHostEnt;
  WSAData: TWSAData;
begin
  WSAStartup($101, WSAData);
  SockAddrIn.sin_addr.s_addr:=inet_addr(PChar(IPAddr));
  HostEnt:= GetHostByAddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
  if HostEnt<>nil then
  begin
    Result:=StrPas(Hostent^.h_name)
  end
  else
  begin
    Result:='';
  end;
end;

Kullanımı :

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IpAddrToName('65.54.174.253'));
end;

[TURGUT]

kodlar için teşekkür ederim gerçekten çok işime yaradı.İşinizde başarılar kolay gelsin.