Delphi getaddrinfoW为任何主机名返回11001，但如果输入了IP则有效

我在Indy上使用Delphi XE5，一个客户正在获得

套接字错误#11001
找不到主机。

在我的机器上打同样的电话效果很好

对于SMTP和FTP
如果输入IP或主机名，Ping和nslookup都可以在该机器上工作

我已经创建了一个复制该问题的单元

unit Unit3;

interface
uses winsock2, TypInfo;

const
  AI_PASSIVE                = $00000001;   // Socket address will be used in bind() call
  AI_CANONNAME              = $00000002;   // Return canonical name in first ai_canonname
  AI_NUMERICHOST            = $00000004;   // Nodename must be a numeric address string
  AI_NUMERICSERV            = $00000008;  // Servicename must be a numeric port number
  AI_ALL                    = $00000100;  // Query both IP6 and IP4 with AI_V4MAPPED
  AI_ADDRCONFIG             = $00000400;  // Resolution only if global address configured
  AI_V4MAPPED               = $00000800;  // On v6 failure, query v4 and convert to V4MAPPED format (Vista or later)
  AI_NON_AUTHORITATIVE      = $00004000;  // LUP_NON_AUTHORITATIVE  (Vista or later)
  AI_SECURE                 = $00008000;  // LUP_SECURE  (Vista or later and applies only to NS_EMAIL namespace.)
  AI_RETURN_PREFERRED_NAMES = $00010000;  // LUP_RETURN_PREFERRED_NAMES (Vista or later and applies only to NS_EMAIL namespace.)
  AI_FQDN                   = $00020000;  // Return the FQDN in ai_canonname  (Windows 7 or later)
  AI_FILESERVER             = $00040000;  // Resolving fileserver name resolution (Windows 7 or later)
  AI_DISABLE_IDN_ENCODING   = $00080000;  // Disable Internationalized Domain Names handling

type
  TAIFlag = (idf_Passive, idf_CanonName, idf_NumericHost, idf_NumericServ, idf_All, idf_AddrConfig,
    idf_V4Mapped, idf_NonAuthoritative, idf_Secure, idf_ReturnPreferredNames, idf_FQDN, idf_FileServer,
    idf_DisableIDNEncoding);
  TAIFlags = set Of TAIFlag;

  TAFFamily = ( aff_UNSPEC, aff_INET, aff_NETBIOS, aff_INET6, aff_IRDA, aff_BTH);

  TAIPROTOCAL = ( aip_IP, aip_TCP, aip_UDP, aip_RM_Or_PGM );

  function GetTAIFlagsValue(aTAIFlags : TAIFlags) : integer;
  function GetTAFFamilyValue(aTAFFamily : TAFFamily) : integer;
  function GetTAIPROTOCALValue(aTAIPROTOCAL : TAIPROTOCAL) : integer;

type
  ULONG_PTR = NativeUInt;
  SIZE_T = ULONG_PTR;

  TIN6_ADDR = record
    s6_bytes: array[0..15] of u_char;
    {
    case Integer of
      0: (s6_bytes: array[0..15] of u_char);
      1: (s6_words: array[0..7] of u_short);   }
  end;

  sockaddr_in6 = record
    sin6_family: Smallint;
    sin6_port: u_short;
    sin6_flowinfo: u_long;
    sin6_addr : TIN6_ADDR;
    sin6_scope_id: u_long;
  end;
  TSockAddrIn6 = sockaddr_in6;
  PSockAddrIn6 = ^sockaddr_in6;

  PAddrInfoW = ^ADDRINFOW;
  ADDRINFOW = record
    ai_flags        : Integer;      // AI_PASSIVE, AI_CANONNAME, AI_NUMERICHOST
    ai_family       : Integer;      // PF_xxx
    ai_socktype     : Integer;      // SOCK_xxx
    ai_protocol     : Integer;      // 0 or IPPROTO_xxx for IPv4 and IPv6
    ai_addrlen      : size_t;        // Length of ai_addr
    ai_canonname    : PWideChar;    // Canonical name for nodename
    ai_addr         : PSockAddrIn;    // Binary address
    ai_next         : PAddrInfoW;   // Next structure in linked list
  end;
  TAddrInfoW = ADDRINFOW;
  LPADDRINFOW = PAddrInfoW;



  function GetAddrInfoW(const nodename: PWideChar; const servname : PWideChar; const hints: PAddrInfoW; var res: PaddrinfoW): Integer; stdcall; external 'ws2_32.dll';// name 'getaddrinfo';
  procedure FreeAddrInfoW(ai: PAddrInfoW); stdcall; external 'ws2_32.dll';// name 'freeaddrinfo';

function DoIT(aHostName : String; aTAIFlags : TAIFlags = []; aTAFFamily : TAFFamily = aff_UNSPEC;aTAIPROTOCAL : TAIPROTOCAL = aip_IP) : String;

implementation
uses sysutils, windows;

function GetTAIPROTOCALValue(aTAIPROTOCAL : TAIPROTOCAL) : integer;
begin
  result := IPPROTO_IP;
  case aTAIPROTOCAL of
    aip_IP        : Result := IPPROTO_IP;
    aip_TCP       : Result := IPPROTO_TCP;
    aip_UDP       : Result := IPPROTO_UDP;
    aip_RM_Or_PGM : Result := IPPROTO_PGM;
    else
      raise Exception.Create('GetTAIPROTOCALValue unknown value ('+ inttostr( ord( aTAIPROTOCAL ) ) +')');
  end;
end;

function GetTAFFamilyValue(aTAFFamily : TAFFamily) : integer;
begin
  result := 0;
  case aTAFFamily of
    aff_UNSPEC : Result := AF_UNSPEC;
    aff_INET   : Result := AF_INET;
    aff_NETBIOS: Result := AF_NETBIOS;
    aff_INET6  : Result := AF_INET6;
    aff_IRDA   : Result := AF_IRDA;
    aff_BTH    : Result := AF_BTH;
  else
    raise Exception.Create('Unknown Value('+ inttostr( Ord( aTAFFamily )) +') fn[ GetTAFFamilyValue] ');
  end;
end;

function GetTAIFlagsValue(aTAIFlags : TAIFlags) : integer;
begin
  result := 0;
  if idf_Passive in aTAIFlags then begin
    result := result + AI_PASSIVE;
  end;
  if idf_CanonName in aTAIFlags then begin
    result := result + AI_CANONNAME;
  end;
  if idf_NumericHost in aTAIFlags then begin
    result := result + AI_NUMERICHOST;
  end;
  if idf_NumericServ in aTAIFlags then begin
    result := result + AI_NUMERICSERV;
  end;
  if idf_All in aTAIFlags then begin
    result := result + AI_ALL;
  end;
  if idf_AddrConfig in aTAIFlags then begin
    result := result + AI_ADDRCONFIG;
  end;
  if idf_V4Mapped in aTAIFlags then begin
    result := result + AI_V4MAPPED;
  end;
  if idf_NonAuthoritative in aTAIFlags then begin
    result := result + AI_NON_AUTHORITATIVE;
  end;
  if idf_Secure in aTAIFlags then begin
    result := result + AI_SECURE;
  end;
  if idf_ReturnPreferredNames in aTAIFlags then begin
    result := result + AI_RETURN_PREFERRED_NAMES;
  end;
  if idf_FQDN in aTAIFlags then begin
    result := result + AI_FQDN;
  end;
  if idf_FileServer in aTAIFlags then begin
    result := result + AI_FILESERVER;
  end;
  if idf_DisableIDNEncoding in aTAIFlags then begin
    result := result + AI_DISABLE_IDN_ENCODING;
  end;
end;

function DoIT(aHostName : String; aTAIFlags : TAIFlags = []; aTAFFamily : TAFFamily = aff_UNSPEC;
  aTAIPROTOCAL : TAIPROTOCAL = aip_IP) : String;

var
  myWsaData : WSAData;
  Sock: TSocket;
  myResult : Integer;
  myReturnVal : Integer;
  myDWRetVal : Word;
  i : integer;
  MyAddrInfo_Result: PAddrInfoW;
  MyAddrInfo_Hint  : TAddrInfoW;
  DestIP: Integer;
  sTmp : String;
begin
  result := 'Starting Xunit3.DoIt';
  try

    myResult := WSAStartup($0202, myWsaData);
    result := result + sLineBreak + 'WSAStartup result = ' + inttostr(myResult);
    if myResult <> 0 then begin
      result := result + sLineBreak + 'Exiting due to WSAStartup error';
      exit;
    end;
    try
      result := result + sLineBreak + 'Setting up vars';
      MyAddrInfo_Result := nil;
      ZeroMemory(@MyAddrInfo_Hint, SizeOf(MyAddrInfo_Hint));

      MyAddrInfo_Hint.ai_flags    := GetTAIFlagsValue( aTAIFlags ) ;
      MyAddrInfo_Hint.ai_family   := GetTAFFamilyValue( aTAFFamily );
      MyAddrInfo_Hint.ai_socktype := SOCK_STREAM;
      MyAddrInfo_Hint.ai_protocol := GetTAIPROTOCALValue(aTAIPROTOCAL);

      result := result + sLineBreak + 'ai_family = ' + GetEnumName(Typeinfo(TAFFamily), ord(aTAFFamily));
      result := result + sLineBreak + 'ai_protocol = ' + GetEnumName(Typeinfo(TAIPROTOCAL), ord(aTAIPROTOCAL));

      result := result + sLineBreak + 'Calling getaddrinfo "'+ PWideChar(aHostName) +'"';
      myResult := getaddrinfoW (
        PWideChar(aHostName)
       , nil
       , @MyAddrInfo_Hint
       , MyAddrInfo_Result);
      result := result + sLineBreak + 'getaddrinfo result = ' + inttostr(myResult);
      if myResult = 0 then begin
        if MyAddrInfo_Result^.ai_canonname > '' then
          result := result + sLineBreak + 'getaddrinfo canonname = "' + MyAddrInfo_Result^.ai_canonname + '"';

        result := result + sLineBreak + 'sin_family = "' + inttostr( MyAddrInfo_Result.ai_addr.sin_family) + '"';
        if MyAddrInfo_Result.ai_addr.sin_family = AF_INET6 then begin
          sTmp := inttostr(ord(PSockAddrIn6(MyAddrInfo_Result).sin6_addr.s6_bytes[0])) +    //Yes this is bad but im just dumping out something
                  inttostr(ord(PSockAddrIn6(MyAddrInfo_Result).sin6_addr.s6_bytes[1])) +
                  inttostr(ord(PSockAddrIn6(MyAddrInfo_Result).sin6_addr.s6_bytes[2])) +
                  inttostr(ord(PSockAddrIn6(MyAddrInfo_Result).sin6_addr.s6_bytes[3])) +
                  inttostr(ord(PSockAddrIn6(MyAddrInfo_Result).sin6_addr.s6_bytes[4])) +
                  inttostr(ord(PSockAddrIn6(MyAddrInfo_Result).sin6_addr.s6_bytes[5])) +
                  inttostr(ord(PSockAddrIn6(MyAddrInfo_Result).sin6_addr.s6_bytes[6])) +
                  inttostr(ord(PSockAddrIn6(MyAddrInfo_Result).sin6_addr.s6_bytes[7])) +
                  inttostr(ord(PSockAddrIn6(MyAddrInfo_Result).sin6_addr.s6_bytes[8])) +
                  inttostr(ord(PSockAddrIn6(MyAddrInfo_Result).sin6_addr.s6_bytes[9])) +
                  inttostr(ord(PSockAddrIn6(MyAddrInfo_Result).sin6_addr.s6_bytes[10])) +
                  inttostr(ord(PSockAddrIn6(MyAddrInfo_Result).sin6_addr.s6_bytes[11])) +
                  inttostr(ord(PSockAddrIn6(MyAddrInfo_Result).sin6_addr.s6_bytes[12])) +
                  inttostr(ord(PSockAddrIn6(MyAddrInfo_Result).sin6_addr.s6_bytes[13])) +
                  inttostr(ord(PSockAddrIn6(MyAddrInfo_Result).sin6_addr.s6_bytes[14])) +
                  inttostr(ord(PSockAddrIn6(MyAddrInfo_Result).sin6_addr.s6_bytes[15]));
          result := result + sLineBreak + 'IP6-Bytes = "' + sTmp + '"';

          result := result + sLineBreak + 'IP = "' + ':( not yet coded' + '"';
        end else begin
          result := result + sLineBreak + 'IP = "' + StrPas(inet_ntoa(MyAddrInfo_Result.ai_addr.sin_addr)) + '"';
        end;

      end;
    finally
      result := result + sLineBreak + 'running WSACleanup';
      WSACleanup();
    end;
  Except
    on E:Exception do begin
      e.Message := 'fn[unit3.DoIT;]' + sLineBreak + e.Message;
      result := result + 'ERROR: ' + e.Message;
    end;
  end;

end;

end.

它有效，我得到172.217.25.174

在他们的机器上我发现了错误 但是如果我像这样运行它

ShowMessage( DoIT( '172.217.25.174' ) )

在他们的机器上运行这些调用是有效的

C:\>ping google.com

Pinging google.com [216.58.199.78] with 32 bytes of data:
Reply from 216.58.199.78: bytes=32 time=23ms TTL=56
Reply from 216.58.199.78: bytes=32 time=21ms TTL=56
Reply from 216.58.199.78: bytes=32 time=21ms TTL=56
Reply from 216.58.199.78: bytes=32 time=21ms TTL=56

Ping statistics for 216.58.199.78:
    Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
    Minimum = 21ms, Maximum = 23ms, Average = 21ms

nslookup确实有一些奇怪的东西“非权威答案”和“服务器：未知”，但我对DNS了解不够，不知道这是否是一个问题

C:\>nslookup google.com
Server:  UnKnown
Address:  192.168.1.2

Non-authoritative answer:
Name:    google.com
Addresses:  2404:6800:4006:804::200e
            216.58.196.142

这是ipconfig

C:\>ipconfig -all

Windows IP Configuration

   Host Name . . . . . . . . . . . . : xxx-xx
   Primary Dns Suffix  . . . . . . . : xxxxxx.local
   Node Type . . . . . . . . . . . . : Hybrid
   IP Routing Enabled. . . . . . . . : No
   WINS Proxy Enabled. . . . . . . . : No
   DNS Suffix Search List. . . . . . : xxxxxx.local

Ethernet adapter Ethernet:

   Connection-specific DNS Suffix  . :
   Description . . . . . . . . . . . : Microsoft Hyper-V Network Adapter
   Physical Address. . . . . . . . . : 00-15-5D-00-46-01
   DHCP Enabled. . . . . . . . . . . : No
   Autoconfiguration Enabled . . . . : Yes
   Link-local IPv6 Address . . . . . : fe80::a490:bb74:caa4:b1b1%3(Preferred)
   IPv4 Address. . . . . . . . . . . : 192.168.1.3(Preferred)
   Subnet Mask . . . . . . . . . . . : 255.255.255.0
   Default Gateway . . . . . . . . . : 192.168.1.1
   DHCPv6 IAID . . . . . . . . . . . : 50337117
   DHCPv6 Client DUID. . . . . . . . : 00-01-00-01-21-4B-66-60-00-15-5D-00-46-01
   DNS Servers . . . . . . . . . . . : 192.168.1.2
   NetBIOS over Tcpip. . . . . . . . : Enabled

Tunnel adapter isatap.{32C9B8E2-B420-411A-A88B-1AB178A8EF0B}:

   Media State . . . . . . . . . . . : Media disconnected
   Connection-specific DNS Suffix  . :
   Description . . . . . . . . . . . : Microsoft ISATAP Adapter #3
   Physical Address. . . . . . . . . : 00-00-00-00-00-00-00-E0
   DHCP Enabled. . . . . . . . . . . : No
   Autoconfiguration Enabled . . . . : Yes

我能做些什么让代码在上面工作吗？
如果这是DNS问题，我应该告诉他们的硬件人员看什么
有什么东西可以阻止GetAddrInfoW调用解析ip地址吗

更新

---

在同一网络上的另一台计算机上运行DOIT（）调用工作正常

您可能可以使用ipconfig/all来获取有关受影响客户端的IP配置的更多信息。看起来192.168.1.2是已配置的DNS服务器。我想知道这是否正确。如果是这样，它没有配置RDN，因此“未知”服务器。根据他们的硬件，192.168.1.2是DNS服务器。我能做些检查来验证吗？如果我在192.168.1.2上进行nslookup，我会得到***未知无法找到192.168.1.2:不存在的域。我可以从那台机器ping 192.168.1.2，尽管我认为ipconfig验证了192.168.1.2确实是DNS服务器。我在我的机器上测试了你的代码，它可以通过调用

DoIT（'google.com'）

工作。对于SMTP和FTP，您是什么意思？这是否意味着呼叫的参数不同？Indy Smtp和FTP失败。我相信我已经把问题缩小到GetAddrInfo调用。解析主机名的位置。我想这和插座有关。使用filezilla我也会遇到同样的问题。使用Putty，我可以远程登录并发送电子邮件。您可能可以使用ipconfig/all来获取有关受影响客户端的IP配置的更多信息。看起来192.168.1.2是已配置的DNS服务器。我想知道这是否正确。如果是这样，它没有配置RDN，因此“未知”服务器。根据他们的硬件，192.168.1.2是DNS服务器。我能做些检查来验证吗？如果我在192.168.1.2上进行nslookup，我会得到***未知无法找到192.168.1.2:不存在的域。我可以从那台机器ping 192.168.1.2，尽管我认为ipconfig验证了192.168.1.2确实是DNS服务器。我在我的机器上测试了你的代码，它可以通过调用

DoIT（'google.com'）

工作。对于SMTP和FTP，您是什么意思？这是否意味着呼叫的参数不同？Indy Smtp和FTP失败。我相信我已经把问题缩小到GetAddrInfo调用。解析主机名的位置。我想这和插座有关。使用filezilla我也会遇到同样的问题。使用Putty，我可以远程登录并发送电子邮件

C:\>ipconfig -all

Windows IP Configuration

   Host Name . . . . . . . . . . . . : xxx-xx
   Primary Dns Suffix  . . . . . . . : xxxxxx.local
   Node Type . . . . . . . . . . . . : Hybrid
   IP Routing Enabled. . . . . . . . : No
   WINS Proxy Enabled. . . . . . . . : No
   DNS Suffix Search List. . . . . . : xxxxxx.local

Ethernet adapter Ethernet:

   Connection-specific DNS Suffix  . :
   Description . . . . . . . . . . . : Microsoft Hyper-V Network Adapter
   Physical Address. . . . . . . . . : 00-15-5D-00-46-01
   DHCP Enabled. . . . . . . . . . . : No
   Autoconfiguration Enabled . . . . : Yes
   Link-local IPv6 Address . . . . . : fe80::a490:bb74:caa4:b1b1%3(Preferred)
   IPv4 Address. . . . . . . . . . . : 192.168.1.3(Preferred)
   Subnet Mask . . . . . . . . . . . : 255.255.255.0
   Default Gateway . . . . . . . . . : 192.168.1.1
   DHCPv6 IAID . . . . . . . . . . . : 50337117
   DHCPv6 Client DUID. . . . . . . . : 00-01-00-01-21-4B-66-60-00-15-5D-00-46-01
   DNS Servers . . . . . . . . . . . : 192.168.1.2
   NetBIOS over Tcpip. . . . . . . . : Enabled

Tunnel adapter isatap.{32C9B8E2-B420-411A-A88B-1AB178A8EF0B}:

   Media State . . . . . . . . . . . : Media disconnected
   Connection-specific DNS Suffix  . :
   Description . . . . . . . . . . . : Microsoft ISATAP Adapter #3
   Physical Address. . . . . . . . . : 00-00-00-00-00-00-00-E0
   DHCP Enabled. . . . . . . . . . . : No
   Autoconfiguration Enabled . . . . : Yes