Delphi 7访问Windows X509证书库

Question

我的问题很简单：有没有一种使用Delphi 7访问Windows X509证书库的简单方法？

在提出这个问题之前，我用谷歌搜索过，但没有找到任何有用的信息。

Answer 1

最简单的方法是使用capicom，直接击中win capi api是痛苦的。

一旦你注册了com对象并从中创建了你的typelib单元..

打开相应的商店，然后使用certificates（）方法..

  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 Wrapper？

Answer 3

有一个复杂的库ELDOS，可以为使用X509证书等提供全面的支持;阅读完整说明：
components for Public Key Infrastructure (PKI) support

请参阅ElX509CertificateClass类here的参考资料。

问候。