Hallo,

ich versuche zur Zeit ne Domain in meinem Programm mit hilfe der IdDNSResolver Komponente von Indy 10 aufzulösen. Hab mir die Indy 9 Beispiele und Demos bereits angeguckt, ich krieg das ganze aber nicht in Indy 10 zum Laufen, noch dazu weil ich gerade die erste Zeit mit Indy arbeite, möchte aber dennoch gern bei Indy 10 bleiben.
Ne aktuelle Demo kann ich leider im Netz nicht finden. Hat sich schonmal jemand damit befasst oder nen kleines Beispiel?

Wäre sehr dankbar
Gruß Noone

Schau mal hier Smtp Weiterleitung
ganz unten ist von mir ein Code der macht das selbe bloss mit eine Email Record .... du musst es dann einfach nur umstellen bzw. einfach das richtige auslesen. Versuch erstaml ob du das hinbekommst

Welche Infos möchtest du denn haben?

z.b. die IP´s

zusammenfalten · markieren

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;

Hey habs hingekriegt, vielen Dank für die schnelle und kompetente Hilfe.
Hier mein Code:

markieren

Code:

...
idDNSResolver := TIdDNSResolver.Create(self);
  idDNSResolver.QueryType := [qtA];
  idDNSResolver.Host:='62.72.64.237';
  IdDNSResolver.Resolve(Edit1.Text);
 
  for x := 0 to IdDNSResolver.QueryResult.Count - 1 do
    begin
      DnsResource := IdDNSResolver.QueryResult[x];

      qtar := TARecord(DnsResource);
      ip:=(qtar.IPAddress);
    ...

Geht doch

bitte schließe noch die offene Frage !