德尔福7请访问Windows X509证书存储(Delphi 7 access Windows X5

我的问题很简单：有没有用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:

是不是你在找什么？ 加密参考

或者你搜索的API包装？

Answer 3:

有一个复杂的库FOM ELDOS那加与X509证书和更多的工作完整的支持; 在这里阅读完整的描述：
公钥基础设施（PKI）支持组件

请参阅类ElX509CertificateClass参考这里 。

问候。

文章来源: Delphi 7 access Windows X509 Certificate Store