Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.11.19;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.033 c
15-1162392726
click
2006-11-01 17:52
2006.11.19
"Другие" символы в Memo


2-1162719974
Shiziks
2006-11-05 12:46
2006.11.19
Ошибка IB


15-1161945344
Сатир
2006-10-27 14:35
2006.11.19
Придумайте название для новой торговой системы.


15-1162275186
@!!ex
2006-10-31 09:13
2006.11.19
GetTickCount под досом


2-1162396394
Gamer
2006-11-01 18:53
2006.11.19
Консоль+Окна