Thema: Delphi IP nach Hostname

Einzelnen Beitrag anzeigen

mjustin

Registriert seit: 14. Apr 2008
2.665 Beiträge
 
Delphi 2009 Professional
 
#2

AW: IP nach Hostname

  Alt 14. Mär 2019, 17:24
Ist der DNS Server denn zugewiesen?

Die fritz.box kann ich mit diesem Code finden:

Delphi-Quellcode:
var
  R: TIdDNSResolver;
  I: Integer;
begin
  R := TIdDNSResolver.Create;
  try
    R.QueryType := [qtPTR];
    R.Host := '192.168.178.1';
    try
      R.Resolve('192.168.178.20'); //

      for I := 0 to R.QueryResult.Count - 1 do
        // WriteLn(BytesToString(R.QueryResult[I].RData));
        WriteLn(R.QueryResult[I].Name);

    except
      on E: Exception do WriteLn(E.Message);
    end;
  finally
    R.Free;
  end;
end;
Ergebnis:
Code:
20.178.168.192.in-addr.arpa
20.178.168.192.in-addr.arpa
fritz.box
Michael Justin
  Mit Zitat antworten Zitat