Как проверить наличие соединения с Интернетом\Сетью

@Maestro · Регистрация: 06.09.2009

Студворк — интернет-сервис помощи студентам

Привет всем.

Вопрос простой и в гугле много ссылок и решений, но то что пробовал, не работает. Я знаю эту функцию InternetGetConnectedState, пробовал так, всегда сообщает что Интернет есть, даже при выключеной сети

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#include <wininet.h>
#pragma comment(lib, "wininet.lib")
...
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   DWORD flags;
   flags = INTERNET_CONNECTION_MODEM +
           INTERNET_CONNECTION_LAN +
           INTERNET_CONNECTION_PROXY;
 
   if(!InternetGetConnectedState(&flags, 0)) 
      MessageBox(0, "Нет соединения с сетью", "Внимание", MB_OK + MB_ICONWARNING);
   else
      MessageBox(0, "Соединение с сетью установлено", "Внимание", MB_OK + MB_ICONWARNING);
}
//---------------------------------------------------------------------------

А так наоборот, даже при наличии Инета, говорит что соединения нет

C++
1
2
3
4
5
6
7
8
9
10
11
12
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   DWORD state = FLAG_ICC_FORCE_CONNECTION;
   bool OnLine = InternetCheckConnection (NULL, state, 0);
 
   if(!OnLine)
      MessageBox(0, "Нет соединения с сетью", "Внимание", MB_OK + MB_ICONWARNING);
   else
      MessageBox(0, "Соединение с сетью установлено", "Внимание", MB_OK + MB_ICONWARNING);
}
//---------------------------------------------------------------------------

Так не работает тоже

C++
1
2
3
4
5
   bool OnLine = InternetGetConnectedState(NULL,NULL); 
   if(!OnLine)
      MessageBox(0, "Нет соединения с сетью", "Внимание", MB_OK + MB_ICONWARNING);
   else
      MessageBox(0, "Соединение с сетью установлено", "Внимание", MB_OK + MB_ICONWARNING);

Как можно решить этот вопрос? Что вы мне посоветуете?

@MikeSoft · 23.02.2012, 18:46

Сообщение от __bool

Ни один из вариант не считаю приемлемым.
1) IdHTTP->Get, try-catch - очень долго проверяет(если инета нет, то около 30 секунд(даже если TimeOut=1000))

Всё правильно! Вы справку почитайте, тогда перестанете путать таймаут поставки ответа и таймаут установки соединения

C++
1
IdHTTP1->IOHandler->ConnectTimeout = 1000;

@__bool · 27.02.2012, 15:50

Сообщение от MikeSoft

Всё правильно! Вы справку почитайте, тогда перестанете путать таймаут поставки ответа и таймаут установки соединения

C++
1
IdHTTP1->IOHandler->ConnectTimeout = 1000;

Я уже везде, где только можно выставил TimeOut в 1000, все равно висит около 20 секунд!

@MikeSoft · 27.02.2012, 18:18

__bool, соединение устанавливается сквозь прокси?

@__bool · 27.02.2012, 18:50

Сообщение от MikeSoft

__bool, соединение устанавливается сквозь прокси?

Совершенно верно.

@MikeSoft · 28.02.2012, 23:04

__bool, на работе у меня поднят прокси (squid 2.6 и 3.0b), на них и проверял - никаких проблем не было... первого числа выйду на работу - проверю и отпишусь!

@__bool · 29.02.2012, 07:53

Сообщение от MikeSoft

__bool, на работе у меня поднят прокси (squid 2.6 и 3.0b), на них и проверял - никаких проблем не было... первого числа выйду на работу - проверю и отпишусь!

Благодарю за внимание, но с трудом верится, что этот, назову его так, "глюк" связан с типом прокси-соединения..

@MikeSoft · 05.03.2012, 18:12

__bool, проверил... всё работает отлично...

C++
1
2
3
4
5
6
7
8
TIdHTTP *HTTP = new TIdHTTP(NULL);
HTTP->ProxyParams->ProxyServer = "172.16.1.254";
HTTP->ProxyParams->ProxyPort = 8080;
HTTP->ConnectTimeout = 100;
HTTP->ReadTimeout = 100;
String ToShow = HTTP->Get("http://msdn.at.ua/1.txt");
ShowMessage(ToShow);
delete HTTP;

Если в течении 100 мс. не поступят данные (или не будет установлено соединение) - будет сгенерировано исключение.

@MikeSoft · 10.03.2012, 03:16

__bool, что скажете? Корректно данный код с вашей проксёй работает?
Если нет - то отпишитесь о версии! Интересно будет отыскать нюансы...
Думаю, многим пригодятся...

@__bool · 10.03.2012, 15:31

Сообщение от MikeSoft

__bool, что скажете? Корректно данный код с вашей проксёй работает?
Если нет - то отпишитесь о версии! Интересно будет отыскать нюансы...
Думаю, многим пригодятся...

MikeSoft Спасибо! Отлично работает.
Правда иногда не успевает за 100, а за 200 прекрасно!

@Avazart · 15.04.2012, 03:33

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  try{
     IdHTTP1->ConnectTimeout = 1000;
     IdHTTP1->ReadTimeout = 1000;
     IdHTTP1->Get("https://www.cyberforum.ru");
     MessageBox(0, "Соединение с Интернет есть", "Информация", MB_OK + MB_ICONINFORMATION);
     }
   catch(EIdHTTPProtocolException &se){
      switch(se.ErrorCode){
         case 200:  ShowMessage(se.ErrorMessage);
           break;
         case 303:  ShowMessage(se.ErrorMessage);
           break;
         case 404:  ShowMessage(se.ErrorMessage);
           break;
         default:  ShowMessage(se.ErrorMessage);
           break;
        }
      }
   catch(EIdSocketError &se){
      if(se.LastError == 11001)
          ShowMessage(se.LastError);
      ShowMessage(se.LastError);
     }
}
//---------------------------------------------------------------------------

Пробую этот код. Как бы работает.
Но вот в чем проблема компонент создается не динамически и если отключаю интернет - нажимаю кнопку, выбивает что интернета нет(или 11001 или 10054) потом я подключаю интернет и при повторной проверке- опять выбивает туже ошибку говоря что интернета нет ( хотя он есть ).

Я так понял компонет не выходит из "состояния ошибки".
Можно ли как то "сбросить его" или есть только единственный вариант- создавать динамически?
И если создавать динамически как обеспечить гарантированое удаление компонента учитывая то что есть еще обработка исключений?

@MikeSoft · 15.04.2012, 14:00

Сообщение от Avazart

Я так понял компонент не выходит из "состояния ошибки".

Вы должны его выводить, сам он практически ничего не сделает.
При получении ReadTimeout соединение останется открытым, поэтому его нужно закрыть.
К тому же, есть Connection Gracefully Closed. Это сообщение говорит о том, что удалённая сторона сама послала команду на закрытие соединение. В этом случае, тоже необходимо закрыть всё вручную. Поэтому, проще прописать закрытие на любое действие. Закрытие в новых версиях - это обычный Disconnect ... а вот в старых версиях Indy необходимо было непосредственно закрывать Socket.

Avazart, в приведенном коде таймаут чтения и подключения равен 1 сек.
Вы настолько уверены в своём интернете?

Мало того, что пошла дурная мода проверять наличие соединения ЗАГРУЗИВ всю страницу целиком, так ещё и по времени обрезать? Некрасиво, граждане

Переходите на ICMP запросы и не забывайте, что при проверке через доменное имя вам может вернуться ошибка от упавшего или криво работающего DNS-сервера.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
try{
  IdHTTP1->ConnectTimeout = 10000;
  IdHTTP1->ReadTimeout = 10000;
  if (IdHTTP1->Connected()) {
    IdHTTP1->Disconnect();
  }
  IdHTTP1->Get("http://msdn.at.ua/1.txt");
  MessageBox(0, L"Соединение с Интернет есть", L"Информация", MB_OK + MB_ICONINFORMATION);
} catch(EIdHTTPProtocolException &se) {
  switch(se.ErrorCode){
    case 200:  ShowMessage(se.ErrorMessage);
      break;
    case 303:  ShowMessage(se.ErrorMessage);
      break;
    case 404:  ShowMessage(se.ErrorMessage);
      break;
    default:  ShowMessage(se.ErrorMessage);
      break;
  }
  try {
    IdHTTP1->Socket->Close();
  } catch (...) {
    IdHTTP1->Disconnect();
  }
} catch(EIdSocketError &se) {
  ShowMessage(se.LastError);
  try {
    IdHTTP1->Socket->Close();
  } catch (...) {
    IdHTTP1->Disconnect();
  }
}

@Avazart · 15.04.2012, 15:43

Мало того, что пошла дурная мода проверять наличие соединения ЗАГРУЗИВ всю страницу целиком, так ещё и по времени обрезать? Некрасиво, граждане

Вообще я собирался посылать только Head

C++
1
IdHTTP1->Head("https://www.cyberforum.ru");

Добавлено через 7 минут

Переходите на ICMP запросы

Я так понимаю для этого можно использовать IdIcmpClient ?

@MikeSoft · 15.04.2012, 15:49

Сообщение от Avazart

Я так понимаю для этого можно использовать IdIcmpClient ?

Да, именно!

Или штатными функциями: IcmpCreateFile function MSDN

Или же напрямую с помощью сокетов.

@Avazart · 15.04.2012, 21:15

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
String Host;
//---------------------------------------------------------------------------
void __fastcall TForm1::BPingClick(TObject *Sender)
{
Host=Edit1->Text;
Memo1->Clear();
try
 {
 IdIcmpClient1->ReceiveTimeout=1000;
 IdIcmpClient1->Host= Host;
 IdIcmpClient1->Ping();
 }
catch(EIdSocketError &se) { Memo1->Text= String(se.LastError)+" " +se.Message;}
catch(...){ Memo1->Text="Неизвестная ошибка"; }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdIcmpClient1Reply(TComponent *ASender, const TReplyStatus *AReplyStatus)
 
{
Memo1->Lines->Add("Ping  "+ Host);
Memo1->Lines->Add("FromIpAddress: "+ AReplyStatus->FromIpAddress);
Memo1->Lines->Add("HostName: "+ AReplyStatus->HostName);
Memo1->Lines->Add("BytesReceived: "+String(AReplyStatus->BytesReceived));
Memo1->Lines->Add("MsgCode: "+String(AReplyStatus->MsgCode));
Memo1->Lines->Add("MsRoundTripTime: "+String(AReplyStatus->MsRoundTripTime));
Memo1->Lines->Add("Msg: "+AReplyStatus->Msg);
Memo1->Lines->Add("MsgType: "+AReplyStatus->MsgType);
Memo1->Lines->Add("PacketNumber: "+String(AReplyStatus->PacketNumber));
Memo1->Lines->Add("RedirectTo: "+AReplyStatus->RedirectTo);
}
//---------------------------------------------------------------------------

Если вырубаю всю сеть то срабатывает исключение, а если только интернет, то пингуется
(по идее должен быть таймаут) хотя видно что IP неопределен

@Avazart · 18.04.2012, 23:57

IdIcmpClient1 как-то странно пингует
Пробую по выше приведенному коду хост "cyberforum.ru" пингуется, вытыкаю сетевой кабель с ноута
не пингует.
Подключаю назад, появляется сеть, но само интернет соединение(VPN) не подклчаю и всеравно пингуется!!??
Хотя с

Code
1
cmd ping cyberforum.ru

не идет.
Что не так?

Добавлено через 8 минут
Все понял свою ошибку забыл проверять

C++
1
Icmp->ReplyStatus->BytesReceived>0

@Avazart · 17.05.2012, 18:18

Переодически пинговать сеть по видемому не очень хороший вариант поэтому решил поикать другой способ и вот что нашел

Код отслеживает изменение в соединениях:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#include <winsock2.h>
#include <iphlpapi.h>
#include <stdio.h>
#include <windows.h>
//---------------------------------------------------------------------------
 
#pragma comment(lib, "iphlpapi.lib")
#pragma comment(lib, "ws2_32.lib")
 
#pragma argsused
int _tmain(int argc, _TCHAR* argv[])
{
int i=0;
for(;;i++)
 {
  OVERLAPPED overlap;
  DWORD ret;
 
  HANDLE hand = NULL;
  overlap.hEvent = WSACreateEvent();
 
  ret = NotifyAddrChange(&hand, &overlap);
 
  if (ret != NO_ERROR)
  {
    if (WSAGetLastError() != WSA_IO_PENDING)
    {
      printf("%i NotifyAddrChange error...%d\n",i,WSAGetLastError());
      return 0;
    }
  }
  if ( WaitForSingleObject(overlap.hEvent, INFINITE) == WAIT_OBJECT_0 )
    printf("%i IP Address table changed..\n",i);
 
  }
system("pause");
return 0;
}

Код получает список активных подключений:
http://www.infocity.kiev.ua/pr... 43_1.phtml

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#include <windows.h>
#include <Ras.h>
 
int _tmain(int argc, _TCHAR* argv[])
{
system("chcp 1251");
 
    RASCONN ras[20];
    DWORD dSize,dNumber;
    ras[0].dwSize = sizeof(RASCONN);
    dSize = sizeof( ras );
    if( RasEnumConnections( ras, &dSize, &dNumber ) == 0 )
    {
        cout <<  "Count Ras " <<  dNumber <<  endl;
        for (DWORD x=0; x < dNumber;x++) cout <<  ras[x].szEntryName<<"\t"<<ras[x].szDeviceName <<  endl;
    }
system("pause");
return 0;
}
//---------------------------------------------------------------------------

Думаю если объединить эти два кода то можно определять момент пропадение интернета более эффективным способом.

Вопрос есть ли нюансы?
И есть ли еще проще способ?

The_Immortal · 07.06.2012, 11:08

Ребят, а не могли бы подкинуть идейку как мне быть?
У меня используется TClientSocket и TServerSocket. Вот общая задача.
Сейчас мне надо, чтобы после загрузки винды клиент проверял наличие инета, и как только оно появится, то коннектился бы к серваку.
Посмотрел примеры с инди - да, все здорово. Только вот использовать инди и тсокеты одновременно нельзя

Как быть?

Добавлено через 3 минуты
Тупо пытаться коннектиться TClientSocket'ом на какой-нить вечно живущий хост типа ya.ru в бесконечном цикле?)
Ну с циклом я разумеется шучу... Но все же не знаю как быть... Таймер поставить, чтобы через каждые 10 сек пробовал открывать хост ya.ru? Как-то это стремно...

The_Immortal · 07.06.2012, 12:05

Ну в общем сделал как обычно через одно место:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
this->Memo1->Clear();
this->Timer1->Interval=10000;
this->Timer1->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
this->ClientSocket1->Host="www.ya.ru";
this->ClientSocket1->Port=80;
this->ClientSocket1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
      TCustomWinSocket *Socket)
{
Memo1->Lines->Add("Yes! Time:" + Now());
this->ClientSocket1->Active=false;
this->Timer1->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Error(TObject *Sender,
      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
ErrorCode=0; //чтобы ошибка не выстреливала
Memo1->Lines->Add("No! Time:" + Now());
}

Вот что получилось.

Теперь о проблемах:
1) Изначально инет отключен, но первая строчка в логе появляется отнюдь не через 10 сек после запуска программы. Надо ждать секунд 30 до того как ошибка по коннекту схватится. Ну а дальше вроде интервал четкий. // Эта проблема не столь критична, как следующая.
2) На 11:56:43 (сразу после последнего лога о неудачном соединении) я подаю инет. Как видно, он схватывается. И вот ошибка после этого схватывания все равно проскакивает... Такое ощущение что события ClientSocket1Connect и ClientSocket1Error не смотрят друг на друга

@Avazart · 07.06.2012, 14:10

Таймер поставить, чтобы через каждые 10 сек пробовал открывать хост ya.ru? Как-то это стремно...

Ну врятле стремно, но сеть немного грузит( покрайней мере когда играл в c.s замечал маленький подлаг)

Переодически пинговать сеть по видемому не очень хороший вариант поэтому решил поикать другой способ и вот что нашел

@Avazart · 07.06.2012, 14:12

Вот я раньше пробовал писать на IdIcmpClient

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

@MikeSoft 3957 / 1812 / 184 Регистрация: 21.11.2009 Сообщений: 2,540
	27.02.2012, 18:18
	__bool, соединение устанавливается сквозь прокси? 0

@MikeSoft 3957 / 1812 / 184 Регистрация: 21.11.2009 Сообщений: 2,540
	28.02.2012, 23:04
	__bool, на работе у меня поднят прокси (squid 2.6 и 3.0b), на них и проверял - никаких проблем не было... первого числа выйду на работу - проверю и отпишусь! 0

@MikeSoft 3957 / 1812 / 184 Регистрация: 21.11.2009 Сообщений: 2,540
	10.03.2012, 03:16
	__bool, что скажете? Корректно данный код с вашей проксёй работает? Если нет - то отпишитесь о версии! Интересно будет отыскать нюансы... Думаю, многим пригодятся... 0

The_Immortal 1569 / 505 / 48 Регистрация: 04.04.2009 Сообщений: 1,891
	07.06.2012, 11:08
	Ребят, а не могли бы подкинуть идейку как мне быть? У меня используется TClientSocket и TServerSocket. Вот общая задача. Сейчас мне надо, чтобы после загрузки винды клиент проверял наличие инета, и как только оно появится, то коннектился бы к серваку. Посмотрел примеры с инди - да, все здорово. Только вот использовать инди и тсокеты одновременно нельзя Как быть? Добавлено через 3 минуты Тупо пытаться коннектиться TClientSocket'ом на какой-нить вечно живущий хост типа ya.ru в бесконечном цикле?) Ну с циклом я разумеется шучу... Но все же не знаю как быть... Таймер поставить, чтобы через каждые 10 сек пробовал открывать хост ya.ru? Как-то это стремно... 0