Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.04;
Скачать: 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 вся ветка

Текущий архив: 2004.04.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.041 c
3-1078726173
Мал0й
2004-03-08 09:09
2004.04.04
Установка BDE


1-1079078406
RustiK
2004-03-12 11:00
2004.04.04
Ошибка при компиляции....


6-1075054663
MadGhost
2004-01-25 21:17
2004.04.04
что значат флаги в TCP? ?????


14-1078400558
NailMan
2004-03-04 14:42
2004.04.04
Защищенная флешка-ключ


7-1074602584
abs2
2004-01-20 15:43
2004.04.04
средства Windows