Добавление дополнительного HTTP-заголовка в запрос с использованием IHTTPNegotiate в Delphi

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

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

Для начала давайте посмотрим, как можно добавить интерфейс IHTTPNegotiate к нашей реализации протокола:

TNameSpaceHandler = class(TComObject, IInternetProtocol, IHttpNegotiate)
...
function BeginningTransaction(szURL, szHeaders: LPCWSTR; dwReserved: DWORD;
  out szAdditionalHeaders: LPWSTR): HResult; stdcall;
function OnResponse(dwResponseCode: DWORD; szResponseHeaders, szRequestHeaders: LPCWSTR;
  out szAdditionalRequestHeaders: LPWSTR): HResult; stdcall;
...
end;

Однако, просто добавив интерфейс, функций BeginningTransaction и OnResponse не будут вызываться. Для того чтобы это произошло, необходимо правильно реализовать интерфейс IInternetProtocolSink и IInternetBindInfo, а также правильно использовать их в своем коде.

Давайте рассмотрим, как это можно сделать. Для начала нам нужно создать объект, реализующий интерфейс IInternetProtocolSink и IInternetBindInfo, и передать его в качестве параметра при вызове функцииBind:

procedure TNameSpaceHandler.Bind(ppProtSink: IInternetProtocolSink; ppOIHE: IInternetHostInfo; dwBindFlags: DWORD; szExtraInfo: LPCWSTR): HResult;
begin
  Result := S_OK;
  FProtSink := ppProtSink;
  FProtSink.QueryInterface(IID_IServiceProvider, FServiceProvider);
end;

Далее, нам нужно реализовать интерфейс IHttpNegotiate на нашем объекте и добавить дополнительный заголовок в функции BeginningTransaction:

function TNameSpaceHandler.BeginingTransaction(szURL, szHeaders: LPCWSTR; dwReserved: DWORD;
  out szAdditionalHeaders: LPWSTR): HResult; stdcall;
begin
  Result := S_OK;
  // Добавляем дополнительный заголовок
  szAdditionalHeaders := 'X-Custom-Header: my-value';
end;

Теперь, когда функция BeginningTransaction вызывается, дополнительный заголовок будет добавлен к запросу.

Наконец, давайте посмотрим, как можно использовать нашу реализацию протокола в коде:

var
  pHandler: IInternetProtocol;
  pURL: IUri;
begin
  // Создаем объект IUri
  pURL := CoCreateInstance(CLSID_Uri, nil, CLSCTX_INPROC_SERVER, IID_IUri, nil);

  // Создаем объект нашего протокола
  pHandler := CoCreateInstance(TNameSpaceHandler, nil, CLSCTX_INPROC_SERVER, IID_IInternetProtocol, nil);

  // Вызываем функцию Navigate на объекте IUri
  pURL.Navigate(nil, nil, nil, pHandler, nil, nil, nil, nil, nil, nil);
end;

В этом примере мы создаем объект IUri и объект нашего протокола, а затем вызываем функцию Navigate на объекте IUri, передавая наш протокол в качестве параметра. При этом дополнительный заголовок будет добавлен к запросу с помощью нашей реализации протокола.

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

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

'Добавление дополнительного HTTP-заголовка в запрос с использованием IHTTPNegotiate в Delphi'.

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

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

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