Как можно по IP адресу получить имя компа????
Подскажите плиз!!!!

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

AL>Как можно по IP адресу получить имя компа????
AL>Подскажите плиз!!!!

Да gethostbyaddr вроде...

The Windows Sockets gethostbyaddr function gets host information corresponding to an address.

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

AL>Как можно по IP адресу получить имя компа????
AL>Подскажите плиз!!!!
gethostbyaddr посмотри

Здравствуйте Flea, Вы писали:
F>gethostbyaddr посмотри
var
pHE : PHostEnt;
addr : TSockAddr;
begin
pHE := gethostbyaddr( PChar(@addr.sin_addr), SizeOf(TInAddr),AF_INET );

вроде того чтоли

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

AL>Здравствуйте Flea, Вы писали:
F>>gethostbyaddr посмотри
var
pHE : PHostEnt;
addr : TSockAddr;
begin
pHE := gethostbyaddr( PChar(@addr.sin_addr), SizeOf(TInAddr),AF_INET );

вроде того чтоли

тогда как "addr" получить ???

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

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

AL>>Здравствуйте Flea, Вы писали:
F>>>gethostbyaddr посмотри
AL>var
AL> pHE : PHostEnt;
AL> addr : TSockAddr;
AL>begin
AL> pHE := gethostbyaddr( PChar(@addr.sin_addr), SizeOf(TInAddr),AF_INET );

AL>вроде того чтоли

AL> тогда как "addr" получить ???
В VC++

//Winsock2.h

struct hostent {
  char FAR *       h_name;
  char FAR * FAR * h_aliases;
  short            h_addrtype;
  short            h_length;
  char FAR * FAR * h_addr_list;
};

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

Здравствуйте 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;

и все дела ...