如何通過Indy動態加載openSSL 1.0.0 Win32中的Crypto Api（capi.dll）？

我使用Indy 10，我希望我的http客戶端使用Windows存儲證書。我使用openssl庫1.0.0d，它應該允許我加載capi.dll，但加載總是失敗。如何通過Indy動態加載openSSL 1.0.0 Win32中的Crypto Api（capi.dll）？

procedure TIdSSLContext.InitContext(CtxMode: TIdSSLCtxMode); 
var FEngine : PENgine; 
... 
FEngine := f_ENGINE_by_id('dynamic'); 
status := f_ENGINE_ctrl_cmd_string(FEngine, 'SO_PATH', 'capi', 0); 
if status>0 then //never! 
begin 
    status := f_ENGINE_ctrl_cmd_string(FEngine, 'LOAD', nil, 0); 
    if status>0 then 
    begin 
    fContext.client_cert_engine := FEngine; 
    status := f_ENGINE_set_default(FEngine, ENGINE_METHOD_ALL); 
    end; 
    end; 
...

有什麼想法嗎？

謝謝

來源

2011-08-29 OneMoreBug

什麼是加'status'實際上返回？ –

狀態總是返回0，capi.dll與libeay32.dll和ssleay32.dll位於同一目錄中。 – OneMoreBug

'ENGINE_by_id（）'返回一個有效的指針嗎？ –

我設法使它工作。 http服務器需要客戶端證書，並且證書安裝在Windows應用商店中。

f_ENGINE_load_builtin_engines; 
FCapiEngine := f_ENGINE_by_id('dynamic'); 
if (FCapiEngine<>nil) then 
begin 
    if (f_ENGINE_ctrl_cmd_string(FCapiEngine, 'SO_PATH', '.\capi.dll', 0)<=0) or 
    (f_ENGINE_ctrl_cmd_string(FCapiEngine, 'LOAD', nil, 0)<=0) or 
    (f_ENGINE_init(FCapiEngine)<=0)  then 
    begin 
    f_ENGINE_free(FCapiEngine);//Structural reference 
    FCapiEngine := nil; 
    end; 
end;

和回調

function client_cert_cb(SSL : PSSL; x509 : PPX509; pkey : PPEVP_PKEY) : TIdC_INT; cdecl; 
begin 
result := f_ENGINE_load_ssl_client_cert(FCapiEngine,ssl,nil,x509,pkey,nil,nil,nil); 
end;

我也有一些方法

fn_ENGINE_load_builtin_engines  = 'ENGINE_load_builtin_engines' ; 
    fn_ENGINE_register_all_complete = 'ENGINE_register_all_complete' ; 
    fn_ENGINE_cleanup     = 'ENGINE_cleanup'     ; 
    fn_ENGINE_by_id     = 'ENGINE_by_id'     ; 
    fn_ENGINE_init      = 'ENGINE_init'     ; 
    fn_ENGINE_finish     = 'ENGINE_finish'     ; 
    fn_ENGINE_set_default    = 'ENGINE_set_default'    ; 
    fn_ENGINE_ctrl_cmd_string   = 'ENGINE_ctrl_cmd_string'   ; 
    fn_ENGINE_free      = 'ENGINE_free'     ; 
    fn_ENGINE_load_ssl_client_cert  = 'ENGINE_load_ssl_client_cert' ; 

    @f_ENGINE_load_builtin_engines  := LoadFunctionCLib(fn_ENGINE_load_builtin_engines); 
    @f_ENGINE_register_all_complete := LoadFunctionCLib(fn_ENGINE_register_all_complete); 
    @f_ENGINE_cleanup     := LoadFunctionCLib(fn_ENGINE_cleanup); 
    @f_ENGINE_by_id     := LoadFunctionCLib(fn_ENGINE_by_id); 
    @f_ENGINE_init      := LoadFunctionCLib(fn_ENGINE_init); 
    @f_ENGINE_finish     := LoadFunctionCLib(fn_ENGINE_finish); 
    @f_ENGINE_set_default    := LoadFunctionCLib(fn_ENGINE_set_default); 
    @f_ENGINE_ctrl_cmd_string   := LoadFunctionCLib(fn_ENGINE_ctrl_cmd_string); 
    @f_ENGINE_free      := LoadFunctionCLib(fn_ENGINE_free); 
    @f_ENGINE_load_ssl_client_cert  := LoadFunctionCLib(fn_ENGINE_load_ssl_client_cert); 

    f_ENGINE_load_builtin_engines :   procedure; cdecl = nil; 
    f_ENGINE_register_all_complete :   procedure; cdecl = nil; 
    f_ENGINE_cleanup :       procedure; cdecl = nil; 
    f_ENGINE_by_id :       function(const id: PAnsiChar): PENGINE; cdecl = nil; 
    f_ENGINE_init :       function(e: PENGINE): Integer; cdecl = nil; 
    f_ENGINE_finish :       function(e: PENGINE): Integer; cdecl = nil; 
    f_ENGINE_set_default :      function(e: PENGINE; flags: Cardinal): Integer; cdecl = nil; 
    f_ENGINE_ctrl_cmd_string :     function(e: PENGINE; const cmd_name: PAnsiChar; const arg: PAnsiChar; cmd_optional: Integer): Integer; cdecl = nil; 
    f_ENGINE_free :       function(e: PENGINE): Integer; cdecl = nil; 
    f_ENGINE_load_ssl_client_cert :   function(e: PENGINE; s : PSSL; ca_dn : PSTACK_OF_X509_NAME; pcert : PPX509; key : PPEVP_PKEY; pother : PPSTACK_OF_X509;ui_method : PUI_METHOD; callback_data:pointer): Integer; cdecl = nil;

來源

2011-08-31 08:29:43 OneMoreBug

如何通過Indy動態加載openSSL 1.0.0 Win32中的Crypto Api（capi.dll）？

回答

相關問題