Форум: "Начинающим";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];

Вниз

IP   Найти похожие ветки 

← →
Делфи   (2006-10-31 10:41) [0]

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

---

← →
Elen ©   (2006-10-31 10:49) [1]

> Как по 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;

---

← →
Делфи   (2006-10-31 10:50) [2]

Elen © пасип

---

← →
Elen ©   (2006-10-31 10:52) [3]

> Делфи

В догонку - uses WinSock

---

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

> В догонку

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

---

← →
from kz   (2006-10-31 11:13) [5]

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

---

← →
Elen ©   (2006-10-31 11:23) [6]

> Делфи

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

---

← →
Делфи   (2006-10-31 11:26) [7]

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

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

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

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

---

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

Форум: "Начинающим";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.044 c