IdDNSResolver mit Indy 10

[TKC]

Welche Infos möchtest du denn haben?

z.b. die IP´s

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  DnsResource       : TResultRecord;
  qtar              : TARecord;
  x                 : integer;

begin
  Memo1.Clear;
  try
    IdDNSResolver1.Resolve(Edit1.Text);
  except
    on E: Exception do
      Memo1.Lines.Add(E.Message);
  end;

  for x := 0 to IdDNSResolver1.QueryResult.Count - 1 do
    begin
      DnsResource := IdDNSResolver1.QueryResult[x];

      qtar := TARecord(DnsResource);

      Memo1.Lines.Add(DnsResource.Name);
      Memo1.Lines.Add(DnsResource.DisplayName);
      Memo1.Lines.Add(qtar.IPAddress);
    end;

end;