[Delphi] IP

Mam cos takiego:

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&lt&gtnil then
begin
result:=StrPas(Hostent^.h_name)
end
else
begin
result:='';
end;
end;

I to zamienia numer IP na nazwę hosta.
A jak zrobić, żeby po wpisaniu
www.4programmers.net pojawiło się IP ?

Dzięki! {browar} ------------------------------------------------------------
The Delphi has you ...

Użyj gethostbyname.--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

Prośba o pomoc do Delphi po polsku. Oceniajcie i dodawajcie komentarze
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=18659

Oficjalny kanał IRC serwisu 4programers:
serwer: warszawa.ircnet.pl sieć: POLNet kanał: #4programmers.net