| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как Определить имя компа в локальной сети по IP адресу? [D7, WinXP]
tytus © (2008-02-25 16:01:00)Точнее - используя ф-ю RtlIpv4AddressToString???
Незнакомец (2008-02-26 08:17:00) [1]> как Определить имя компа в локальной сети по IP адресу?
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение имени компьютера в локальной сети по его IP адресу
Получение имени компьютера в локальной сети по его IP адресу.
Зависимости: SysUtils, Winsock
Автор: savva, savva@nm.ru, ICQ:126578975, Орел
Copyright: Сапронов Алексей (Savva)
Дата: 6 июня 2002 г.
***************************************************** }
function IPAddressToNetworkName(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
begin
result := StrPas(Hostent^.h_name)
end
else
begin
result := '';
end;
end;
Пример использования:
ShowMessage(IPAddressToNetworkName('ХХХ.ХХХ.ХХХ.ХХХ'));
tytus (2008-02-25 17:13:00) [2]чую глупость порю... сорри.
| |
