Устранение ошибки при добавлении правила блокировки IP через API Windows Firewall в Delphi

Delphi , ОС и Железо , Windows

Вопрос, поднятый пользователем, заключается в необходимости добавления правила для блокировки входящих и исходящих соединений с определённых IP-адресов через API Windows Firewall в среде Delphi. При выполнении кода возникает ошибка EVariantInvalidOpError, которая приводит к сбою приложения при запуске.

Описание проблемы

При попытке создания нового правила для Windows Firewall через Delphi, пользователь столкнулся с ошибкой EVariantInvalidOpError. Это произошло в контексте использования компонентов COM для работы с настройками брандмауэра. Ошибка возникает при выполнении следующего кода:

procedure TForm1.FormCreate(Sender: TObject);
var
  CurrentProfiles, fwPolicy2, RulesObject, NewRule, txtAddress: OleVariant;
begin
  // Инициализация объектов и создание нового правила
  // ...
end;

Анализ проблемы

В представленном коде используется позднее связывание с использованием OleVariant для работы с объектами Windows Firewall. Однако, в альтернативном ответе пользователя указано, что тип txtAddress должен быть изменён с OleVariant на string, так как использование свойства text некорректно без структуры данных за ним.

Кроме того, в комментариях упоминается, что для изменения настроек Windows Firewall программе необходимо иметь права администратора. Также рекомендуется использовать отладчик для определения точной строки, вызывающей исключение.

Подтверждённый ответ

Для решения проблемы следует изменить тип переменной txtAddress на string, так как использование OleVariant в данном контексте некорректно. Пример исправленного кода:

procedure TForm1.FormCreate(Sender: TObject);
var
  CurrentProfiles, fwPolicy2, RulesObject, NewRule: OleVariant;
  txtAddress: string;
begin
  // Инициализация объектов и создание нового правила
  fwPolicy2   := CreateOleObject('HNetCfg.FwPolicy2');
  RulesObject := fwPolicy2.Rules;
  // Установка IP-адреса для блокировки
  txtAddress := '192.168.1.33';
  NewRule := CreateOleObject('HNetCfg.FWRule');
  // Настройка нового правила
  NewRule.Name := 'BrutalNT: IP Access Block ' + txtAddress;
  NewRule.Description := 'Block Incoming Connections from IP Address.';
  NewRule.Action := NET_FW_ACTION_BLOCK; // Значение NET_FW_ACTION_BLOCK должно быть 0, если необходимо блокировать
  NewRule.Direction := NET_FW_RULE_DIR_IN;
  NewRule.Enabled := True;
  NewRule.InterfaceTypes := 'All';
  NewRule.RemoteAddresses := txtAddress;
  // Добавление нового правила в список
  RulesObject.Add(NewRule);
end;

Также важно убедиться, что приложение запущено с правами администратора.

Альтернативные подходы

В качестве альтернативного подхода можно рассмотреть использование типовых библиотек, что позволит избежать позднего связывания и, возможно, упростит код. Это также может быть описано в дополнительных материалах, например, в статье "Using the Windows Firewall with Advanced Security scripting API and Delphi".

Заключение

В данном случае проблема заключалась в неправильном использовании объектов OleVariant и необходимости запуска приложения с правами администратора. Исправление типа переменной txtAddress на string и корректная настройка нового правила помогут устранить возникшую ошибку.

Создано по материалам из источника по ссылке.

Пользователь столкнулся с ошибкой при добавлении правила блокировки IP через API Windows Firewall в среде Delphi, которая возникает из-за неправильного использования объектов OleVariant и необходимости запуска приложения с правами администратора.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::