delphi - ¿Lectura de respuesta de TIdDNSResolver?

delphi-xe2 indy

Question

No puedo encontrar ningún ejemplo simple de una búsqueda DNS utilizando el componente TIdDNSResolver Indy 10. Todos son para algo que no necesito (como MX / SMTP), o son términos sin código . Intenté leer el resultado en función de los pocos recursos que puedo encontrar, pero no sé cómo se supone que debo leer el resultado.

Esto es lo que tengo hasta ahora ...

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;

uso...

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

¿Cómo leo esta respuesta?

Answer 1

Deberá encasillar el QueryResult recopilación QueryResult en un descendiente TResultRecord específico según el valor de la propiedad RecType del elemento. Desde la referencia de propiedad Items :

Use casting para devolver una referencia de objeto que permita el acceso a cualquier propiedad o método específico de la clase descendiente asociada con el valor en TResultRecord.RecType.

El patrón de nombre de las clases descendientes TResultRecord es así:

T<DNS lookup type>Record

Entonces, en tu caso, se vería así:

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;

Para un tipo de búsqueda AAAA sería:

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;

Ejemplos de funciones para las búsquedas de DNS IPv4 e IPv6 que puede find here .