| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

IP

Делфи ©   (2006-10-31 10:41:00) 

Как по IP узнать имя компьютера?
Как узнать есть ли ответ на ping компьютера

---

Делфи   (2006-10-31 11:26:00) [1]

> Ты не понял. Я имею ввиду что эта функция будет работать
> только если ты в uses пропишеш WinSock

Спасибо! да если что сам бы разобрался ;)

> есть такой компонент Ping называется

пшел искать ;)

---

Elen   (2006-10-31 11:23:00) [2]

> Делфи

Ты не понял. Я имею ввиду что эта функция будет работать только если ты в uses пропишеш WinSock

---

from kz   (2006-10-31 11:13:00) [3]

есть такой компонент Ping называется, можно пинговать Ip адреса локальных компьютеров и циску.

---

Делфи   (2006-10-31 11:10:00) [4]

> В догонку

:)
да мне пока не до него просто по работе нужно :)

---

Elen   (2006-10-31 10:52:00) [5]

> Делфи

В догонку - uses WinSock

---

Делфи   (2006-10-31 10:50:00) [6]

Elen © пасип

---

Elen   (2006-10-31 10:49:00) [7]

> Как по IP узнать имя компьютера?


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;

---

Наверх