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

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

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

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

LK · 07.06.2011, 23:37

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

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

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

@Programmer. · 07.06.2011, 23:54

LK
gorin

C++

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")

LK · 08.06.2011, 01:09

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

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

- try & catch

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

LK,

C++

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, Помоги розобратса, ни как не могу!!

LK Заблокирован
	07.06.2011, 23:37	21
	Обработка исключений класс исключения уже есть - EIdSocketError 0

LK Заблокирован
	08.06.2011, 01:09	25
	Сообщение от gorin можно пример в моем случае!!! - try & catch 0

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

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

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