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

Автор темы

A Aluk Участник 30.06.2007

#1

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

 

V vital Участник 01.07.2007

#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 Участник 03.07.2007

#3

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

 

V vital Участник 04.07.2007

#4

Стабильно работающих не бывает. Даже на самых крутых серверах бывает профилактика, если уже на то пошло. Впрочем, zubr, тебе виднее..

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

 

Z zubr Участник 04.07.2007

#5

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

З.Ы. Для гарантии пинговать можно несколько серверов.