von IP den Rechnernamen

[Remote1]

anhand IP - Rechnernamen ermitteln

Delphi-Quellcode:

Unit WinSock 
function IPName(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 
    Result := StrPas(Hostent^.h_name) 
  end 
  else 
  begin 
    Result := ''; 
  end; 
end; 

Aufrufen so: 
Source: 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ShowMessage(IPName('127.0.0.1')); 
end;

bei mir kommt jedes mal nur ein leerer string zurück