Исправление кода для отправки POST-запроса с использованием Indy в Delphi

Delphi , Интернет и Сети , Интернет

На основании предоставленного контекста, ниже представлена статья на тему "Исправление кода для отправки POST-запроса с использованием Indy в Delphi":

Исправление кода для отправки POST-запроса с использованием Indy в Delphi

При работе с web-сервисами часто возникают ситуации, когда отправка запросов не приводит к ожидаемому результату. В данном руководстве мы рассмотрим типичную проблему, связанную с ошибкой HTTP/1.1 400 Bad Request при использовании компонентов Indy в Delphi и предложим решение.

Проблема

Разработчик столкнулся с проблемой, когда при попытке выполнить POST-запрос на сервер https://uat.mreceipts.com возникает ошибка HTTP/1.1 400 Bad Request, несмотря на то что токен доступа (Bearer) указан верно.

Анализ кода

Следуя инструкциям разработчика, мы видим исходный код:

Var
dpHttp   : TIdHTTP;
dpSSL    : TIdSSLIOHandlerSocketOpenSSL;
BaseURL  : String;
Body     : String;
Bearer   : String;
PostData : TStringStream;
sResponse: TStringStream;
begin
  // ... инициализация переменных и создание потоков ...
  dpHttp.Request.CustomHeaders.AddValue('Authorization', 'Bearer ' + Bearer);
  // ... настройка SSL-обработчика ...
  try
    dpHttp.Post(BaseURL,PostData, sResponse);
  except
    // ... обработчик исключений ...
  end;
  // ... освобождение ресурсов ...
end;

Предложения по исправлению

1. Указание хоста: Необходимо правильно указать хост в запросе, удалив присваивание dpHttp.Request.Host := BaseURL;, так как это свойство должно содержать только доменное имя без URL.

2. Отказ от использования sResponse: Если ответ не планируется обрабатывать, можно передать nil вместо sResponse в метод Post.

3. Авторизация: При ручной отправке заголовка авторизации необходимо установить свойство dpHttp.Request.BasicAuthentication := False;, чтобы Indy не пытался автоматически добавить свой заголовок авторизации.

4. Настройка SSL: В коде присутствуют оба способа настройки SSL-версий, что избыточно. Достаточно указать только свойство dpSSL.SSLOptions.SSLVersions.

5. Форматирование JSON: Хотя спецификация JSON допускает пробельные символы, для избежания возможных проблем с парсингом рекомендуется использовать компактный формат без лишних пробелов.

Исправленный код

Исходя из предложенных исправлений, код должен выглядеть следующим образом:

Var
dpHttp   : TIdHTTP;
dpSSL    : TIdSSLIOHandlerSocketOpenSSL;
BaseURL  : String;
Body     : String;
Bearer   : String;
PostData : TStringStream;
begin
  BaseURL:='https://uat.mreceipts.com/api/v2.1/authorization/redeem/';
  Body:='{"Type" : "webecr", "Code" : "23916589"}'; // Компактный JSON без пробелов
  Bearer:=Edaccess.Text;
  dpHttp:=TIdHTTP.Create;
  dpHttp.Request.Accept     :='application/json';
  dpHttp.Request.ContentType:='application/json';
  dpHttp.Request.Charset    := 'UTF-8';
  dpHttp.Request.BasicAuthentication := False; // Отказ от автоматической авторизации
  dpHttp.Request.CustomHeaders.AddValue('Authorization', 'Bearer ' + Bearer);

  dpSSL:=TIdSSLIOHandlerSocketOpenSSL.Create;
  dpSSL.SSLOptions.SSLVersions:=[sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2]; // Настройка SSL-версий
  dpHttp.IOHandler:=dpSSL;
  try
    dpHttp.Post(BaseURL,PostData, nil); // Отправка запроса без сохранения ответа
  except
    // ... обработчик исключений ...
  end;
  dpHttp.Free;
  PostData.Free;
end;

Заключение

Приведенные исправления должны помочь устранить ошибку HTTP/1.1 400 Bad Request и обеспечить корректную отправку POST-запроса с использованием Indy в Delphi. Важно тщательно проверять каждую деталь запроса, включая заголовки, форматирование JSON и настройки SSL.

Это руководство предназначено для разработчиков, работающих с web-сервисами в среде Delphi, и может служить полезным ресурсом при решении типичных проблем, связанных с отправкой HTTP-запросов.

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

Статья предоставляет руководство по исправлению ошибки 400 Bad Request при отправке POST-запроса с использованием компонентов Indy в Delphi.

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

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

:: Главная :: Интернет ::