Hallo Luckie,
erstmal danke, aber so habe ich das bei mir eingebaut:
Delphi-Quellcode:
function NameToIPAddr(IPAddr: PAnsiChar): AnsiString;
var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
begin
WSAStartup($101, WSAData);
SockAddrIn.sin_addr.s_addr := inet_addr(IPAddr);
HostEnt := GetHostByName(@SockAddrIn.sin_addr.S_addr);
if HostEnt <> nil then
Result := StrPas(Hostent^.h_name)
else
Result := '';
end;
bekomme aber immer nur einen leeren Wert zurück! Irgend eine Idee?