Использование API Google URL Shortener в Delphi: решение проблемы с ошибкой 400 Bad Request

Delphi , Синтаксис , API реализация

В данной статье мы рассмотрим проблему, с которой сталкиваются разработчики, использующие API Google URL Shortener в среде разработки Delphi. Проблема заключается в получении ошибки 400 Bad Request с указанием причины parseError при попытке доступа к API через HTTP-запрос.

Описание проблемы

Разработчики, работающие с API Google URL Shortener в проектах на Delphi, иногда сталкиваются с ошибкой 400 Bad Request. Эта проблема возникает из-за неправильного форматирования запроса, который отправляется на сервер. В частности, ошибка может быть связана с неправильным кодированием данных или использованием неверного формата для JSON-запроса.

Пример кода, вызывающего ошибку

Вот пример кода, который приводит к ошибке 400 Bad Request:

procedure TFrmMain.Button1Click(Sender: TObject);
var
  html, actionurl: String;
  makeshort: TStringList;
begin
  try
    makeshort := TStringList.Create;
    actionurl := 'https://www.googleapis.com/urlshortener/v1/url';
    makeshort.Add('{"longUrl": "http://slashdot.org/stories"}');
    IdHTTP1.Request.ContentType := 'application/json';
    // Отключен комментарий с ContentEncoding, так как он приводит к ошибке 415
    html := IdHTTP1.Post(actionurl, makeshort);
    Memo1.Lines.Add(IdHTTP1.Response.ResponseText);
  except
    on e: EIdHTTPProtocolException do
    begin
      Memo1.Lines.Add(IdHTTP1.Response.ResponseText);
      Memo1.Lines.Add(e.ErrorMessage);
    end;
  end;
  Memo1.Lines.Add(html);
  makeshort.Free;
end;

Подтвержденный ответ

Проблема, с которой сталкиваются разработчики, заключается в использовании перегруженного метода TStrings для TIdHTTP.Post(). Это приводит к отправке запроса в формате application/x-www-form-urlencoded, что не соответствует JSON-форматированному запросу.

Чтобы решить эту проблему, необходимо использовать перегруженный метод TStream для TIdHTTP.Post(). Это позволит корректно отправить JSON-данные в формате application/json.

Пример исправленного кода

procedure TFrmMain.Button1Click(Sender: TObject);
var
  html, actionurl: String;
  makeshort: TMemoryStream;
begin
  try
    actionurl := 'https://www.googleapis.com/urlshortener/v1/url';
    makeshort := TMemoryStream.Create;
    try
      WriteStringToStream(makeshort, '{"longUrl": "http://slashdot.org/stories"}', IndyUTF8Encoding);
      makeshort.Position := 0;
      IdHTTP1.Request.ContentType := 'application/json';
      IdHTTP1.Request.Charset := 'utf-8';
      html := IdHTTP1.Post(actionurl, makeshort);
    finally
      makeshort.Free;
    end;
    Memo1.Lines.Add(IdHTTP1.Response.ResponseText);
    // Здесь может быть код для обработки полученного JSON-ответа
  except
    on e: Exception do
    begin
      Memo1.Lines.Add(e.Message);
      if e is EIdHTTPProtocolException then
        Memo1.Lines.Add(EIdHTTPProtocolException(e).ErrorMessage);
    end;
  end;
end;

Альтернативные подходы

Дополнительно, стоит рассмотреть использование OAuth 2.0 токенов или API ключа для аутентификации вашего приложения, если это требуется. Это не решает проблему с форматом запроса, но является важным аспектом работы с API.

Заключение

Использование правильного метода для отправки JSON-запроса в Indy позволяет избежать ошибки 400 Bad Request. Разработчикам, работающим с API Google URL Shortener в Delphi, стоит помнить об этом нюансе при работе с JSON-данными.

Эта статья была написана, чтобы помочь разработчикам, сталкивающимся с проблемой 400 Bad Request при использовании API Google URL Shortener в Delphi. Мы рассмотрели причину возникновения проблемы, предоставили пример кода, вызывающего ошибку, и дали подробное описание решения, а также альтернативные подходы для аутентификации запросов.

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

Разработчики в Delphi сталкиваются с ошибкой 400 Bad Request при использовании API Google URL Shortener из-за неправильного форматирования запроса, особенно при работе с JSON.

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

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

:: Главная :: API реализация ::