Проверка соединения с интернетом

  • Автор темы Aluk
  • Дата начала
Статус
Закрыто для дальнейших ответов.
A

Aluk

Гость
#1
помогите с кодом для проверки соединения с интернетом плиззз
 

vital

Больной Компом Детектед
29.01.2006
2 432
42
#2
function IsConnectedToInternet: Boolean;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes :=
INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

Вот готовая функция.. Возвращает тру вслучае успеха, фолс наоборот, соотсветственно.

на борландовских сях только синтаксис будет другой. Проблем, это, я думаю, вызвать не должно.
 
Z

zubr

Гость
#3
К сожалению, эта функция не всегда корректно срабатывает. Самый надежный способ пинговать, какой нибудь стабильно работающий сервер.
 

vital

Больной Компом Детектед
29.01.2006
2 432
42
#4
Стабильно работающих не бывает. Даже на самых крутых серверах бывает профилактика, если уже на то пошло. Впрочем, zubr, тебе виднее..

Касаемо срабатываний - хотелось бы по подробней. Например? Не сталкивался..
 
Z

zubr

Гость
#5
К примеру, наличие интернета через прокси-сервер (WinGate), данная функция не обнаруживает, хотя в описании вроде бы и должна.

З.Ы. Для гарантии пинговать можно несколько серверов.
 
Статус
Закрыто для дальнейших ответов.