Delphi 7访问Windows X509证书库 [英] Delphi 7 access Windows X509 Certificate Store
问题描述
我的问题很简单:有一个简单的方法来访问Windows X509证书存储使用Delphi 7?
在提出这个问题之前,我googled,发现任何有用的信息。
最简单的方法是使用capicom,直接击中胜利capi api是痛苦的。 >
注册com对象并从中创建typelib单元。
打开相应的商店,从这里使用certificates()方法。
var
store:TStore;
证书:ICertificates;
证书:ICertificate2
store:= TStore.Create(nil);
store.Open(CAPICOM_CURRENT_USER_STORE,'My',CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED或CAPICOM_STORE_OPEN_INCLUDE_ARCHIVED或CAPICOM_STORE_OPEN_EXISTING_ONLY);
证书:= store.Certificates;
for i:= 1 to certificates.count do
begin
certificate:= IInterface(certificates.Item [i])as ICertificate2;
//使用cert
end;
store.close();
store.Free;
capicom参考位于 http://msdn.microsoft.com/en-us/library/ms995332.aspx
如果您确定与花钱,我听到了关于从eldos的PKIBlackbox的好东西。
My question is pretty simple: is there a simple way to access Windows X509 Certificate Store using Delphi 7?
Before asking this question I have googled, but have not found any useful info.
the easiest way is to use capicom, hitting the win capi api directly is painful.
once you've registered the com object and created your typelib unit from it..
open the appropriate store, and from there use the certificates() method..
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 reference is at http://msdn.microsoft.com/en-us/library/ms995332.aspx
if you're ok with spending money, i've heard good things about PKIBlackbox from eldos.
这篇关于Delphi 7访问Windows X509证书库的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!