DNS über die IP bekommen

[linobrocken]

Moin moin!

Also ich hab da folgendes Problem:
Ich hab mir nen kleinen Server mit Hilfe der Indy Tools gebaut (IdTCPServer) und möchte gerne in einem Fenster die DNS Namen der verbundenen Clients anzeigen. z.B. wenn mein Laptop sich verbunden hat und der im Netzwerk "laptop" heisst soll da nicht die IP stehen sondern halt laptop.

Wie man die Ip heraus bekommt hab ich mittlerweile schon heraus bekommen:

Delphi-Quellcode:

Client.IP:=AThread.Connection.Socket.Binding.PeerIP;

Aber wie kommt ich auf den Netzwerknamen?

Vielen Dank für eure Hilfe im voraus!

linobrocken

[magic.christel]

Was Du meinst ist nicht DNS ueber die IP bekommen sondern den Hostnamen über die IP bekommen. ;-)

Die Indy Tools kenne ich nicht, aber mit mit dem ICS von Francois Piette, kannst Du den DnsQry dafür verwenden.

Du trägst per

DnsQuery1.Addr:="192.168.0.0";

den DNS ein, der die Antwort kennt und mit

DnsQuery1.PTRLookup(Client.IP);

könntest Du die Anfrage starten.

Per ausgelöstem Event: DnsQuery1RequestDone

kannst Du den Hostnamen auslesen:

Client.Hostname:=DnsQuery1.Hostname[0];


Alternativ kannst Du auch eine DOS-Box starten und mit nslookup danach fragen.

Viel Spaß

Chris

[ipworks]

Hi,
wenn Du Indy verwendest, warum verwendest Du dann nicht einfach noch den IdDNSResolver ? :idea:

[Sprint]

Also Windows stellt dafür auch eine API zur Verfügung, gethostbyaddr.

Delphi-Quellcode:

function GetHostByAddr(const IP: String): String;
var
  Addr: Integer;
  HostEnt: PHostEnt;
begin

  Addr := inet_addr(PChar(IP));
  HostEnt := WinSock.gethostbyaddr(@Addr, 4, PF_INET);
  Result := HostEnt^.h_name;

end;

[linobrocken]

Hallo,

natürlich meinte ich den Hostname :wall:

Hab das mit gethostbyAddr() gemacht und funktioniert super! :hello:

Vielen Dank!!

linobrocken