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

Вниз

Время задержки (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;
Скачать: CL | DM;

Наверх

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