Delphi 7はWindows X509証明書ストアにアクセスします

Question

私の質問は非常に簡単です：Delphi 7を使用してWindows X509証明書ストアにアクセスする簡単な方法はありますか？

この質問をする前にグーグルで検索しましたが、有用な情報が見つかりませんでした。

Answer 1

最も簡単な方法はcapicomを使用することです。wincapi 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

それはあなたが探しているものではありませんか？ 暗号化リファレンス

または、APIラッパーを検索しますか？

Answer 3

複雑なライブラリfom ELDOS があり、X509証明書などの作業の完全なサポートを追加します。詳細な説明はこちら：
公開鍵インフラストラクチャ（PKI）サポートのコンポーネント

クラスElX509CertificateClassのリファレンスこちらを参照してください。

よろしく。