Проверка "Или есть соиденение с Интернетом"

@gorin · Регистрация: 18.08.2009

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

Привет всем, как можно проверить или есть связь с интернетом?

cpp_developer · 07.06.2011, 23:37

Обработка исключений класс исключения уже есть - EIdSocketError

@gorin · 07.06.2011, 23:43 **[ТС]**

LK, я немного понять не могу, можно пример в моем случае!!!

@Programmer. · 07.06.2011, 23:54

LK
gorin

C++
1
2
3
4
5
6
7
8
9
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
[ILINK32 Error] Error: Unresolved external 'InternetGetConnectedState' referenced from C:\DOCUMENTS AND SETTINGS\ADMIN\МОИ ДОКУМЕНТЫ\RAD STUDIO\PROJECTS\DEBUG\WIN32\UNIT24.OBJ
 
[ILINK32 Error] Error: Unable to perform link

Как их исправить?

@gorin · 08.06.2011, 00:02 **[ТС]**

Programmer., #pragma comment(lib, "wininet.lib")

cpp_developer · 08.06.2011, 01:09

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

можно пример в моем случае!!!

- try & catch

@gorin · 08.06.2011, 11:01 **[ТС]**

LK,

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
39
40
41
42
43
44
flags=INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_LAN+INTERNET_CONNECTION_PROXY;
    for(i=0;i<bsSkinListBox2->Items->Count;i++)
    {
        int a,b;
        a=rand() % s;
        b=rand() % s;
        if(bsSkinCheckListBox1->Checked[i] == true)
        {
            try
            {
                dataGoogle = IdHTTP1->Get(httpGoogle+bsSkinListBox2->Items->operator [](i));
                bsSkinMemo2->Lines->Add("  "+IntToStr(bsSkinMemo2->Lines->Count+1)+". Результат: ("+dataGoogle+") "+a+" мсек.");
                bsSkinCheckListBox1->Checked[i]=false;
                Sleep(a);
            }
            catch ( EIdSocketError &e)
            {
                MessageBox(0, "Нет соединения с сетью", "Внимание", MB_OK + MB_ICONWARNING);
                break;
            }
        }
        if(bsSkinCheckListBox4->Checked[i] == true)
        {
            try
            {
                dataYandex = IdHTTP1->Get(httpYandex+bsSkinListBox2->Items->operator [](i));
                bsSkinMemo2->Lines->Add("  "+IntToStr(bsSkinMemo2->Lines->Count+1)+". Результат: ("+dataYandex+") "+b+" мсек.");
                bsSkinCheckListBox4->Checked[i]=false;
                Sleep(b);
            }
            catch ( EIdSocketError &e)
            {
                MessageBox(0, "Нет соединения с сетью", "Внимание", MB_OK + MB_ICONWARNING);
                break;
            }
        }
        if(bsSkinSpeedButton14->Caption=="Отменить Ping")
        {
            break;
            bsSkinMemo2->Clear();
        }
        Timer1->Enabled = false;
        Application->ProcessMessages();
    }

Всеровно 2 раза выбивает ошыбка EIdSocketError &e. Может не так че делаю?

@gorin · 09.06.2011, 22:36 **[ТС]**

Мцжыки, у меня тото не выходить выловить эту ошыбку EIdSocketError

Добавлено через 6 минут
Нужно чтобы при выполненни цыкла, в случае обрыва связи, чтобы цикл завершался (break).

Добавлено через 6 часов 57 минут
LK, Помоги розобратса, ни как не могу!!

Новые блоги и статьи Все статьи Все блоги /
В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .
rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .	Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .	Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571

	Проверка "Или есть соиденение с Интернетом" 07.06.2011, 17:32. Показов 3254. Ответов 26 Метки нет (Все метки) Привет всем, как можно проверить или есть связь с интернетом? 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	07.06.2011, 23:37
	Обработка исключений класс исключения уже есть - EIdSocketError 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	07.06.2011, 23:43 [ТС]
	LK, я немного понять не могу, можно пример в моем случае!!! 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	08.06.2011, 00:02 [ТС]
	Programmer., #pragma comment(lib, "wininet.lib") 1

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	09.06.2011, 22:36 [ТС]
	Мцжыки, у меня тото не выходить выловить эту ошыбку EIdSocketError Добавлено через 6 минут Нужно чтобы при выполненни цыкла, в случае обрыва связи, чтобы цикл завершался (break). Добавлено через 6 часов 57 минут LK, Помоги розобратса, ни как не могу!! 0