VPF::Соединение с интернетом - Форум программистов

Михалыч

Дата 22.2.2015, 18:08 (ссылка)

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

Загрузка ...

Опытный

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

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

Как на xe5 отследить что соединение есть, а потом разорвать с интернетом.
На делфи7 делал через rasapi. На xe5 rasapi не компилится.
Или подскажите компонент наподобее rasapi .но для xe5

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

Illusion Dolphin

Дата 22.2.2015, 20:45 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата

Как на xe5 отследить что соединение есть

На 100% никак

Цитата

а потом разорвать с интернетом.

Отключить все сетевые адаптеры

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

Poseidon

Дата 23.2.2015, 08:49 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Михалыч, а что такое "соединение с интернетом"? У кого-то это прямой доступ, у кого-то VPN, кто-то еще через Dual-Up заходит, а кто-нибудь сделал мост через сеть к компьютеру, который имеет доступ. Ну и что разрывать? Только как посоветовал
Illusion Dolphin.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Михалыч

Дата 23.2.2015, 09:04 (ссылка)

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

Загрузка ...

Опытный

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

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

Тогда как на делфи отключить сетевые адаптеры?
Нашел только через батник, но хотелось бы через делфи

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

Illusion Dolphin

Дата 23.2.2015, 09:46 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


//Disable a NIC
const
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator : OLEVariant;
  FWMIService   : OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject   : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;
begin;
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService   := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', '', '');
  FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter Where NetEnabled=True','WQL',wbemFlagForwardOnly);
  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  while oEnum.Next(1, FWbemObject, iValue) = 0 do
  begin
    FWbemObject.Disable();
    FWbemObject:=Unassigned;
  end;
end;

отсюда https://theroadtodelphi.wordpress.com/category/networking/ и там ещё есть варианты

--------------------

Михалыч

Дата 23.2.2015, 11:00 (ссылка)

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

Загрузка ...

Опытный

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

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

Спасибо!

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

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