IP nach Hostname

[mjustin]

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