Использование разных прокси-серверов для TWebBrowser в Delphi: настройка и оптимизация работы

Delphi , Интернет и Сети , Браузер

Использование разных прокси-серверов для TWebBrowser в Delphi

В данной статье мы рассмотрим, как настроить разные прокси-сервера для нескольких инстансов TWebBrowser в среде разработки Delphi. Это может быть полезно, например, при разработке приложений, требующих работы с прокси-серверами для разных процессов внутри одного приложения.

Проблема использования глобального прокси

Обычно примеры, которые можно найти в интернете, показывают, как настроить TWebBrowser на использование прокси-сервера. Однако эти примеры изменяют прокси-сервер глобально для всех запущенных экземпляров TWebBrowser. Если у вас есть несколько инстансов TWebBrowser, возникает задача настроить разные прокси-сервера для каждого из них.

Решение проблемы

Для решения этой задачи можно использовать функцию SetProxy, которая позволяет установить прокси-сервер для каждого TWebBrowser отдельно. Ниже приведен пример кода на Object Pascal, который реализует эту функцию:

{$DEFINE DELPHI2009_UP}
...
// Код функции SetProxy, который позволяет установить прокси-сервер для WinInet
...

Этот код следует добавить в ваш проект, а также не забудьте добавить компонент WinInet в список используемых компонентов (uses).

Пример использования

Допустим, у вас уже есть два TWebBrowser на форме с именами WebBrowser1 и WebBrowser2. Также у вас есть две кнопки Button1 и Button2, при нажатии на которые будет выполняться переход на определенные страницы через соответствующие TWebBrowser.

Для Button1 и WebBrowser1 настройка прокси-сервера и переход по URL будет выглядеть так:

procedure TForm1.Button1Click(Sender: TObject);
begin
    SetProxy('ip:port'); // Замените 'ip:port' на ваш прокси-сервер
    WebBrowser1.Navigate('www.whatismyipaddress.com');
end;

Аналогично для Button2 и WebBrowser2:

procedure TForm1.Button2Click(Sender: TObject);
begin
    SetProxy('another_ip:port'); // Другой прокси-сервер для WebBrowser2
    WebBrowser2.Navigate('www.whatismyipaddress.com');
end;

Динамическое изменение прокси

Для более гибкого управления прокси-серверами можно использовать событие OnBeforeNavigate2 TWebBrowser. В этом событии можно загружать прокси-сервер из файла, например, proxylist.txt, и устанавливать его перед навигацией:

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool);
var
    proxylist: TStringList;
begin
    proxylist:= TStringList.Create;
    proxylist.LoadFromFile('proxylist.txt');
    SetProxy(proxylist.Strings[0]); // Установка прокси из первой строки файла
    proxylist.Free;
end;

Создайте файл proxylist.txt в папке с вашим приложением и добавьте в него список прокси-серверов, каждый с новой строки.

Заключение

Использование разных прокси-серверов для TWebBrowser в Delphi позволяет реализовать более гибкую и мощную систему управления доступом к интернет-ресурсам. Приведенные примеры кода помогут вам настроить прокси-серверы для каждого TWebBrowser независимо, что может быть полезно в различных сценариях разработки.

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

Статья о настройке разных прокси-серверов для нескольких экземпляров TWebBrowser в Delphi для работы с прокси в разных процессах внутри одного приложения.

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

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

:: Главная :: Браузер ::