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

Вниз

Скорость поиска компьютера по IP   Найти похожие ветки 

 
Veles   (2005-04-08 06:40) [0]

Уважаемые Мастера !
Нашел такую функцию:

function IPAddressToNetworkName(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
 begin
   result:=StrPas(Hostent^.h_name)
 end
 else
 begin
   result:="";
 end;
end;

Все прекрасно, НО если какой-либо IP адрес не активен, то прога виснет на 10 секунд. как это дело ускорить ?

Заранее благодарен...


 
Rouse_ ©   (2005-04-08 10:43) [1]

Вынести в поток...



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

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

Наверх




Память: 0.46 MB
Время: 0.027 c
14-1118080233
jack128
2005-06-06 21:50
2005.07.11
Теперь нам не нужны Петиумы и Атлоны. Даешь МП "Эльбрус"


14-1118425965
Wks
2005-06-10 21:52
2005.07.11
активность формы?


1-1118890532
FDA
2005-06-16 06:55
2005.07.11
Как открыть файл AutoCAD?


14-1118147107
karat
2005-06-07 16:25
2005.07.11
Домены стран СНГ.


14-1118563788
sofs
2005-06-12 12:09
2005.07.11
Какие пренципиальые различия ...