| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Подключение к сети [D7, XP]

Lavrenty ©   (2007-08-12 15:47:00) 

Здравствуйте все!  Нашёл функцию для проверки подключения к сети, но почему-то она не срабатывает. Подскажите пожалуйста, в чём дело.

if not GetSystemMetrics(SM_NETWORK) AND $01 = $01then
begin
   Application.MessageBox('Computer is not attached to network !', 'Error',    MB_OK+MB_ICONASTERISK);
   exit;
end;


---

WASM   (2007-08-12 18:18:00) [1]

> Lavrenty ©   (12.08.07 15:47)  


Воспользуйтесь лучше функцией InternetGetConnectedState

uses
 WinInet;

---

Lacmus   (2007-08-12 18:11:00) [2]

>Lavrenty ©


function IsNetworkAlive(var aFlags: DWord): Bool; stdcall; external 'Sensapi.dll';

procedure TForm33.Button3Click(Sender: TObject);
var
 dwFlags: DWord;
begin
 if IsNetworkAlive(dwFlags) then
   ShowMessage('OK')
 else
   ShowMessage('Fail')
end;


---

Anatoly Podgoretsky   (2007-08-12 17:06:00) [3]

> Lavrenty  (12.08.2007 16:34:04)  [4]

Хочешь побить лавры железного орла?

---

Lavrenty   (2007-08-12 16:34:00) [4]

> Что возвращает функция?

Ничего. Никакой реакции. Просто обходится (F8) и всё

---

Anatoly Podgoretsky   (2007-08-12 16:31:00) [5]

> Lavrenty  (12.08.2007 16:06:02)  [2]

Что возвращает функция?

---

Lavrenty   (2007-08-12 16:06:00) [6]

> not (GetSystemMetrics(SM_NETWORK) AND $01 = $01)

проверил. Не помогает.

---

DrPass   (2007-08-12 16:03:00) [7]

not (GetSystemMetrics(SM_NETWORK) AND $01 = $01)

---

Наверх