| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнать имя хоста по его IP [D6, Win95/98, WinME, NT4, Win2k, WinXP]
Dmitry V. Averuanov © (2003-10-07 14:43:00)
Как узнать имя хоста по его IP
Вася Пупкин (2003-10-23 17:51:00) [1]
>Miralex © (14.10.03 18:26) [3]
gethostbyname
Dmitry V. Averuanov (2003-10-23 16:00:00) [2]
Это с помощю PING
(См. пример реализации PING с помощью.....)
Miralex (2003-10-14 18:26:00) [3]
А как узнать обратное?
В смысле IP по имени хоста.
Dmitry V. Averuanov (2003-10-07 18:08:00) [4]
Спасибо, все работает
Lony (2003-10-07 15:28:00) [5]
uses 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;
| |
