Программно определить подключён ли кабель к сетевой карте

[Sasha]

Здравствуйте!

Ребята подскажите, пожалуйста, можно ли как-то программно определить подключён ли сетевой кабель к сетевой карте?

Заранее спасибо за ответ

[S0mbre]

InternetGetConnectedState

[Sasha]

Спасибо, попробую

[Sasha]

Сделал вот так вот

Код

#include 
#include 
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma comment ( lib, "lib\wininet.lib" )
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        bool state;
        DWORD flags;
        state = InternetGetConnectedState (&flags,0);
        if ( state ) ShowMessage ("Сетевой кабель подключён");
        else ShowMessage ("Сетевой кабель отключен");
}
//---------------------------------------------------------------------------
 

Работает всё нормально.

И задам ещё вопрос. А как сделать чтобы этот код работал в автономном режиме, т.е постоянно определял подключение и отключение кабеля? Заранее благодарен за ответ

[S0mbre]

И задам ещё вопрос. А как сделать чтобы этот код работал в автономном режиме, т.е постоянно определял подключение и отключение кабеля? Заранее благодарен за ответ

Выполняй функцию проверки в цикле - в отдельном потоке или по таймеру или в событии OnIdle объекта Application или компонента TApplicationEvents.

[Sasha]

И задам ещё вопрос. А как сделать чтобы этот код работал в автономном режиме, т.е постоянно определял подключение и отключение кабеля? Заранее благодарен за ответ

Выполняй функцию проверки в цикле - в отдельном потоке или по таймеру или в событии OnIdle объекта Application или компонента TApplicationEvents.

Сделал в событии OnIdle

Код

#include 
#include 
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma comment ( lib, "lib\wininet.lib" )
#pragma resource "*.dfm"
 
TForm1 *Form1;
//-------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 
  Application->OnIdle = MyIdleHandler;
 
}
//-------------------------------------------------------------------
void __fastcall TForm1::MyIdleHandler(TObject *Sender, bool &Done)
{
  bool newState = InternetGetConnectedState (&flags,0);
 
  if (this->state != newState)
  {
    if (newState)
    {
     ShowMessage ("Сетевой кабель подключён");
    }
    else
    {
     ShowMessage ("Сетевой кабель отключен");
    }
  }
 
  this->state = newState;
  Done = false;
}
 

в h-файле

Код

class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button1;
    void __fastcall FormCreate(TObject *Sender);
 
private:    // User declarations
public:     // User declarations
 
    __fastcall TForm1(TComponent* Owner);
    void __fastcall MyIdleHandler(TObject *Sender, bool &Done);
     bool state;
     DWORD flags;
 
};
 

Но проблема в том, что сообщение постоянно выскакивает, а мне надо чтобы выскакивало по одному разу, а не по несколько. Можно ли этот код как-то переделать, чтобы удовлетворяло запросам?

[S0mbre]

Код

void __fastcall TForm1::MyIdleHandler(TObject *Sender, bool &Done)
{
  DWORD flags;
 static bool oldstate = false;
    bool state = InternetGetConnectedState(&flags, 0);
 if(state != oldstate) {
                if(state) ShowMessage("Сетевой кабель подключён");
           else ShowMessage("Сетевой кабель отключен");
           oldstate = state;
       }
}
 

[Sasha]

Код

void __fastcall TForm1::MyIdleHandler(TObject *Sender, bool &Done)
{
 DWORD flags;
 static bool oldstate = false;
    bool state = InternetGetConnectedState(&flags, 0);
 if(state != oldstate) {
                if(state) ShowMessage("Сетевой кабель подключён");
           else ShowMessage("Сетевой кабель отключен");
           oldstate = state;
       }
}
 

Так не подойдёт оно зацикливается и постоянно вылетает ShowMessage

[S0mbre]

Проверил. У меня все нормально, выскакивает только когда подключается или отключается кабель, не постоянно.

Код

//---------------------------------------------------------------------------
#include    // чтобы не было проблем с неймспейсами
#include     // интернет функции WinAPI
#include 
#pragma hdrstop
 
#include "Main.h"
#pragma link "wininet.lib"   // линкуем библу
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
       : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Idle(TObject *Sender, bool &Done)
{
     Done = false; // чтобы запускалось постоянно
  if(!CheckBox1->Checked) return; // если не поставлена галочка на форме, выйти
 
 DWORD flags;
 static bool oldstate = false; // статический флаг
   bool state = InternetGetConnectedState(&flags, 0); // читаем статус соединения
        if(state != oldstate) { // если статус изменился
          if(state) ShowMessage("Сетевой кабель подключён"); // сообщаем в диалоге
                else ShowMessage("Сетевой кабель отключен");
           oldstate = state; // сохраняем статус
      }
}
 

[Sasha]

Проверил. У меня все нормально, выскакивает только когда подключается или отключается кабель, не постоянно.

Код

//---------------------------------------------------------------------------
#include    // чтобы не было проблем с неймспейсами
#include     // интернет функции WinAPI
#include 
#pragma hdrstop
 
#include "Main.h"
#pragma link "wininet.lib"   // линкуем библу
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
      : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Idle(TObject *Sender, bool &Done)
{
     Done = false; // чтобы запускалось постоянно
  if(!CheckBox1->Checked) return; // если не поставлена галочка на форме, выйти
 
 DWORD flags;
 static bool oldstate = false; // статический флаг
   bool state = InternetGetConnectedState(&flags, 0); // читаем статус соединения
        if(state != oldstate) { // если статус изменился
          if(state) ShowMessage("Сетевой кабель подключён"); // сообщаем в диалоге
                else ShowMessage("Сетевой кабель отключен");
           oldstate = state; // сохраняем статус
      }
}
 

Я так понял ты использовал компонент ApplicationEvents?

[Sasha]

Не знаю как у тебя, но у меня ничего не изменилось, вылазит окно по нескольку раз (зацикливается). Использую С++ Builder XE4

[S0mbre]

Не знаю как у тебя, но у меня ничего не изменилось, вылазит окно по нескольку раз (зацикливается). Использую С++ Builder XE4

Прикрепи проект.

[Sasha]

Вот проект

[S0mbre]

Я проверил - у меня все нормально работает. Вообще правильнее, конечно, затолкать эту функцию в отдельный поток. Попробуй создать поток и вызывать это из Execute(). Типа

Код

void __fastcall TMyThread::Execute()
{
      DWORD flags;
 while(!Terminated) {
                bool state = InternetGetConnectedState(&flags, 0);
         if(state != oldstate) { 
                       if(state) ShowMessage("Сетевой кабель подключён"); 
                  else ShowMessage("Сетевой кабель отключен");
                   oldstate = state;
               }
               Sleep(100);
   }
}
 

Здесь oldstate - член класса TMyThread.