Gibts doch gar nicht
Ich habe die gleiche Funktion verwendet und es hat nie geklappt.
Jetzt habe ich endlich den Fehler:
Code:
function GetComputerName(IPAddr: String): string;
var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
begin
WSAStartup($101, WSAData);
SockAddrIn.sin_addr.s_addr := inet_addr(PAnsiChar([B]AnsiString[/B](IPAddr))); // <--
IP-Addr nach AnsiString wandeln
HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
if HostEnt <> nil then
Result := string(StrPas(Hostent^.h_name)) // <- Hostname nach String wandeln
else
Result := '';
end;
Das AnsiString hat mir gefehlt. Ich danke dir!
WIe lange dauert bei dir eigentlich das durchpingen? Ich hab die TimeOut-Zeit auf 50 ms und das dauert schon ne weile.
Dein Tool kann ich nicht öffnen. Mir fehlt
XML 4.0