Работа с JSON и POST-запросами в Delphi 2005 для API без поддержки GET

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

Вопрос пользователя заключается в необходимости выполнения POST-запроса с передачей JSON-данных в REST API, используя Delphi 2005. Поскольку API, к которому нужно обратиться, не поддерживает GET-запросы и URL-кодирование параметров, а также учитывая, что пользователь ранее работал с SOAP, важно предоставить простой и понятный пример кода.

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

Для выполнения POST-запроса с JSON-данными в Delphi 2005 можно использовать компонент TIdHTTP из библиотеки Indy. Ниже приведен пример кода, который демонстрирует, как можно отправить JSON-строку на указанный URL.

procedure TForm1.Button1Click(Sender: TObject);
var
  jsonToSend: TStringList;
  http: TIdHTTP;
begin
  http := TIdHTTP.Create(nil);
  try
    http.HandleRedirects := True;
    http.ReadTimeout := 5000;
    jsonToSend := TStringList.Create;
    try
      // Здесь должна быть ваша JSON-строка с данными
      jsonToSend.Add('{ "key": "value" }');
      // Выполнение POST-запроса с JSON-данными
      http.Post('http://your.restapi.url', jsonToSend);
    finally
      // Очистка памяти
      jsonToSend.Destroy;
    end;
  finally
    // Освобождение компонента
    http.Destroy;
  end;
end;

В примере кода создается экземпляр TIdHTTP, который настраивается для обработки перенаправлений и установки времени ожидания. Затем создается TStringList, который используется для хранения JSON-строки. Важно отметить, что JSON-строка должна быть подготовлена заранее, возможно, с использованием специальных библиотек для работы с JSON в Delphi.

Альтернативный ответ

Также существует альтернативный способ с использованием компонентов из Open Source фреймворка mORMot. В этом случае для создания JSON-контента используется пользовательский тип variant, который затем преобразуется в JSON-текст при отправке на сервер.

uses SynCrtSock, SynCommons;
var t: variant;
begin
  TDocVariant.New(t);
  // Заполнение структуры данных, которая будет преобразована в JSON
  t.name := 'john';
  t.year := 1982;
  // Выполнение POST-запроса с использованием TWinHTTP
  TWinHTTP.Post('http://servername/resourcename', t, 'Content-Type: application/json');
end;

Для работы с JSON в этом примере используется кастомный тип TDocVariant, который позволяет строить содержимое JSON и затем отправлять его на сервер.

Важные замечания

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

Используя эти примеры, пользователи, новые в работе с REST-сервисами и привыкшие к SOAP, смогут легко выполнить POST-запросы с JSON-данными в Delphi 2005.

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

Пользователь нуждается в примере кода для выполнения POST-запроса с JSON-данными в Delphi 2005 для работы с REST API, которое не поддерживает GET-запросы.

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

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

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