TIdDNSResolver von Indy10

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