Здравствуйте Flea, Вы писали:

F>struct hostent {
F> char FAR * h_name;
F> char FAR * FAR * h_aliases;
F> short h_addrtype;
F> short h_length;
F> char FAR * FAR * h_addr_list;
F>};
F>[/code]

F>ps:Не знаю, как в Delphi, может, так же, как и в Visual C++


function TfClient.getNameOf(const IP: string): string;
var
h: PHostEnt;
addr: TSockAddr;
GInitData: TWSADATA;
begin
WSAStartup($101, GInitData);
Result:='';
addr.sin_addr.s_addr:=inet_addr(pchar(IP));
if addr.sin_addr.s_addr<>INADDR_NONE then begin
h:=gethostbyaddr(@addr.sin_addr.s_addr, sizeof(addr), AF_INET);
if h<>nil then Result:=h^.h_name
end;
WSACleanup
end;

и все дела ...