Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > отключене и включение сетевого подключения

Автор: killernet 1.12.2005, 18:59

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

Автор: Snowy 2.12.2005, 16:20

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

Автор: Guest 20.12.2005, 16:18

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

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

Автор: Snowy 20.12.2005, 18:13

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

Код


  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

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

Автор: -=CHE@TER=- 23.12.2005, 12:05

Доброго времени суток!
Такой вопрос - с 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

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

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

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

Автор: Snowy 13.1.2010, 12:44

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