Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проверка подключения к сети [D6, Win2k]

evgeniy55 © (2004-01-21 07:37:00)
Здравствуйте!
Как в 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;

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

Rouse_ (2004-01-22 13:37:00) [1]
http://www.delphimaster.ru/articles/netmon/index.html

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

Verg (2004-01-22 13:13:00) [2]

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

На С сойдет?

evgeniy55 (2004-01-22 05:35:00) [3]
Извините а примерчик моно?

S@shka (2004-01-21 10:46:00) [4]
Послыаешь PING
PIng проходит - значит компутер подключен к сети

Verg (2004-01-21 09:59:00) [5]
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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »