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

[Aluk]

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

 

[vital]

function IsConnectedToInternet: Boolean;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes :=
INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

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

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

 

[zubr]

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

 

[vital]

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

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

 

[zubr]

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

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