Hallo Leute,
hier mal was ganz simples; wie krieg ich ein DNS Namen raus ?
Funktion liefert allerdings nur den ersten Eintrag zurück falls es mehrere gibt
Hab ich irgentwo gelesen, gebraucht und etwas umgeschrieben.
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15:
| function GetDNSLookup(IPAddress:String):String; var WSAData : TWSAData; Socket : TSockAddrIn;
begin result:=''; if WSAStartup(MAKEWORD(2,0),WSAData)=0 then begin Socket.sin_addr.S_addr := inet_addr(PChar(S)); HostEnt:=gethostbyAddr(@Socket.sin_addr.S_addr,SizeOf(Socket.sin_addr.S_addr),AF_INET); result:=StrPas(HostEnt^.h_name); WSACleanup; end; end; |
grez
msch