DNS Server nach IP befragen ?

[stoxx]

Hallo miteinander,

ich möchte die IP Adresse z.B. von http://www.delphipraxis.net/ haben.
Gibt es da eine Möglichkeit ?

[sakura]

Start->Ausführen->nslookup

www.delphipraxis.net

eingeben und [enter] drücken ;-)

...:cat:...

[stoxx]

also ich meinte mit Delphi, nicht mit Windows :-)

[sakura]

Zitat:

Zitat von stoxx

also ich meinte mit Delphi, nicht mit Windows :-)

Okay :mrgreen: Welche Komponenten nutzt Du? Ist die Indy-Sammlung okay?

...:cat:...

[stoxx]

Indy is okay .. gibts dort sowas schon ?

[sakura]

Suche mal bei den Demos nach dem DNS Resolver Client

...:cat:...

[stoxx]

gerade gefunden .. wenn die Demo wenigstens funktionieren würde. :(
da geht gar nix. Da scheint irgendwie die Demo nicht zur Indy version zu passen

[sakura]

Okay, hier die Lösung:

Delphi-Quellcode:

uses
  IdDNSResolver;

{...}

function TForm1.GetWWWServerIp(DNSServer, Address: AnsiString): String;
var
  I, P: Integer;
  idDnsResolver: TIdDNSResolver;
  A: TARecord;
  function PadZero(Val: Integer): AnsiString;
  begin
    Result := IntToStr(Val);
    while Length(Result) < 5 do
      Result := '0' + Result;
  end;
begin
  Result := '';
  idDnsResolver := TIdDNSResolver.Create(nil);
  try
    // resolve host domain server
    idDnsResolver.QueryResult.Clear;
    idDnsResolver.QueryRecords := [qtA];
    idDnsResolver.Host := DNSServer;
    idDnsResolver.ReceiveTimeout := 5000;
    try
      idDnsResolver.Resolve(Address);
    except
      idDnsResolver.QueryResult.Clear;
    end;
    if idDnsResolver.QueryResult.Count > 0 then
      for I := 0 to Pred(idDnsResolver.QueryResult.Count) do
        if idDnsResolver.QueryResult.Items[I] is TARecord then
        begin
          A := (idDnsResolver.QueryResult.Items[I] as TARecord);
          Result := Result + A.IPAddress + ',';
        end;
  finally
    idDnsResolver.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // BITTE EINEN KORREKTEN DNS SERVER ANGEBEN!!!
  ShowMessage(GetWWWServerIp('192.168.64.3', Edit1.Text));
end;

...:cat:...

[stoxx]

1000 Dank ! funktioniert super :-)

nur eine Frage noch, warum kommen immer gleich 3 IP Adressen ?
bei DP z.B.

81.209.184.99
62.141.48.136
62.141.49.157

nutze den DNS Server der Deutschen Telekom '194.25.2.131'

[fkerber]

Hi!

Kann es sein, dass alle 3 nicht stimmen?
Normalerweise müsste man doch mit der richtigen auf die DP kommen, oder?

Ciao fkerber