Abfrageformat von DNS

[Meflin]

Hi,
ich versuche so den mailserver rauszubekommen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
a: TMXRecord;
DNSResult: string;
begin
  try
    DNS.Resolve('http://www.domain.de');
  except
     DNS.QueryResult.Clear;
  end;
  if DNS.QueryResult.Count > 0 then
    for I := 0 to Pred(DNS.QueryResult.Count) do
      if DNS.QueryResult.Items[I] is TARecord then begin
        A := (DNS.QueryResult.Items[I] as TMXRecord);
        DNSResult := DNSResult + A.ExchangeServer + ',';
      end;
      ShowMessage(DNSResult);
end;

da bekomme ich eine exeption das abfrageformat wäre ungültig (meldet der server). also
http://www.domain.de aber wie soll ichs denn dann abfragen???

*MFG*

[Basilikum]

so ist's besser:

Delphi-Quellcode:

[..]
try
  DNS.Resolve('domain.de');
except
[..]

[Meflin]

immernoch

[Basilikum]

vor dem Resolve() brauchts noch:
DNS.QueryRecords:=[qtMX];

[Meflin]

jetzt gibts ne ungültige typenumwandlung beim a := ... !???

[Basilikum]

es sollte nicht is TARecord sondern TMXRecord heissen:

Delphi-Quellcode:

[..]
if DNS.QueryResult.Items[I] is TMXRecord then begin
  A := (DNS.QueryResult.Items[I] as TMXRecord);
  DNSResult := DNSResult + A.ExchangeServer + ',';
end;
[..]

[Meflin]

aber das ergebnis ist leer!?

[Basilikum]

bei welcher Domain ? es gibt selbstverständlich Domains, die keine MX-Einträge haben....

mit

Code:

C:\> nslookup -querytype=mx domain.de

kannst Du überprüfen, ob MX-Einträge vorhanden wären... (domain.de hat keine, google.de jedoch schon)

[Meflin]

auch bei google.de bleibt die messagebox leer...

[Basilikum]

hm... bei mir funzt der Code.... AllowRecursiveQueries ist true, oder ?