从 TIdDNSResolver 读取响应？

Question

我找不到任何使用 Indy 10 的 TIdDNSResolver 组件进行 DNS 查找的简单示例。它们要么是为了我不需要的东西（例如 MX/SMTP），要么是在谈论没有代码的术语。我已经尝试根据我能找到的少数资源阅读结果，但不知道我应该如何阅读结果。

这是我目前所拥有的......

uses
  IdBaseComponent, IdComponent, IdTCPConnection, IdDNSResolver;

function TForm1.Lookup(const Name: String): String;
var
  X: Integer;
begin
  //DNS: TIdDNSResolver
  DNS.QueryType:= [qtA];
  DNS.Resolve(Name);
  for X:= 0 to DNS.QueryResult.Count-1 do begin
    if DNS.QueryResult[X].RecType = qtA then
      //Result:= DNS.QueryResult[X].RData;    <--- ????
  end;
end;

用法...

HostIP:= Lookup('www.google.com');

如何阅读此回复？

Answer 1

您需要根据项目的RecType 属性值将QueryResult 集合项目类型转换为特定的TResultRecord 后代。来自Items 属性参考：

使用强制转换返回一个对象引用，该引用允许访问任何 特定于与关联的后代类的属性或方法 TResultRecord.RecType 中的值。

TResultRecord 后代类的命名模式是这样的：

T<DNS lookup type>Record

所以在你的情况下它看起来像这样：

for X := 0 to DNS.QueryResult.Count - 1 do 
begin
  if DNS.QueryResult[X].RecType = qtA then
    Result := TARecord(DNS.QueryResult[X]).IPAddress; // "A" lookup -> TARecord
end;

对于AAAA 查找类型，它将是：

for X := 0 to DNS.QueryResult.Count - 1 do 
begin
  if DNS.QueryResult[X].RecType = qtAAAA then
    Result := TAAAARecord(DNS.QueryResult[X]).Address; // "AAAA" lookup -> TAAAARecord
end;

您可以使用find here 进行 IPv4 和 IPv6 DNS 查找的示例函数。