Скачать: CL | DM;

Проверка подключения к сети   Найти похожие ветки 

← →
evgeniy55   (2004-01-21 07:37) [0]

Здравствуйте!
Как в Win 2000 узнать подключен сетевой кабель или нет,
Пример этого кода показывает что подключение к сети есть но на самом деле его нет т.к. кабель отключен

procedure TForm1.Button1Click(Sender: TObject);
begin
 if GetSystemMetrics(SM_NETWORK) and $01 = $01 then
   ShowMessage("Computer is attached to a network!")
 else
   ShowMessage("Computer is not attached to a network!");
end;

может будут другие идеи? готов выслушать.
Огромное всем спасибо.

---

← →
Verg ©   (2004-01-21 09:59) [1]

GetIfTable из iphlpapi.dll

Поле dwOperStatus в записи для каждого ин-фейса (сетевой карты), полученой таблицы, отображает оперативный статус:

#define MIB_IF_OPER_STATUS_NON_OPERATIONAL      0
#define MIB_IF_OPER_STATUS_UNREACHABLE          1
#define MIB_IF_OPER_STATUS_DISCONNECTED         2
#define MIB_IF_OPER_STATUS_CONNECTING           3
#define MIB_IF_OPER_STATUS_CONNECTED            4
#define MIB_IF_OPER_STATUS_OPERATIONAL          5

---

← →
S@shka ©   (2004-01-21 10:46) [2]

Послыаешь PING
PIng проходит - значит компутер подключен к сети

---

← →
evgeniy55   (2004-01-22 05:35) [3]

Извините а примерчик моно?

---

← →
Verg ©   (2004-01-22 13:13) [4]

> evgeniy55   (22.01.04 05:35) [3]
> Извините а примерчик моно?


На С сойдет?

---

← →
Rouse_ ©   (2004-01-22 13:37) [5]

http://www.delphimaster.ru/articles/netmon/index.html

В предпоследней главе примерчик...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c