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