Delphi 7 访问 Windows X509 证书存储答案

【问题标题】：Delphi 7 access Windows X509 Certificate StoreDelphi 7 访问 Windows X509 证书存储
【发布时间】：2009-10-27 13:12:43
【问题描述】：

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

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

【问题讨论】：

标签： delphi certificate x509

【解决方案1】：

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

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

打开相应的商店，然后从那里使用证书（）方法..

变量商店：TStore；证书：ICertificates；证书：ICertificate2 商店 := TStore.Create(nil); store.Open(CAPICOM_CURRENT_USER_STORE, '我的', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED 或 CAPICOM_STORE_OPEN_INCLUDE_ARCHIVED 或 CAPICOM_STORE_OPEN_EXISTING_ONLY); 证书 := store.Certificates; for i := 1 to certificate.count do 开始证书 := IInterface(certificates.Item[i]) as ICertificate2; // 使用证书结尾; 商店.close(); 商店。免费；

capicom 参考地址为http://msdn.microsoft.com/en-us/library/ms995332.aspx

如果您愿意花钱，我从 eldos 那里听说过有关 PKIBlackbox 的好消息。

【讨论】：

是的，CAPICOM 也是我想要的方式。我过去用 CAPICOM 做过，但我没有任何示例代码可用了。

【解决方案2】：

这不是你要找的吗？ Cryptography Reference

或者您是否搜索 API Wrapper？

【讨论】：

【解决方案3】：

ELDOS 有一个复杂的库，它添加了对使用 X509 证书等的完整支持；在此处阅读完整说明：
components for Public Key Infrastructure (PKI) support

请参阅类 ElX509CertificateClass here 的参考。

问候。

【讨论】：