IP nach Hostname

[DelTurbo]

Hi,
ich suche nun schon den ganzen Tag. Leider finde ich nix was Funktioniert. Ich möchte mit dem DNSResolver von Indy mit einer IP den Hostnamen erfragen. Leider weiß ich nicht was ich im QueryType einstellen muss. So sieht meine abfrage aus. Stelle ich qtPTR ein, läuft es zwar aber ich bekomme nur die IP zurück. Nehme ich qtA dann meint er "Der DNS-Server meldet einen Fehler im Abfragenamen." Was muss ich machen/einstellen damit ich den Hostnamen zurückbekomme?

Vielen dank im Voraus

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i     :Integer;
begin
    IdDNSResolver1.Resolve('192.168.0.2');
    for i := 0 to IdDNSResolver1.QueryResult.Count-1 do begin
      Memo1.Lines.Add(IdDNSResolver1.QueryResult[i].Name);

    end;
end;

[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

[DelTurbo]

Hi,
diese ausgabe bekomme ich auch. Aber in der letzen Zeile steht der DNS Server mit Namen. Nicht der gesuchte Host. Das ist meine ausgabe. Ich habe hier einen eigenen DNS laufen (Debian/bind9). Zu deiner Frage: Ja, DNS ist eingetragen und bei QueryType qtPTR auf True.

Code:

2.0.168.192.in-addr.arpa
0.168.192.in-addr.arpa
dns-server.lan.int

[Delphi.Narium]

Schau bitte mal, ob Du aus diesem Quelltextfragment schlau wirst (hab' ich in 'nem alten Delphi-7-Programm gefunden):

Delphi-Quellcode:

// DNS = TIdDNSResolver
    s             := 'www.delphipraxis.net'; // oder eine IP
    DNS.Host      := Reg.NameServer; // Dein DNS-Server
    DNS.ClearInternalQuery;
    DNS.QueryType := [qtA]; // Liefert einen A- und einen Name-Record - hier auch mal die anderen möglichen Varianten probieren z. B. qtName
    Reg.WriteAppInfoLog(Format('DNS-Abfrage: Host = %s',[s]));
    Try
      DNS.Resolve(s);
      Reg.WriteAppInfoLog('DomainName: %s',[DNS.QueryResult.DomainName]);
      if DNS.QueryResult.Count > 0 then begin
      for i := 0 to DNS.QueryResult.Count - 1 do begin
        case DNS.QueryResult.Items[I].RecType of
          qtA: begin
                 if Trim(TARecord(DNS.QueryResult.Items[I]).IPAddress) = '' then begin
                   Reg.WriteAppInfoLog('IP: %s', [GetIPFromRData(DNS.QueryResult.Items[I].RData)]);
                 end else begin
                   Reg.WriteAppInfoLog('IP: %s',[TARecord(DNS.QueryResult.Items[I]).IPAddress]);
                 end;
              end;
          qtNS: Reg.WriteAppLog('    ' + TNSRecord(DNS.QueryResult.Items[I]).HostName);
          qtMD: Reg.WriteAppLog('    ' + TResultRecord(DNS.QueryResult.Items[I]).Name);
          qtMF: Reg.WriteAppLog('    ' + TResultRecord(DNS.QueryResult.Items[I]).Name);
          qtName: Reg.WriteAppLog('    ' + TNAMERecord(DNS.QueryResult.Items[I]).HostName);
          qtSOA: begin
                   Reg.WriteAppLog('    Primary:           ' + TSOARecord(DNS.QueryResult.Items[I]).Primary);
                   Reg.WriteAppLog('    ResponsiblePerson: ' + TSOARecord(DNS.QueryResult.Items[I]).ResponsiblePerson);
                   Reg.WriteAppLog('    Serial:            ' + IntToStr(TSOARecord(DNS.QueryResult.Items[I]).Serial));
                   Reg.WriteAppLog('    Refresh:           ' + IntToStr(TSOARecord(DNS.QueryResult.Items[I]).Refresh));
                   Reg.WriteAppLog('    Retry:             ' + IntToStr(TSOARecord(DNS.QueryResult.Items[I]).Retry));
                   Reg.WriteAppLog('    Expire:            ' + IntToStr(TSOARecord(DNS.QueryResult.Items[I]).Expire));
                   Reg.WriteAppLog('    MinimumTTL:        ' + IntToStr(TSOARecord(DNS.QueryResult.Items[I]).MinimumTTL));
                 end;
          qtMB: Reg.WriteAppLog('    ' + TResultRecord(DNS.QueryResult.Items[I]).Name);
          qtMG: Reg.WriteAppLog('    ' + TResultRecord(DNS.QueryResult.Items[I]).Name);
          qtMR: Reg.WriteAppLog('    ' + TResultRecord(DNS.QueryResult.Items[I]).Name);
          qtWKS: begin
                   Reg.WriteAppLog('    ' + TWKSRecord(DNS.QueryResult.Items[I]).IPAddress);
                   Reg.WriteAppLog('    ' + IntToStr(TWKSRecord(DNS.QueryResult.Items[I]).Protocol));
                 end;
          qtPTR: Reg.WriteAppLog('    ' + TPTRRecord(DNS.QueryResult.Items[I]).HostName);
          qtHINFO: begin
                     Reg.WriteAppLog('    ' + THINFORecord(DNS.QueryResult.Items[I]).CPU);
                     Reg.WriteAppLog('    ' + THINFORecord(DNS.QueryResult.Items[I]).OS);
                   end;
          qtMINFO: begin
                     Reg.WriteAppLog('    ' + TMINFORecord(DNS.QueryResult.Items[I]).ResponsiblePersonMailbox);
                     Reg.WriteAppLog('    ' + TMINFORecord(DNS.QueryResult.Items[I]).ErrorMailbox);
                   end;
          qtMX: Reg.WriteAppLog('    ' + TMXRecord(DNS.QueryResult.Items[I]).ExchangeServer+',' + IntToStr(TMXRecord(DNS.QueryResult.Items[I]).Preference));
          qtTXT: Reg.WriteAppLog(TTextRecord(DNS.QueryResult.Items[I]).Text.Text);
          else
            Reg.WriteAppLog('?:');
            Reg.WriteAppLog('   ' + TResultRecord(DNS.QueryResult.Items[I]).Name);
            Reg.WriteAppLog('   ' + TResultRecord(DNS.QueryResult.Items[I]).RData);
          end;
        end;
      end else begin
        Reg.WriteAppErrorLog('Kein Ergebnis erhalten.');
      end;
      DNS.Disconnect;
    except
      on e : Exception do begin
        Reg.WriteAppInfoLog('DNS-Abfrage: ' + e.Message);
        try
          DNS.Disconnect;
        except
        end;
      end;
    end;

...

function GetIPFromRData(RData : TIDBytes) : String;
var
  s : String;
  i : Integer;
begin
  s := BytesToString(RData);
  if Length(s) = 4 then begin
    Result := '';
    for i := 1 to Length(s) do Result := Result + IntToStr(Ord(s[i])) + '.';
    Result := Copy(Result,1,Length(Result) - 1);
  end else begin
    Result := s;
  end;
end;

[mjustin]

Zitat:

Zitat von DelTurbo (Beitrag 1427795)

Hi,
diese ausgabe bekomme ich auch. Aber in der letzen Zeile steht der DNS Server mit Namen. Nicht der gesuchte Host. Das ist meine ausgabe. Ich habe hier einen eigenen DNS laufen (Debian/bind9). Zu deiner Frage: Ja, DNS ist eingetragen und bei QueryType qtPTR auf True.

Code:

2.0.168.192.in-addr.arpa
0.168.192.in-addr.arpa
dns-server.lan.int

Der Gegencheck mit ping -a <adresse> liefert das erwartete Ergebnis?

[DelTurbo]

Hi,
ja. Auch nslookup liefert das richtige zurück.

nslookup 192.168.0.2
Server: dns-server.lan.int
Address: 192.168.0.254

Name: mainpc.lan.int
Address: 192.168.0.2

[mjustin]

Zitat:

Zitat von DelTurbo (Beitrag 1427816)

Hi,
ja. Auch nslookup liefert das richtige zurück.

Ok. Ist es eine aktuelle Indy Version (10.6.2)?

Wird nur für diese Adresse ein Fehler zurückgemeldet oder funktioniert es generell mit keiner Adresse?

[DelTurbo]

Ups, ich wollte die IndyVersion bei schreiben. Habe es aber wohl vergessen. Es ist Version 10.6.2.0.
Nein, es geht mit keiner IP.

[Michael II]

Hallo DelTurbo,

du hast irgendwo vor dem Resolve(..) den von dir gewünschten DNS Server angegeben?

In deinem Fall:

Delphi-Quellcode:

IdDNSResolver1.Host := '192.168.0.254';  // Dein DNS Server

Und wenn das auch nicht klappen sollte, hast du "ICS Overbyte" (via GetIt installierbar)? Dort gibt's auch viele Beispiele zu solchen Problemstellungen.

Gruss
Michael

[DelTurbo]

Hi,
ich habe das auf der Form liegen. Dort ist alles eingetragen. Deswegen erstelle ich das auch nicht mit Create. Aber im Host ist natürlich der DNS eingetragen. Ich glaube sonst kommt nichts zurück bzw. ein fehler.

Warum ich Indy nehmen "muss". Ich möchte das, wenn es denn mal läuft, auf einem Raspi (ARM CPU) einsetzen. Dort gibt es leider kein Overbyte.

Eigentlich mache ich das immer so. Ich teste das was ich vorhabe in Delphi und wenn es klappt kann ich das in CodeTyphon übernhemen und für diverse Plattformen erstellen. Das klappt immer einwandfrei.

Ich werde heute mal den Code von @Delphi.Narium probieren und berichten ob es klappt.