TIdDNSResolver von Indy10

[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 ...