THttpRio https (Wininet) с сообщением об ошибке ERROR_INTERNET_CLIENT_AUTH_CERT_NEEDED

Question

Я использую Delphi XE7, выигрываю 8.1 на ПК без установленного сертификата.

У меня есть следующий веб-сервис https://wsp.hom.orizonbrasil.com.br:6214/tiss/v30200/tissSolicitacaoProcedimento

Когда я вызова веб-службы, я получаю это исключение в Delphi XE7: «Сертификат необходим для выполнения проверки подлинности клиента - URL: https://wsp.hom.orizonbrasil.com.br:6214/tiss/v30200/tissSolicitacaoProcedimento - SOAPAction:»»

соединение не блокируется порт, как я попытался с SoapUI (Java) и получил ответ от этого веб-сервиса.

Я пытаюсь использовать Altova XML Spy и я получаю сообщение об ошибке, подобное DELPHI XE7.

Почему SoapUI работает, в то время как XE7 и XML SPY имеют проблему с сертификатом?

Answer 1

Скорее всего, сертификат находится в хранилище сертификатов ROOT (доверенных корневых сертификатов) для локальной системы.

THTTPRIO не загружает данные по умолчанию в Delphi (следовательно, он не может найти правильный вариант), вместо этого он выглядит в хранилище MY для текущего пользователя. Чтобы заставить компонент использовать хранилище сертификатов ROOT, вы должны предоставить OnBeforePost, чтобы он мог открыть правильный магазин, где действительно присутствует сертификат.

procedure Form1.OnBeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer); 

const 
    CERT_STORE_PROV_SYSTEM_A = LPCSTR(9); 
    CERT_STORE_PROV_SYSTEM_W = LPCSTR(10); 
    {$IFDEF UNICODE} 
    CERT_STORE_PROV_SYSTEM  = CERT_STORE_PROV_SYSTEM_W; 
    {$ELSE} 
    CERT_STORE_PROV_SYSTEM  = CERT_STORE_PROV_SYSTEM_A; 
    {$ENDIF} 


    CERT_STORE_NO_CRYPT_RELEASE_FLAG   = $00000001; 
    CERT_STORE_SET_LOCALIZED_NAME_FLAG   = $00000002; 
    CERT_STORE_DEFER_CLOSE_UNTIL_LAST_FREE_FLAG = $00000004; 
    CERT_STORE_DELETE_FLAG      = $00000010; 
    CERT_STORE_MANIFOLD_FLAG     = $00000100; 
    CERT_STORE_ENUM_ARCHIVED_FLAG    = $00000200; 
    CERT_STORE_UPDATE_KEYID_FLAG    = $00000400; 
    CERT_STORE_READONLY_FLAG     = $00008000; 
    CERT_STORE_OPEN_EXISTING_FLAG    = $00004000; 
    CERT_STORE_CREATE_NEW_FLAG     = $00002000; 
    CERT_STORE_MAXIMUM_ALLOWED_FLAG    = $00001000; 

    CERT_SYSTEM_STORE_CURRENT_USER_ID = 1; 
    CERT_SYSTEM_STORE_LOCAL_MACHINE_ID = 2; 
    CERT_SYSTEM_STORE_LOCATION_SHIFT = 16; 

    CERT_SYSTEM_STORE_CURRENT_SERVICE_ID = 4; 
    CERT_SYSTEM_STORE_SERVICES_ID   = 5; 
    CERT_SYSTEM_STORE_USERS_ID   = 6; 

    CERT_SYSTEM_STORE_CURRENT_USER = CERT_SYSTEM_STORE_CURRENT_USER_ID shl CERT_SYSTEM_STORE_LOCATION_SHIFT; 
    CERT_SYSTEM_STORE_LOCAL_MACHINE = CERT_SYSTEM_STORE_LOCAL_MACHINE_ID shl CERT_SYSTEM_STORE_LOCATION_SHIFT; 
    CERT_SYSTEM_STORE_CURRENT_SERVICE = CERT_SYSTEM_STORE_CURRENT_SERVICE_ID shl CERT_SYSTEM_STORE_LOCATION_SHIFT; 
    CERT_SYSTEM_STORE_SERVICES  = CERT_SYSTEM_STORE_SERVICES_ID shl CERT_SYSTEM_STORE_LOCATION_SHIFT; 
    CERT_SYSTEM_STORE_USERS   = CERT_SYSTEM_STORE_USERS_ID shl CERT_SYSTEM_STORE_LOCATION_SHIFT; 

    {$IFDEF UNICODE} 
    CERT_STORE:PWChar = 'Root'; 
    {$ELSE} 
    CERT_STORE:PAnsiChar = 'Root'; 
    {$ENDIF} 

var 
    HTTPRStore: IClientCertInfo; 
    hStore: pointer; 
    Flags: cardinal; 

begin 
    HTTPReqResp.InvokeOptions:=[soPickFirstClientCertificate,soIgnoreInvalidCerts]; 

    if UseSystemCertStore 
    then 
     begin 
     Flags:=CERT_STORE_OPEN_EXISTING_FLAG or CERT_STORE_READONLY_FLAG or CERT_SYSTEM_STORE_LOCAL_MACHINE or CERT_STORE_DEFER_CLOSE_UNTIL_LAST_FREE_FLAG; 
     HTTPRStore:=HTTPReqResp as IClientCertInfo; 
     try 
      hStore:=CertOpenStore(CERT_STORE_PROV_SYSTEM, 
      0, 
      0, 
      Flags, 
      CERT_STORE); 
      HTTPRStore.SetCertStore(hStore); 
     finally 
      HTTPRStore:=nil; 
     end; 
     end; 
end;