ИМХО самый верный способ проверки соединения с инетом - это запрос на какой-нибудь сайт, который 99,9% в сети (типа microsoft.com, hotmail.com, mail.ru итд).
Таким способом, можно проверять соединение и через проксик.
Вот как это примерно делается:
| Код | function CheckConnection: boolean;
begin
Result := true;
if Settings.ProxyParams.Use then // Если соединятся через проксик...
with httpCheckConnection.ProxyParams do begin // httpCheckConnection - это TIdHttp - можно кинуть на форму, можно сделать внутри функции
ProxyServer := Settings.ProxyParams.Server;
ProxyPort := StrToInt(Settings.ProxyParams.Port);
ProxyUsername := Settings.ProxyParams.Username;
ProxyPassword := Settings.ProxyParams.Password;
end;
try
httpCheckConnection.Head('http://microsoft.com/');
except
on EIdReadTimeout do begin // По таймауту обрабатываем исключение
// Здесь пишем что-нибудь типа Application.MessageBox('No connection', 'Error', MB_ICONERROR);
Result := false;
end;
end;
end;
|
У меня сделано примерно так. Можно конечно доработать, но принцип я думаю ясен 
p0s0l
| Цитата | | В принципе, можно сделать просто перевод DNS-имени в IP-адрес какого-нибудь "microsoft.com" - этого думаю будет достаточно. |
Этот способ плох тем, что если человек сидит через проксю, то реально проверить если коннект не получится - до ДНС он может и дотянется, а дальше никуда не вылезет |
