Обработка SOAP-запросов в Delphi XE7 с использованием THTTPRIO: решение проблемы с заголовком авторизации

Delphi , Программа и Интерфейс , Заголовок формы

В данной статье мы рассмотрим проблему, с которой сталкиваются разработчики, использующие компонент THTTPRIO в Delphi XE7 для выполнения SOAP-запросов к удаленным серверам. Проблема заключается в невозможности добавления заголовка авторизации в HTTP-запрос. Мы предложим решение этой проблемы и рассмотрим альтернативный подход для тех, кто ищет дополнительные варианты реализации.

Проблема с добавлением заголовка авторизации

При работе с THTTPRIO в Delphi XE7 для получения данных от SOAP-сервера пользователи могут столкнуться с трудностями при добавлении заголовка авторизации в HTTP-запрос. В частности, пользователь не может добавить строку Authorization: Basic ... в заголовки запроса, что является стандартным способом аутентификации на уровне HTTP.

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

Для решения данной проблемы следует использовать свойства Username и Password объекта THTTPRIO.HTTPWebNode. При создании запроса эти свойства автоматически комбинируются и кодируются в формате Base64 для добавления в заголовок Authorization. Это стандартный способ включения информации об аутентификации в HTTP-запрос.

Пример кода

var
  HTTPRIO: THTTPRIO;
begin
  HTTPRIO := THTTPRIO.Create(nil);
  try
    // Установка свойств для аутентификации
    HTTPRIO.Username := 'Имя_пользователя';
    HTTPRIO.Password := 'Пароль';
    // Настройка запроса
    HTTPRIO.Request.ContentType := 'text/xml;charset=UTF-8';
    HTTPRIO.Request.ServiceName := 'SOAPAction';
    HTTPRIO.Request.ServiceURL := 'POST /ClientServices/ClientServPort.svc HTTP/1.1';
    HTTPRIO.Request.Actions[0].ActionName := 'getUserList';
    HTTPRIO.Request.Actions[0].ActionSOAPName := 'getUserListRequest';
    HTTPRIO.Request.Actions[0].ActionSOAPNode.AddAttribute('Role', 'AAA');
    // Запрос для создания XML
    HTTPRIO.Request.Actions[0].ActionSOAPNode.SoapNode.OwnerDocument.SaveToStream(HTTPRIO.Request.Actions[0].ActionSOAPXML);
    // Запуск асинхронного запроса
    if HTTPRIO.RequestService then
      HTTPRIO.Execute('http://eclienttest.abc.com/ClientServices/ClientServPort.svc');
  finally
    HTTPRIO.Free;
  end;

Альтернативное решение

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

var
  CustomHeader: TStringList;
begin
  CustomHeader := TStringList.Create;
  try
    CustomHeader.Add('Authorization: Basic YjNm...Uo0Z1Y0cA==');
    // Дополнительные настройки запроса...
    HTTPRIO.Request.CustomHeaders := CustomHeader;
    // Запуск запроса...
  finally
    CustomHeader.Free;
  end;

Заключение

В данной статье мы рассмотрели, как использовать THTTPRIO для работы с SOAP-запросами в Delphi XE7, сфокусировавшись на решении проблемы с добавлением заголовка авторизации. Предложенные решения позволяют разработчикам успешно интегрировать свои приложения с SOAP-сервисами, требующими аутентификации.

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

Статья посвящена решению проблемы добавления заголовка авторизации для HTTP-запросов в компоненте THTTPRIO в Delphi XE7 при работе с SOAP-серверами.

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

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

:: Главная :: Заголовок формы ::