德爾福7訪問Windows X509證書商店

Question

我的問題很簡單：有沒有一種簡單的方法來訪問使用Delphi 7的Windows X509證書存儲？

在問這個問題之前，我已經使用了Google搜索，但沒有找到任何有用的信息。

Answer 1

最簡單的方法就是使用capicom，直接擊中勝利capi api是痛苦的。

一旦你註冊的COM對象，並從它創建了您的類型庫單元..

打開相應的商店，並從那裏使用證書（）方法..

 
    var 
    store: TStore; 
    certificates: ICertificates; 
    certificate: ICertificate2 

    store := TStore.Create(nil); 
    store.Open(CAPICOM_CURRENT_USER_STORE, 'My', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED or CAPICOM_STORE_OPEN_INCLUDE_ARCHIVED or CAPICOM_STORE_OPEN_EXISTING_ONLY); 

    certificates := store.Certificates; 
    for i := 1 to certificates.count do 
    begin 
    certificate := IInterface(certificates.Item[i]) as ICertificate2; 
    // work with the cert 
    end; 

    store.close(); 
    store.Free; 

CAPICOM參考是在http://msdn.microsoft.com/en-us/library/ms995332.aspx

如果你可以花錢，我聽說過從eldos PKIBlackbox好東西。

Answer 2

難道你不是在找什麼？ Cryptography Reference

或者您是否搜索API包裝？

Answer 3

有一個複雜的庫文件ELDOS，它增加了完整的支持X509證書和更多的工作;在這裏閱讀完整的描述：
components for Public Key Infrastructure (PKI) support

參見類ElX509CertificateClass here參考。

問候。