Rechner-Name aus IP: Wieso ist die Function so langsam?

[Helmi]

Hallo,

ich habe bei den Schweizern folgenden Code gefunden:

Delphi-Quellcode:

function IPAddrToName(IPAddr: string): string;
var
  SockAddrIn: TSockAddrIn;
  HostEnt: PHostEnt;
  WSAData: TWSAData;
begin
  WSAStartup($101, WSAData);
  SockAddrIn.sin_addr.s_addr := inet_addr(PChar(IPAddr));
  HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
  if HostEnt <> nil then
    Result := StrPas(Hostent^.h_name)
  else
    Result := '';
end;

Er dient dazu, aus einer Ip-Adresse den Rechnernamen rauszufinden.

Dies funktioniert auch. Nur bei der Zeile:
  HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET); wartet das Programm gute 10 - 15 sek und tut nichts.

Dazu meine Fragen:

• Wieso stoppt dort das Programm?
• Gibts vielleicht noch nen anderen Code um den Rechnernamen über IP-Adresse rausfinden zu können?

[Luckie]

Delphi-Quellcode:

uses
  WinSock;

function IPAddrToName(IPAddr: string): string;
var
  SockAddrIn: TSockAddrIn;
  HostEnt: PHostEnt;
  WSAData: TWSAData;
begin
  WSAStartup($101, WSAData);
  SockAddrIn.sin_addr.s_addr := inet_addr(PChar(IPAddr));
  HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
  if HostEnt <> nil then
    Result := StrPas(Hostent^.h_name)
  else
    Result := '';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IPAddrToName('127.0.0.1'));
end;

Da es mit der lokalen IP Adresse ganz fix geht, liegt es wohl am Netzwerk.

[Helmi]

Zitat von Luckie:

Da es mit der lokalen IP Adresse ganz fix geht, liegt es wohl am Netzwerk.

Scheint so leider!

Ich habs selber gerade mit der localen IP-Adresse getestet und da war es sehr flott - liegt wohl wirklich an den Sockets.

[phXql]

Zitat von Helmi:

Zitat von Luckie:

Da es mit der lokalen IP Adresse ganz fix geht, liegt es wohl am Netzwerk.

Scheint so leider!

Ich habs selber gerade mit der localen IP-Adresse getestet und da war es sehr flott - liegt wohl wirklich an den Sockets.

windows muss dazu ja erstmal eine namensauflösung machen. und das dauert übers netzwerk halt länger...

[supermuckl]

ne keine namensauflösung sondern eine RDNS anfrage
das heist, es gibt einen reverse dns eintrag in den DNS servern, die zu einer IP den namen wissen.
somit eine "ip auflösung"

und da windows bei sich selbst den namen direkt kennt, geht das auch ohne umweg so schnell.
bei den internet IPs, muss da erstmal der ganze weg bis zum jeweiligen dienst gefunden und dann auch der rdns zurück kommen.. das braucht seine mehr oder weniger große zeit.

man beachte auch diesen wiki eintrag:

http://de.wikipedia.org/wiki/Reverse_Dom%C3%A4ne

[phXql]

Zitat von supermuckl:

ne keine namensauflösung sondern eine RDNS anfrage
das heist, es gibt einen reverse dns eintrag in den DNS servern, die zu einer IP den namen wissen.
somit eine "ip auflösung"

und da windows bei sich selbst den namen direkt kennt, geht das auch ohne umweg so schnell.
bei den internet IPs, muss da erstmal der ganze weg bis zum jeweiligen dienst gefunden und dann auch der rdns zurück kommen.. das braucht seine mehr oder weniger große zeit.

man beachte auch diesen wiki eintrag:

http://de.wikipedia.org/wiki/Reverse_Dom%C3%A4ne

okay, ich hätte "namens"-auflösung in "" setzen sollen. In wirklichkeit wird ja die IP in einen Namen aufgelöst und nich andersrum.

reverse DNS geht aber nich im loacl-netzwerk. da wird für die "namens"-auflösung unter windows soweit ich weiss WINS hergenommen...