Форум: "Начинающим";
Текущий архив: 2005.11.20;
Скачать: [xml.tar.bz2];
Вниз
Время задержки (ping) Найти похожие ветки
← →
Vetalich © (2005-11-03 14:46) [0]Доброго времени суток...
Тут возникла вот такая проблема:
Когда пингуешь какой нить IP, если он есть (или компьютер включен), то состояние отображаеться быстро, а если нет идёт долгая задержка...
так вот как сделать эту задержку меньше или убрать вообще?
т.е если компьютер не отвечает сразу выдавать ответ, а не ждать это время...
Код используемый для пинга:
function IPAddrToName(IPAddr: string): string;
var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
Retorno :integer;
begin
Retorno:=WSAStartup($101, WSAData);
if (Retorno <> 0) then
begin
Application.MessageBox("Can*t Load WinSockets","WSAStartup", MB_OK);
WSACleanup();
exit;
end;
SockAddrIn.sin_addr.s_addr := inet_addr(PChar(IPAddr));
HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
if HostEnt = nil then
begin
Form1.Label7.caption := "off-line";
exit;
end
else
begin
Form1.Label7.caption := "on-line";
end;
Result := StrPas(Hostent^.h_name)
end;
← →
Digitman © (2005-11-03 15:02) [1]см. WSAAsyncGetHostByAddr()
← →
Vetalich © (2005-11-03 15:12) [2]а как она работает?
и где она находится?
← →
Digitman © (2005-11-03 15:54) [3]
> как она работает?
написано в той же справке, где написано и про gethostbyaddr()
> где она находится?
в ws2_32.dll
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.11.20;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.041 c
