Procedure

TfrmFrame.DigitalSigningSetup1Click

Module

fFrame

Last Modified

3/11/2015 8:41:44 AM

Visibility

Public/Published

Owner

TfrmFrame

Declaration

procedure DigitalSigningSetup1Click(Sender: TObject);

Calls Hierarchy


TfrmFrame.DigitalSigningSetup1Click
 └SetSAN
   ├tCryptography.Create
   │ ├tCryptography.Reset
   │ ├sCardReady
   │ │ ├SCardEstablishContext
   │ │ ├SCardListReadersA
   │ │ └SCardConnectA
   │ ├tCryptography.RaiseErr
   │ ├CryptAcquireContext
   │ └CryptGetProvParam
   └getSANFromCard
     ├checkPINValue
     │ ├sCardReady...
     │ ├CryptAcquireContext
     │ ├setPINValue
     │ │ ├CryptAcquireContext
     │ │ ├CryptSetProvParam
     │ │ └CryptReleaseContext
     │ └CryptReleaseContext
     └tCryptography.FindCert
       ├CertOpenSystemStore
       ├CertEnumCertificatesInStore
       ├CertGetNameString
       ├SerialNum
       ├CertDateTimeStr
       ├tCryptography.SigningCert
       │ └CertGetIntendedKeyUsage
       ├CertVerifyTimeValidity
       ├CertFindExtension
       ├tCryptography.CRLDistPoint
       │ └CryptDecodeObject
       ├Revco
       │ └CertVerifyRevocation
       └tCryptography.CertChainCheck
         ├CertCreateCertificateChainEngine
         ├Memo
         ├tCryptography.RaiseErr
         ├CertGetCertificateChain
         └SetStatus
           └Memo

Calls

Name Declaration Comments
SetSAN function SetSAN(Self: TComponent): string; -


Source

666   procedure TfrmFrame.DigitalSigningSetup1Click(Sender: TObject);
667   begin
668     inherited;
669     LastPINvalue := '';
670     SetSAN(Self);
671     LastPINvalue := '';
672   end;