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

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

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

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

LK · 07.06.2011, 17:53

C++

#include <intshcut.h>
...
void __fastcall TForm1::ButtonClick(TObject *Sender)
{
  if(InetIsOffline(0)) {
    ShowMessage("Не подключен.");
  else
    ShowMessage("Подключен.");
}

@gorin · 07.06.2011, 18:03 **[ТС]**

LK, спс

LK · 07.06.2011, 18:21

gorin, а где мой честно заработанный рубль

?

@gorin · 07.06.2011, 19:46 **[ТС]**

LK, Четео постоянно выбивает что подключено!!!

@Neo_AVE · 07.06.2011, 19:47

gorin, значит нажимаете все время на кнопку))

@gorin · 07.06.2011, 19:52 **[ТС]**

Этот код

C++

  if(InetIsOffline(0))
    ShowMessage("Не подключен.");
  else
    ShowMessage("Подключен.");

постоянно при нажатии на кнопку выбивает "Подключон."

Добавлено через 1 минуту
даже если нет отключать!

LK · 07.06.2011, 20:08

http://www.delphimaster.net/view/6-1087317889

@gorin · 07.06.2011, 20:37 **[ТС]**

LK, А как импортировать функцию InetIsOffline из URL.DLL

Delphi

1	function InetIsOffline(Flag: Integer): Boolean; stdcall; external "URL.DLL";

Добавлено через 20 минут
не нужнол подключать "#include <intshcut.h>"?

@Programmer. · 07.06.2011, 20:39

gorin,
Да нужно но ето ф-цыя работает толко под win98 и то даёт true или false

@gorin · 07.06.2011, 21:13 **[ТС]**

Programmer., А какуето другую функцию можно использовать?

Добавлено через 2 минуты
Может какойто компонент есть из библиотеки компонентов "Indy"? Для проверки соидинения с интернетом.

LK · 07.06.2011, 21:17

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

Добавлено через 1 минуту
еще можно пслать пинг по какому-нибудь адресу

@Programmer. · 07.06.2011, 21:40

gorin, Скинте на форме TIdHTTP и в Button1Click пишите код

C++

void __fastcall TForm24::Button1Click(TObject *Sender)
{
try{
  IdHTTP1->Get(L"http://www.google.ru");
   ShowMessage(L"You are connected to internet");
}
catch(EIdHTTPProtocolException &e)
{
 ShowMessage(e.ErrorMessage);
}
catch(...)
{
    ShowMessage(L"Exception");
}
 
}

@gorin · 07.06.2011, 22:35 **[ТС]**

LK, Я по той теме посмотрел!!
Выбрал код

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++

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

LK · 07.06.2011, 22:54

таймер там есть, вот проверяйте по таймеру

C++

1 2	if(!InternetGetConnectedState(&flags, 0)) MessageBox(0, "Нет соединения с сетью", "Внимание", MB_OK + MB_ICONWARNING);

@gorin · 07.06.2011, 22:57 **[ТС]**

LK, не в цыкле?

LK · 07.06.2011, 23:04

по мне, лучше в таймере, он себе тикает... проверяет... даже не знаю, как на такое цикл замутить

.

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

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)
        {
            if(!InternetGetConnectedState(&flags, 0))
            {
                MessageBox(0, "Нет соединения с сетью", "Внимание", MB_OK + MB_ICONWARNING);
                break;
            }
            else
            {
                dataGoogle = IdHTTP1->Get(httpGoogle+bsSkinListBox2->Items->operator [](i));
                bsSkinMemo2->Lines->Add("  "+IntToStr(bsSkinMemo2->Lines->Count+1)+". Результат: ("+dataGoogle+") "+a+" мсек.");
                bsSkinCheckListBox1->Checked[i]=false;
                Sleep(a);
            }
        }
        if(bsSkinCheckListBox4->Checked[i] == true)
        {
            if(!InternetGetConnectedState(&flags, 0))
            {
                MessageBox(0, "Нет соединения с сетью", "Внимание", MB_OK + MB_ICONWARNING);
                break;
            }
            else
            {
                dataYandex = IdHTTP1->Get(httpYandex+bsSkinListBox2->Items->operator [](i));
                bsSkinMemo2->Lines->Add("  "+IntToStr(bsSkinMemo2->Lines->Count+1)+". Результат: ("+dataYandex+") "+b+" мсек.");
                bsSkinCheckListBox4->Checked[i]=false;
                Sleep(b);
            }
        }
        if(bsSkinSpeedButton14->Caption=="Отменить Ping")
        {
            break;
            bsSkinMemo2->Clear();
        }
        Timer1->Enabled = false;
        Application->ProcessMessages();
    }

Вроди работает! но когда связ обрываетса - ошыбка
First chance exception at $7C812AEB. Exception class EIdSocketError with message 'Socket Error # 10054
Connection reset by peer.'. Process Project1.exe (2044)
строка

C++

1	dataGoogle = IdHTTP1->Get(httpGoogle+bsSkinListBox2->Items->operator [](i));

LK · 07.06.2011, 23:16

вот и перехватывайте это исключение и пишите свое сообщение

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

LK, а как?

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
		1
	Проверка "Или есть соиденение с Интернетом" 07.06.2011, 17:32. Показов 2833. Ответов 26 Метки нет (Все метки) Привет всем, как можно проверить или есть связь с интернетом? 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	07.06.2011, 18:03 [ТС]	3
	LK, спс 0

LK Заблокирован
	07.06.2011, 18:21	4
	gorin, а где мой честно заработанный рубль ? 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	07.06.2011, 19:46 [ТС]	5
	LK, Четео постоянно выбивает что подключено!!! 0

@Neo_AVE 89 / 36 / 5 Регистрация: 04.05.2011 Сообщений: 239
	07.06.2011, 19:47	6
	gorin, значит нажимаете все время на кнопку)) 0

LK Заблокирован
	07.06.2011, 20:08	8
	http://www.delphimaster.net/view/6-1087317889 0

@Programmer. Прогер 632 / 263 / 15 Регистрация: 17.11.2010 Сообщений: 1,371 Записей в блоге: 2
	07.06.2011, 20:39	10
	gorin, Да нужно но ето ф-цыя работает толко под win98 и то даёт true или false 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	07.06.2011, 21:13 [ТС]	11
	Programmer., А какуето другую функцию можно использовать? Добавлено через 2 минуты Может какойто компонент есть из библиотеки компонентов "Indy"? Для проверки соидинения с интернетом. 0

LK Заблокирован
	07.06.2011, 21:17	12
	Как проверить наличие соединения с Интернетом\Сетью Добавлено через 1 минуту еще можно пслать пинг по какому-нибудь адресу 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	07.06.2011, 22:57 [ТС]	16
	LK, не в цыкле? 0

LK Заблокирован
	07.06.2011, 23:04	17
	по мне, лучше в таймере, он себе тикает... проверяет... даже не знаю, как на такое цикл замутить . 0

LK Заблокирован
	07.06.2011, 23:16	19
	вот и перехватывайте это исключение и пишите свое сообщение 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	07.06.2011, 23:30 [ТС]	20
	LK, а как? 0