بدست آوردن نام هاست از طریق IP

با سلام

بدست آوردن نام Host از طریق IP

function IPAddrToName(IPAddr: string): string;
var
  SockAddrIn: TSockAddrIn;
  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
    Rresult:=StrPas(Hostent^.h_name)
  end
  else
  begin
    Result:='';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=IPAddrToName(Edit1.Text);
end;

تبریک تولد امام زمان (عج)

طلوع نزدیک است اگر بخواهیم
ظهور تو زیباتر از ظهور همه‌ی زیبایی‌هاست
چشم به راه زیباترین بهاریم
خدایا انتظار چقدر دیر می‌گذرد
با صد نگاه خسته، صدا می‌زنیم تو را
بیایید همه منتظر آمدنش شویم