Текущий архив: 2003.12.19;
Скачать: CL | DM;

Вниз

Как узнать имя хоста по его IP   Найти похожие ветки 

← →
Dmitry V. Averuanov   (2003-10-07 14:43) [0]

Как узнать имя хоста по его IP

---

← →
Lony ©   (2003-10-07 15:28) [1]


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;


---

← →
Dmitry V. Averuanov   (2003-10-07 18:08) [2]

Спасибо, все работает

---

← →
Miralex ©   (2003-10-14 18:26) [3]

А как узнать обратное?
В смысле IP по имени хоста.

---

← →
Dmitry V. Averuanov   (2003-10-23 16:00) [4]

Это с помощю PING
(См. пример реализации PING с помощью.....)

---

← →
Вася Пупкин ©   (2003-10-23 17:51) [5]

>Miralex © (14.10.03 18:26) [3]
gethostbyname

---

Страницы: 1 вся ветка

Текущий архив: 2003.12.19;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.02 c