Delphi 7 accéder au magasin de certificats Windows X509

StackOverflow https://stackoverflow.com/questions/1630714

  •  06-07-2019
  •  | 
  •  

Question

Ma question est assez simple: existe-t-il un moyen simple d'accéder au magasin de certificats Windows X509 à l'aide de Delphi 7?

Avant de poser cette question, j'ai cherché sur Google mais je n'ai trouvé aucune information utile.

Était-ce utile?

La solution

le moyen le plus simple est d’utiliser Capicom, il est douloureux de toucher directement l’application win capi.

une fois que vous avez enregistré l'objet com et créé votre unité typelib à partir de celui-ci ..

ouvrez le magasin approprié et à partir de là utilisez la méthode 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;

La référence de capicom se trouve à l'adresse http://msdn.microsoft.com/fr. -us / library / ms995332.aspx

si vous êtes d'accord pour dépenser de l'argent, j'ai entendu de bonnes choses à propos de PKIBlackbox d'eldos.

Autres conseils

N'est-ce pas ce que vous cherchez? Référence sur la cryptographie

Ou cherchez-vous un wrapper API?

Il existe une bibliothèque complexe de ELDOS qui offre une prise en charge complète du travail avec les certificats X509 et plus encore; Lire la description complète ici:
composants pour la prise en charge de l'infrastructure à clé publique (PKI)

Voir la référence de la classe ElX509CertificateClass ici .

Cordialement.

Licencié sous: CC-BY-SA avec attribution
Non affilié à StackOverflow
scroll top