delphi域名解析ip

uses
  IdDNSResolver, IdGlobal, IdTCPClient;

var
  DNSResolver: TIdDNSResolver;
  HostName: string;
  IPAddresses: TStringList;
begin
  DNSResolver := TIdDNSResolver.Create(nil);
  try
    DNSResolver.DefaultPort := 53;
    DNSResolver.QueryType := [qtA, qtAAAA];
    DNSResolver.Timeout := 5000;

    HostName := 'example.com';
    IPAddresses := TStringList.Create;
    try
      if DNSResolver.Resolve(HostName, IPAddresses) then
      begin
        for var IPAddress in IPAddresses do
          WriteLn(IPAddress);
      end
      else
        WriteLn('域名解析失败');
    finally
      IPAddresses.Free;
    end;
  finally
    DNSResolver.Free;
  end;
end;