Настройка прокси-сервера для Internet Explorer в Delphi: решение проблемы активных сетевых соединений

Delphi , Интернет и Сети , Компоненты и Интернет

Вопрос, который рассматривается в данной статье, касается настройки прокси-сервера для Internet Explorer (IE) с использованием кода на языке Object Pascal в среде разработки Delphi. Проблема заключается в том, что при попытке установить прокси-сервер через реестр операционной системы изменения не затрагивают сетевые соединения, а применяются только для локальной сети (LAN).

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

Пользователь столкнулся с проблемой настройки прокси-сервера для IE при активном сетевом соединении, например, через VPN или модем. Он использовал следующий код на Object Pascal для изменения настроек прокси в реестре:

procedure SetProxy(const Server: String);
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings', False);
  Reg.WriteString('ProxyServer', Server);
  Reg.WriteBool('ProxyEnable', True);
  Reg.CloseKey;
  Reg.Free;
  InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0);
end;

Однако изменения применялись только для настроек LAN в опциях интернета IE.

Альтернативное решение и подтвержденный ответ

В качестве альтернативного решения предлагается использовать функцию InternetSetOption для обновления конфигурации прокси для конкретного сетевого соединения. Для этого необходимо использовать структуры INTERNET_PER_CONN_OPTION и INTERNET_PER_CONN_OPTION_LIST. Пример кода, который демонстрирует, как обновить прокси для определенного соединения:

program UpdateProxyApp;

{$APPTYPE CONSOLE}

uses
  WinInet,
  Windows,
  SysUtils;

// Типы и константы для работы с сетевыми соединениями
// ...

function SetConnectionProxy(const conn_name, proxy_addr : AnsiString) : Boolean;
var
  list     : INTERNET_PER_CONN_OPTION_LIST;
  dwBufSize: DWORD;
  Options  : array[0..2] of INTERNET_PER_CONN_OPTION;
begin
  // Инициализация структуры INTERNET_PER_CONN_OPTION_LIST
  // ...

  // Настройка опций для сетевого соединения
  // ...

  // Применение настроек
  Result := InternetSetOption(nil, INTERNET_OPTION_PER_CONNECTION_OPTION, @list, dwBufSize);
  InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);
  InternetSetOption(nil, INTERNET_OPTION_REFRESH, nil, 0);
end;

// Основной блок программы
begin
  try
    Writeln(Format('Settings updated %s', [BoolToStr(SetConnectionProxy('Your connection Name', '192.168.15.15:80'), True)]));
  except
    on E: Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
  Readln;
end.

Получение списка имен сетевых соединений

Для получения списка имен сетевых соединений можно использовать тот же механизм, но сначала необходимо узнать формат и расположение данных в реестре по пути HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections. Это недокументированный формат, и для его изучения потребуется дополнительное исследование.

Заключение

В данной статье был рассмотрен способ настройки прокси-сервера для Internet Explorer в Delphi, который позволяет обходить проблему глобальных настроек прокси и применять их для конкретного сетевого соединения. Предоставленный пример кода демонстрирует использование функции InternetSetOption для обновления прокси-сервера для заданного сетевого соединения.

Пользователям, которым необходимо получить список имен сетевых соединений, рекомендуется обратиться к сообществу разработчиков, например, на сайте Stack Overflow, где они могут найти дополнительную информацию и помощь.

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

Вопрос связан с настройкой прокси-сервера для Internet Explorer через среду разработки Delphi, с использованием функции InternetSetOption для обновления прокси для конкретного сетевого соединения, включая VPN и модем, и представлен пример кода для решени

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

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

:: Главная :: Компоненты и Интернет ::