TIdDNSResolver von Indy10

[Unplugged]

Hallo,

leider ist der Source von Indy 9 nicht zu Indy 10 kompatibel.
Ich finde aber leider auch nur Lösungen von Indy 9. Wie kann ich bei Indy 10 jetzt eine DNS auflösen?

Danke und Grüße

[Sharky]

Hai Unplugged,

so müsste es zum Beispiel gehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ndx : integer;
begin
  with  IdDNSResolver1 do
  begin
    ClearInternalQuery;
    QueryType := [qtMX];
    Resolve(Edit1.Text);
    for ndx := 0 to Pred (QueryResult.Count) do
    begin
      ListBox1.Items.Add (QueryResult.Items[ndx].Name);
    end;
  end;
end;

[Unplugged]

Danke du hast mir schon ne Stück weitergeholfen.

Damit ich die ip bekomme, hab ich den Code wie folgt geändert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ndx : integer;
begin
  with  IdDNSResolver1 do
  begin
    ClearInternalQuery;
    QueryType := [qtMX];
    Resolve(Edit1.Text);
    for ndx := 0 to Pred (QueryResult.Count) do
    begin
      ListBox1.Items.Add (TMXRecord(QueryResult.Items[ndx]).ExchangeServer);
    end;
  end;
end;

Aber das ganze funktioniert leider so nur für richtige top-level-domains. Wenn ich zum Beispiel eine DynDNS eingebe, funktioniert das ganze nicht. Woran könnte das liegen?
Fehler bei DynDNS: Access Violation ... in user32.dll ...