IP+Name

← →
начинающий © (2004-08-07 14:51) [0]

В хелпе к PeerIP написано: PeerIP can be a computer name, such as "wvnvm.wvnet.edu", or an IP address in dotted-decimal format, such as "129.71.2.4".
А как мне получить и айпи и имя компьютера(дело будет происходить в локальной сети)?

← →
VID © (2004-08-07 19:11) [1]

А разве я тебе не ответил на этот вопрос, а ?

← →
начинающий © (2004-08-07 19:22) [2]

Возможно, что и так, но в поиске по нику и по контенту(я вводил 129.71.2.4 - согласитесь редкое сочетание) вопрос я не могу найти. Может форум глюканул, или я. Если Вас не затруднит, отпишите мне еще раз.

← →
VID © (2004-08-07 21:14) [3]

Используй функции gethostbyaddr и gethostbyname. они объявлены в модуле Winsock.

← →
начинающий © (2004-08-07 21:22) [4]

Благодарю! Буду пробовать!

← →
Jim Li (2004-08-29 12:33) [5]

А можно пример использования?

ses 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
Label1.Caption := IPAddrToName(Edit1.Text);
end;

взято с http://www.delphisyte.ru/Articles/base/get_domain_by_ip.html

IP+Name Найти похожие ветки