VPF::отключене и включение сетевого подключения

killernet

Дата 1.12.2005, 18:59 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Здравствуйте все, читающие эту тему. Вообщем, вопрос по сабжу: как с помощью delphi выключить потом включить сетевое подключение (LAN)?

Snowy

Дата 2.12.2005, 16:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Компоненты NTSet тебе помогут:
http://www.online-admin.com/ntset.html
Или можешь попробовать разобраться сам с INetConnection.

Guest

Дата 20.12.2005, 16:18 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

извиняюсь за свою недалекость в обласи программирования, но все-таки smile

скачал я NTSet, установил, но так и не понял, как выключать и включат сетевое подключение. объясните, пл333 smile

Snowy

Дата 20.12.2005, 18:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Там есть подробный хелп.
Вот пример:

Код


  for i:=0 to NTFirewall1.Connections.Count - 1 do 
  begin
    ShowMessage('Отключаю ' + Items[i].DeviceName);
    Items[i].Disconnect;
  end;

  for i:=0 to NTFirewall1.Connections.Count - 1 do 
  begin
    ShowMessage('Включаю ' + Items[i].DeviceName);
    Items[i].Connect;
  end;

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

Guest

Дата 20.12.2005, 19:22 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

большое спасибо

-=CHE@TER=-

Дата 23.12.2005, 12:05 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Доброго времени суток!
Такой вопрос - с TNTFirewall разобрался, однако получается только выключить соединение. На попытку включить программа реагирует так:

Цитата

Exception EOleSysError in module ex.exe at 0001EE21.
Не поддерживается.

Может кто-нибудь поможет? Заранее большое спасибо!

Конфигурация: Windows XP + SP2

Вот код:

Код

Program Ex;
Uses NTFireWall, Windows;
{$APPTYPE CONSOLE}

Var
    I: Integer;
    NTFirewall1: TNTFirewall;
    S: String;
Begin
  WriteLn('Internet connections:');
  NTFirewall1:=TNTFirewall.Create(Nil);
  for i:=0 to NTFirewall1.Connections.Count - 1 do
    begin
      S:=NTFirewall1.Connections[i].Name;
      CharToOEM(PChar(S), PChar(S));
      WriteLn('■ ', S);
      If S = 'INTERNET' Then
        Begin
          If NTFirewall1.Connections[i].Status = 0 Then
          NTFirewall1.Connections[i].Connect
          Else NTFirewall1.Connections[i].Disconnect;
        End;
    end;
  NTFirewall1.Free;
End.

Teemu

Дата 8.1.2010, 12:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 3.1.2010

Репутация: нет
Всего: нет

Доброго времени суток)
Разбираюсь сейчас с компонентом NTFirewall от NTset, отключить все соединения получается идеально, но при попытке включить любое adsl соединение вылетает вот такая ошибка:
user posted image

при запуске программы не из под Delphi вылетает ошибка "не поддерживается"
кто-нибудь знает что именно не так?

p.s. код который выложил Snowy выдаёт ту же самую ошибку(

Snowy

Дата 13.1.2010, 12:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Всё правильно пишет.
Для PPP интерфейсов нужно использовать RAS
http://forum.vingrad.ru/forum/topic-93037/index.html

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »