gethostbyaddr太慢

Question

我使用下面的代碼，結果是正確的，但gethostbyaddr大約需要30秒。

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

問候 艾倫

Answer 1

Windows根據主機和LAN的配置方式，嘗試使用不同方法執行主機名解析。見http://technet.microsoft.com/en-us/library/bb727005.aspx。 您不應該在未正確配置的局域網中使用DNS服務器（或至少一個WINS服務器）或正確的主機文件來測試該代碼。否則，您無法在正確配置的LAN中獲得您期望的結果。