Работа с API Deutsche Börse и CME: как добавить API-ключ в HTTP-заголовок на Delphi

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

Введение

В современном мире финансовых технологий доступ к данным бирж, таких как Deutsche Börse и CME, является критически важным для разработчиков финансовых приложений. В этой статье мы рассмотрим, как правильно работать с их API, в частности, как добавить API-ключ в HTTP-заголовок при запросах с использованием Delphi.

Проблема с API-ключом

Как отметила пользователь Nicole, основная сложность заключается в том, что API Deutsche Börse требует передачу API-ключа не в URL, а в HTTP-заголовке запроса. Это стандартная практика для многих современных API, но может вызвать затруднения у тех, кто впервые сталкивается с таким подходом.

Решение: передача API-ключа в HTTP-заголовке

Для работы с API Deutsche Börse и CME необходимо добавить специальный HTTP-заголовок с вашим API-ключом. Вот как это можно сделать на Delphi:

function TAktienkurse_holen.GetUrlJsonResponse(Url: string): string;
var
  HttpClient: TFPHTTPClient;
  Json_Response: string;
  Json_Obj: TJSONObject;
begin
  HttpClient := TFPHTTPClient.Create(nil);
  try
    // Добавляем API-ключ в HTTP-заголовок
    HttpClient.AddHeader('X-DBP-APIKEY', 'ваш_ключ_здесь');

    // Отправляем запрос и получаем ответ
    Json_Response := HttpClient.Get(Url);

    // Парсим JSON-ответ
    Json_Obj := TJSONObject(GetJSON(Json_Response));
    try
      Result := Json_Obj.FormatJSON;
    finally
      Json_Obj.Free;
    end;
  finally
    HttpClient.Free;
  end;
end;

Альтернативные решения

Если по каким-то причинам стандартный подход не работает, можно рассмотреть следующие альтернативы:

1. Использование TIdHTTP из Indy:

var
  IdHTTP: TIdHTTP;
begin
  IdHTTP := TIdHTTP.Create(nil);
  try
    IdHTTP.Request.CustomHeaders.Add('X-DBP-APIKEY: ваш_ключ_здесь');
    Result := IdHTTP.Get(Url);
  finally
    IdHTTP.Free;
  end;
end;

1. Использование REST-клиента:

var
  RESTClient: TRESTClient;
  RESTRequest: TRESTRequest;
begin
  RESTClient := TRESTClient.Create(Url);
  try
    RESTRequest := TRESTRequest.Create(nil);
    try
      RESTRequest.Client := RESTClient;
      RESTRequest.AddParameter('X-DBP-APIKEY', 'ваш_ключ_здесь', pkHTTPHEADER);
      RESTRequest.Execute;
      Result := RESTRequest.Response.JSONText;
    finally
      RESTRequest.Free;
    end;
  finally
    RESTClient.Free;
  end;
end;

Обработка ошибок

Важно правильно обрабатывать возможные ошибки при работе с API:

try
  Json_Response := HttpClient.Get(Url);
  Json_Obj := TJSONObject(GetJSON(Json_Response));
  try
    Result := Json_Obj.FormatJSON;
  except
    on E: Exception do
      Result := 'Ошибка парсинга JSON: ' + E.Message;
  end;
except
  on E: Exception do
    Result := 'Ошибка HTTP-запроса: ' + E.Message;
end;

Заключение

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

Для более сложных сценариев работы с API рекомендуется изучить официальную документацию Deutsche Börse и CME, а также рассмотреть использование специализированных библиотек для работы с HTTP и JSON в Delphi.

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

Руководство по добавлению API-ключа в HTTP-заголовок при работе с API Deutsche Börse и CME на Delphi.

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

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

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