Использование TIdHTTP в Delphi: решение проблемы HTTP/1.1 400 Bad Request

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

Если вы пытаетесь использовать TIdHTTP в Delphi для имитации следующей операции curl:

curl -X POST -F "message={\"user_email\" : \"useremail@domain.com\" , \"user_password\" : \"UserPassword\"}" "https://esm-db.eu/esmws/generate-signed-message/1/query" > token.txt

Но получаете ошибку HTTP/1.1 400 Bad Request, то вот решение проблемы:

1. Удалите символы \ в JSON данных.
2. Удалите строку, где назначается IdHTTP.Request.ContentType, так как она является избыточной в данной ситуации.
3. Воспользуйтесь следующим кодом:

procedure TMainForm.HTTPGetTokenFile;
var
  IdHTTP: TIdHTTP;
  Params: TIdMultipartFormDataStream;
  LHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  try
    Params := TIdMultipartFormDataStream.Create;
    try
      Params.AddFormField('message', '{"user_email" : "useremail@domain.com" , "user_password" : "UserPassword"}');

      IdHTTP := TIdHTTP.Create(nil);
      try
        LHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
        LHandler.SSLOptions.Method := sslvTLSv1;
        IdHTTP.IOHandler := LHandler;
        IdHTTP.Request.Accept := 'application/json, text/plain;q=0.9, text/html;q=0.8';
        Memo1.Text := IdHTTP.Post('https://esm-db.eu/esmws/generate-signed-message/1/query', Params);
      finally
        IdHTTP.Free;
      end;
    finally
      Params.Free;
    end;
  except
    on E: Exception do
      ShowMessage('Error: ' + E.ToString);
  end;
end;

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

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

В контексте данного фрагмента кода решается проблема имитации операции curl с помощью TIdHTTP в Delphi, где описаны шаги по устранению ошибки HTTP/1.1 400 Bad Request.

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

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

:: Главная :: URL ::