Настройка прокси в TIdHTTP для приложений на Delphi

Delphi , Компоненты и Классы , Списки

При разработке приложений с использованием компонента TIdHTTP в Delphi может возникнуть необходимость настройки прокси-сервера для выполнения сетевых запросов. В данной статье мы рассмотрим, как добавить список прокси-серверов в TListBox и позволить пользователю выбирать прокси для использования в TIdHTTP.ProxyParams.

Проблема пользователя

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

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

Для решения задачи необходимо выполнить следующие шаги:

1. Добавить прокси-сервера в TListBox.
2. Создать обработчик события OnClick для TListBox, который будет устанавливать выбранный прокси-сервер в TIdHTTP.ProxyParams.
3. Обновить обработчик нажатия кнопки BitBtn2, чтобы выполнять запрос с использованием выбранного прокси-сервера.

Шаг 1: Добавление прокси-серверов в TListBox

ListBox1.Items.Add('1.1.x.2.1:80');
ListBox1.Items.Add('1.2.x.x.5:60');
// Добавьте дополнительные прокси-сервера по мере необходимости

Шаг 2: Обработчик события OnClick для TListBox

procedure TForm1.ListBox1Click(Sender: TObject);
var
  I: Integer;
  S: String;
begin
  I := ListBox1.ItemIndex;
  if I <> -1 then
  begin
    S := ListBox1.Items[I];
    IdHTTP1.ProxyParams.ProxyServer := Fetch(S, ':'); // Функция для извлечения части строки до символа ':' (IP)
    IdHTTP1.ProxyParams.ProxyPort := StrToIntDef(SplitString(S, ':')[1], 0); // Преобразуем вторую часть строки в порт
  end
  else
  begin
    IdHTTP1.ProxyParams.ProxyServer := '';
    IdHTTP1.ProxyParams.ProxyPort := 0;
  end;
end;

Обратите внимание, что в приведенном выше коде используется предполагаемая функция Fetch для разделения строки на IP и порт. Вам необходимо будет реализовать эту функцию самостоятельно или использовать стандартные методы работы со строками в Pascal.

Шаг 3: Обновление обработчика BitBtn2Click

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  IdHTTP1.Get(Edit1.Text);
  MessageDlg('Миссия выполнена.', mtInformation, [mbOK], 0);
end;

Обработка ошибок

Если вы столкнулись с ошибкой 407, которая означает, что требуется авторизация прокси, TIdHTTP автоматически обработает это, вызвав события OnSelectProxyAuthorization и OnProxyAuthorization. Если произойдет другая ошибка HTTP или будет достигнут лимит попыток аутентификации, TIdHTTP выдаст исключение, которое вы можете перехватить в своем коде для обработки.

Следуя этим шагам, вы сможете настроить ваше приложение на использование прокси-сервера из списка, выбранного пользователем, при выполнении сетевых запросов с помощью TIdHTTP.

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

Настройка прокси-сервера для компонента TIdHTTP в приложениях на Delphi, позволяющая пользователю выбирать прокси из списка для выполнения сетевых запросов.

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

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

:: Главная :: Списки ::