Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

IP+Name [D7, WinXP]

начинающий © (2004-08-07 14:51:00)
В хелпе к 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-29 20:45:00) [1]
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

Jim Li (2004-08-29 12:33:00) [2]
А можно пример использования?

начинающий (2004-08-07 21:22:00) [3]
Благодарю! Буду пробовать!

VID (2004-08-07 21:14:00) [4]
Используй функции gethostbyaddr и gethostbyname. они объявлены в модуле Winsock.

начинающий (2004-08-07 19:22:00) [5]
Возможно, что и так, но в поиске по нику и по контенту(я вводил 129.71.2.4 - согласитесь редкое сочетание) вопрос я не могу найти. Может форум глюканул, или я. Если Вас не затруднит, отпишите мне еще раз.

VID (2004-08-07 19:11:00) [6]
А разве я тебе не ответил на этот вопрос, а ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »