区分不同种类的EIDDNSResolverError

我正在扫描本地网络中的DNS服务器,使用 TIdDNSResolver ,因此DNS请求的结果并不重要。我检查是否有一个DNS服务器。

应用程序也不应该依赖于请求的DNS记录的存在性,因此它不应该请求一个已知的不存在的名称,而应该请求一个存在的主机。

在这种情况下, EIdDnsResolverError 正在引发类型。

此异常可能伴随以下错误文本:

• 延期付款 -这意味着DNS服务器没有及时响应,我们应该假设它不存在。
• DNS服务器报告查询名称错误 -有DNS服务器
• DNS服务器报告查询服务器错误 -有DNS服务器

我不喜欢用错误文本来区分这些错误。还有其他的区别方法吗?

function TDNSChecker.CheckServer(host: string): Boolean;
var
  dr: TIdDNSResolver;
begin
  Result := False;
  try
    dr := TIdDNSResolver.Create(nil);
    try
      dr.Host := host;
      dr.QueryType := [qtA];
      dr.WaitingTime := 1000;
      dr.Resolve('feufgzrfapoduiuzgfuzfsufseuszfu'); //knowingly non-existent name
      Result := True;
    finally
      _finished := True;
      dr.Free();
    end;
  except
    on ex: EIdDnsResolverError do
      if ex.Message <> 'TimedOut' then begin
        if (ex.Message = 'DNS Server Reports Query Name Error') or (ex.Message = 'DNS Server Reports Query Server Error') then
          Result := True
        else
          Log(host + ' - ' + ex.ClassName + ': ' + ex.Message.Replace(#13#10, ' '));
      end;
    on ex: Exception do;
  end;
end;