Acesso Delphi 7 Windows Store Certificado X509

Question

A minha pergunta é muito simples: se existe uma maneira simples de acesso do Windows X509 Certificate Store usando Delphi 7

?

Antes de fazer esta pergunta que eu pesquisei, mas não encontrei nenhuma informação útil.

Answer 1

A maneira mais fácil é usar o CAPICOM, atingindo o capi api vitória diretamente é doloroso.

Uma vez que você tenha registrado o objeto COM e criou sua unidade typelib a partir dele ..

abrir a loja apropriada, e de lá utilizar os certificados () método ..

  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 referência é em http://msdn.microsoft.com/en -us / library / ms995332.aspx

Se você está ok com a gastar dinheiro, eu ouvi coisas boas sobre PKIBlackbox de EldoS.

Answer 2

Não é isso que você está procurando? Cryptography Referência

Ou você procurar uma API Wrapper?

Answer 3

Há uma biblioteca complexa fom EldoS que adicionar suporte completo para trabalhar com certificados X509 e muito mais; Leia a descrição completa aqui:
componentes para Public Key Infrastructure (PKI) de apoio

Veja a referência para a classe ElX509CertificateClass aqui .

Cumprimentos.