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

Delphi-Quellcode:

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:

Delphi-Quellcode:

DNS.QueryRecords:=[qtMX];

[Meflin]

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

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

:wall: 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 ?

[Meflin]

ja ist true. aber da kommt nix!!!

[Meflin]

woran könnte es denn sonst noch hängen?

[Basilikum]

was für einen DNS-Server verwendest Du ?
gib allenfalls mal andere Record-Typen aus, zum debugen....

[Meflin]

ich verwende 194.25.2.131
aber er meldet wenn ichs wärend des debuggens probier eine ungültige typenumwandlung bei
a := DNS.QueryResult.Items[I] as TMXRecord;

[Meflin]

ich habs endlich! bei google krieg ich z.b. smtp1.google.com, smtp3.google.com, smtp2.google.com. das klingt ja verdächtig nach smtp servern :wink: aber ich brauch doch nen pop3 server auf dem ich die nachrichten ablegen kann oder irre ich mich da?

[Basilikum]

dieser Server lässt (zumindest von meinem IP-Range aus) keine rekursiven Anfragen zu.... (No Recursion available)
sprich: die Antwort enthält immer nur NS-Einträge mit anderen DNS-Servern, die für die korrekte Beantwortung der Anfrage zuständig sind... verwende einmal testweise einen anderen Server (Start -> Ausführen -> ipconfig /all -> DNS Server: .....)

um andere Records auszugeben, müssen diese auch als solche behandelt werden... z.B.

Delphi-Quellcode:

[..]
if (DNS.QueryResult.Items[I] is TNSRecord) then begin
  NSR:=DNS.QueryResult.Items[I] as TNSRecord
  [..]
end else if (DNS.QueryResult.Items[I] is TARecord) then begin
  AR:=DNS.QueryResult.Items[I] as TARecord
  [..]
end else [..]

[Meflin]

dns3.de.colt.net funktioniert