Решение проблемы мутуальной аутентификации с библиотекой WinINet в Delphi

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

Решение проблемы взаимной аутентификации с библиотекой WinINet в Delphi

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

Проблема

При использовании библиотеки WinINet для подключения к веб-сайту в Internet Explorer (на Windows 10) пользователю предлагается выбрать сертификат для использования. Однако при использовании Microsoft Edge требуется явно указать сертификат, который будет использоваться для аутентификации. Вопрос заключается в том, как задать сертификат вручную для корректной работы взаимной аутентификации.

Пример кода

В приведенном примере кода на Object Pascal (Delphi) используется функция InternetOpenUrl для открытия URL-адреса, но необходимо также настроить процесс взаимной аутентификации, выбрав соответствующий сертификат.

Решение

Для решения проблемы взаимной аутентификации можно использовать функцию InternetErrorDlg, которая позволяет отобразить диалоговое окно для выбора сертификата. Пример использования этой функции в коде на Delphi:

function WebSiteConnect(const UserAgent: string; const Server: string; const Resource: string): string;
var
  hInet: HINTERNET;
  hConn: HINTERNET;
  hReq:  HINTERNET;
  dwLastError: DWORD;
  nilptr: Pointer;
  dwRetVal: DWORD;
  bLoop: boolean;
  port: Integer;
begin
  // Инициализация соединения
  // ...

  bLoop := true;
  while bLoop do
  begin
    if HttpSendRequest(hReq, nil, 0, nil, 0) then
      dwLastError := ERROR_SUCCESS
    else
      dwLastError:= GetLastError();

    // Проверка на необходимость аутентификации с помощью сертификата
    if dwLastError = ERROR_INTERNET_CLIENT_AUTH_CERT_NEEDED then
    begin
      dwRetVal:= InternetErrorDlg(application.Handle, hReq, dwLastError,
        FLAGS_ERROR_UI_FILTER_FOR_ERRORS or
        FLAGS_ERROR_UI_FLAGS_GENERATE_DATA or
        FLAGS_ERROR_UI_FLAGS_CHANGE_OPTIONS,
        nilptr );

      // Обработка результата диалога
      if dwRetVal = ERROR_INTERNET_FORCE_RETRY then
        continue
      else  // Пользователь нажал отменить
      begin
        // Закрытие соединений
        InternetCloseHandle(hReq);
        InternetCloseHandle(hConn);
        InternetCloseHandle(hInet);
        exit;
      end;
    end
    else
      bLoop := false;
  end;

  // Обработка результата запроса
  Result := ...;
end;

Важные моменты

• При использовании InternetErrorDlg важно правильно обработать возможные ошибки, связанные с подключением, и корректно закрыть соединения в случае возникновения ошибок, не требующих выбора сертификата.
• В коде необходимо обновить параметры подключения (например, порт, если используется нестандартный), а также корректно обработать возвращаемую строку ответа сервера (в примере обозначена как Result).

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

В качестве альтернативы можно использовать WinHTTP для установки сертификата, но это требует более глубокого понимания работы с сертификатами и их хранилищами, а также может потребовать изменения в коде, если он уже реализован с использованием WinINet.

Заключение

Использование функции InternetErrorDlg позволяет решить проблему взаимной аутентификации, предоставив пользователю возможность выбрать необходимый сертификат. Это решение может быть интегрировано в существующие Delphi-проекты, использующие WinINet для работы с веб-сервисами.

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

Проблема взаимной аутентификации при использовании библиотеки WinINet в Delphi и способы её решения.

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

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

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