Главная страница
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.191 c
2-1162267319
D@Nger
2006-10-31 07:01
2006.11.19
RxDBLookupcomboBox


15-1162553454
Сергей М.
2006-11-03 14:30
2006.11.19
AdAstra Trace Mode 6


11-1121340015
Barloggg
2005-07-14 15:20
2006.11.19
Хочу избавиться от MCK


6-1151313775
AndreyAR
2006-06-26 13:22
2006.11.19
net send


1-1159995574
Miksher
2006-10-05 00:59
2006.11.19
Анализ журнала безопасности windows