capicom_tlb.pas

这是一个delphi程序

    function Get__NewEnum: IUnknown; safecall;
    property Item[Index: Integer]: OleVariant read Get_Item; default;
    property Count: Integer read Get_Count;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  ICertificatesDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {68646716-BDA0-4046-AB82-4444BC93B84A}
// *********************************************************************//
  ICertificatesDisp = dispinterface
    ['{68646716-BDA0-4046-AB82-4444BC93B84A}']
    property Item[Index: Integer]: OleVariant readonly dispid 0; default;
    property Count: Integer readonly dispid 1;
    property _NewEnum: IUnknown readonly dispid -4;
  end;

// *********************************************************************//
// Interface: ICertificate
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0BBA0B86-766C-4755-A443-243FF2BD8D29}
// *********************************************************************//
  ICertificate = interface(IDispatch)
    ['{0BBA0B86-766C-4755-A443-243FF2BD8D29}']
    function Get_Version: Integer; safecall;
    function Get_SerialNumber: WideString; safecall;
    function Get_SubjectName: WideString; safecall;
    function Get_IssuerName: WideString; safecall;
    function Get_ValidFromDate: TDateTime; safecall;
    function Get_ValidToDate: TDateTime; safecall;
    function Get_Thumbprint: WideString; safecall;
    function HasPrivateKey: WordBool; safecall;
    function GetInfo(InfoType: CAPICOM_CERT_INFO_TYPE): WideString; safecall;
    function IsValid: ICertificateStatus; safecall;
    function KeyUsage: IKeyUsage; safecall;
    function ExtendedKeyUsage: IExtendedKeyUsage; safecall;
    function BasicConstraints: IBasicConstraints; safecall;
    function Export(EncodingType: CAPICOM_ENCODING_TYPE): WideString; safecall;
    procedure Import(const EncodedCertificate: WideString); safecall;
    procedure Display; safecall;
    property Version: Integer read Get_Version;
    property SerialNumber: WideString read Get_SerialNumber;
    property SubjectName: WideString read Get_SubjectName;
    property IssuerName: WideString read Get_IssuerName;
    property ValidFromDate: TDateTime read Get_ValidFromDate;
    property ValidToDate: TDateTime read Get_ValidToDate;
    property Thumbprint: WideString read Get_Thumbprint;
  end;

// *********************************************************************//
// DispIntf:  ICertificateDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0BBA0B86-766C-4755-A443-243FF2BD8D29}
// *********************************************************************//
  ICertificateDisp = dispinterface
    ['{0BBA0B86-766C-4755-A443-243FF2BD8D29}']
    property Version: Integer readonly dispid 1;
    property SerialNumber: WideString readonly dispid 2;
    property SubjectName: WideString readonly dispid 3;
    property IssuerName: WideString readonly dispid 4;
    property ValidFromDate: TDateTime readonly dispid 5;
    property ValidToDate: TDateTime readonly dispid 6;
    property Thumbprint: WideString readonly dispid 7;
    function HasPrivateKey: WordBool; dispid 10;
    function GetInfo(InfoType: CAPICOM_CERT_INFO_TYPE): WideString; dispid 11;
    function IsValid: ICertificateStatus; dispid 12;
    function KeyUsage: IKeyUsage; dispid 13;
    function ExtendedKeyUsage: IExtendedKeyUsage; dispid 14;
    function BasicConstraints: IBasicConstraints; dispid 15;
    function Export(EncodingType: CAPICOM_ENCODING_TYPE): WideString; dispid 16;
    procedure Import(const EncodedCertificate: WideString); dispid 17;
    procedure Display; dispid 18;
  end;

// *********************************************************************//
// Interface: ICertificate2
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {6FE450DC-AD32-48D4-A366-01EE7E0B1374}
// *********************************************************************//
  ICertificate2 = interface(ICertificate)
    ['{6FE450DC-AD32-48D4-A366-01EE7E0B1374}']
    function Get_Archived: WordBool; safecall;
    procedure Set_Archived(pVal: WordBool); safecall;
    function Template: ITemplate; safecall;
    function PublicKey: IPublicKey; safecall;
    function Get_PrivateKey: IPrivateKey; safecall;
    procedure Set_PrivateKey(const pVal: IPrivateKey); safecall;
    function Extensions: IExtensions; safecall;
    function ExtendedProperties: IExtendedProperties; safecall;
    procedure Load(const FileName: WideString; const Password: WideString; 
                   KeyStorageFlag: CAPICOM_KEY_STORAGE_FLAG; KeyLocation: CAPICOM_KEY_LOCATION); safecall;
    procedure Save(const FileName: WideString; const Password: WideString; 
                   SaveAs: CAPICOM_CERTIFICATE_SAVE_AS_TYPE; 
                   IncludeOption: CAPICOM_CERTIFICATE_INCLUDE_OPTION); safecall;
    property Archived: WordBool read Get_Archived write Set_Archived;
    property PrivateKey: IPrivateKey read Get_PrivateKey write Set_PrivateKey;
  end;

// *********************************************************************//
// DispIntf:  ICertificate2Disp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {6FE450DC-AD32-48D4-A366-01EE7E0B1374}
// *********************************************************************//
  ICertificate2Disp = dispinterface
    ['{6FE450DC-AD32-48D4-A366-01EE7E0B1374}']
    property Archived: WordBool dispid 19;
    function Template: ITemplate; dispid 20;
    function PublicKey: IPublicKey; dispid 21;
    property PrivateKey: IPrivateKey dispid 22;
    function Extensions: IExtensions; dispid 23;
    function ExtendedProperties: IExtendedProperties; dispid 24;
    procedure Load(const FileName: WideString; const Password: WideString; 
                   KeyStorageFlag: CAPICOM_KEY_STORAGE_FLAG; KeyLocation: CAPICOM_KEY_LOCATION); dispid 25;
    procedure Save(const FileName: WideString; const Password: WideString; 
                   SaveAs: CAPICOM_CERTIFICATE_SAVE_AS_TYPE; 
                   IncludeOption: CAPICOM_CERTIFICATE_INCLUDE_OPTION); dispid 26;
    property Version: Integer readonly dispid 1;
    property SerialNumber: WideString readonly dispid 2;
    property SubjectName: WideString readonly dispid 3;
    property IssuerName: WideString readonly dispid 4;
    property ValidFromDate: TDateTime readonly dispid 5;
    property ValidToDate: TDateTime readonly dispid 6;
    property Thumbprint: WideString readonly dispid 7;
    function HasPrivateKey: WordBool; dispid 10;
    function GetInfo(InfoType: CAPICOM_CERT_INFO_TYPE): WideString; dispid 11;
    function IsValid: ICertificateStatus; dispid 12;
    function KeyUsage: IKeyUsage; dispid 13;
    function ExtendedKeyUsage: IExtendedKeyUsage; dispid 14;
    function BasicConstraints: IBasicConstraints; dispid 15;
    function Export(EncodingType: CAPICOM_ENCODING_TYPE): WideString; dispid 16;
    procedure Import(const EncodedCertificate: WideString); dispid 17;
    procedure Display; dispid 18;
  end;

// *********************************************************************//
// Interface: ICertContext
// Flags:     (0)
// GUID:      {9E7D3477-4F63-423E-8A45-E13B2BB851A2}
// *********************************************************************//
  ICertContext = interface(IUnknown)
    ['{9E7D3477-4F63-423E-8A45-E13B2BB851A2}']
    function Get_CertContext(out ppCertContext: Integer): HResult; stdcall;
    function Set_CertContext(ppCertContext: Integer): HResult; stdcall;
    function FreeContext(pCertContext: Integer): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: ITemplate
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {5F10FFCE-C922-476F-AA76-DF99D5BDFA2C}
// *********************************************************************//
  ITemplate = interface(IDispatch)
    ['{5F10FFCE-C922-476F-AA76-DF99D5BDFA2C}']
    function Get_IsPresent: WordBool; safecall;
    function Get_IsCritical: WordBool; safecall;
    function Get_Name: WideString; safecall;
    function Get_OID: IOID; safecall;
    function Get_MajorVersion: Integer; safecall;
    function Get_MinorVersion: Integer; safecall;
    property IsPresent: WordBool read Get_IsPresent;
    property IsCritical: WordBool read Get_IsCritical;
    property Name: WideString read Get_Name;
    property OID: IOID read Get_OID;
    property MajorVersion: Integer read Get_MajorVersion;
    property MinorVersion: Integer read Get_MinorVersion;
  end;

// *********************************************************************//
// DispIntf:  ITemplateDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {5F10FFCE-C922-476F-AA76-DF99D5BDFA2C}
// *********************************************************************//
  ITemplateDisp = dispinterface
    ['{5F10FFCE-C922-476F-AA76-DF99D5BDFA2C}']
    property IsPresent: WordBool readonly dispid 1;
    property IsCritical: WordBool readonly dispid 2;
    property Name: WideString readonly dispid 3;
    property OID: IOID readonly dispid 4;
    property MajorVersion: Integer readonly dispid 5;
    property MinorVersion: Integer readonly dispid 6;
  end;

// *********************************************************************//
// Interface: IPublicKey
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {72BF9ADA-6817-4C31-B43E-25F7C7B091F4}
// *********************************************************************//
  IPublicKey = interface(IDispatch)
    ['{72BF9ADA-6817-4C31-B43E-25F7C7B091F4}']
    function Get_Algorithm: IOID; safecall;
    function Get_Length: Integer; safecall;
    function Get_EncodedKey: IEncodedData; safecall;
    function Get_EncodedParameters: IEncodedData; safecall;
    property Algorithm: IOID read Get_Algorithm;
    property Length: Integer read Get_Length;
    property EncodedKey: IEncodedData read Get_EncodedKey;
    property EncodedParameters: IEncodedData read Get_EncodedParameters;
  end;

// *********************************************************************//
// DispIntf:  IPublicKeyDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {72BF9ADA-6817-4C31-B43E-25F7C7B091F4}
// *********************************************************************//
  IPublicKeyDisp = dispinterface
    ['{72BF9ADA-6817-4C31-B43E-25F7C7B091F4}']
    property Algorithm: IOID readonly dispid 0;
    property Length: Integer readonly dispid 1;
    property EncodedKey: IEncodedData readonly dispid 2;
    property EncodedParameters: IEncodedData readonly dispid 3;
  end;

// *********************************************************************//
// Interface: IEncodedData
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {D3D460F2-E7F3-4AF3-8EC6-8EB68C61C567}
// *********************************************************************//
  IEncodedData = interface(IDispatch)
    ['{D3D460F2-E7F3-4AF3-8EC6-8EB68C61C567}']
    function Get_Value(EncodingType: CAPICOM_ENCODING_TYPE): WideString; safecall;
    function Format(bMultiLines: WordBool): WideString; safecall;
    function Decoder: IDispatch; safecall;
    property Value[EncodingType: CAPICOM_ENCODING_TYPE]: WideString read Get_Value; default;
  end;

// *********************************************************************//
// DispIntf:  IEncodedDataDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {D3D460F2-E7F3-4AF3-8EC6-8EB68C61C567}
// *********************************************************************//
  IEncodedDataDisp = dispinterface
    ['{D3D460F2-E7F3-4AF3-8EC6-8EB68C61C567}']
    property Value[EncodingType: CAPICOM_ENCODING_TYPE]: WideString readonly dispid 0; default;
    function Format(bMultiLines: WordBool): WideString; dispid 1;
    function Decoder: IDispatch; dispid 2;
  end;

// *********************************************************************//
// Interface: IPrivateKey
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {659DEDC3-6C85-42DB-8527-EFCB21742862}
// *********************************************************************//
  IPrivateKey = interface(IDispatch)
    ['{659DEDC3-6C85-42DB-8527-EFCB21742862}']
    function Get_ContainerName: WideString; safecall;
    function Get_UniqueContainerName: WideString; safecall;
    function Get_ProviderName: WideString; safecall;
    function Get_ProviderType: CAPICOM_PROV_TYPE; safecall;
    function Get_KeySpec: CAPICOM_KEY_SPEC; safecall;
    function IsAccessible: WordBool; safecall;
    function IsProtected: WordBool; safecall;
    function IsExportable: WordBool; safecall;
    function IsRemovable: WordBool; safecall;
    function IsMachineKeyset: WordBool; safecall;
    function IsHardwareDevice: WordBool; safecall;
    procedure Open(const ContainerName: WideString; const ProviderName: WideString; 
                   ProviderType: CAPICOM_PROV_TYPE; KeySpec: CAPICOM_KEY_SPEC; 
                   StoreLocation: CAPICOM_STORE_LOCATION; bCheckExistence: WordBool); safecall;
    procedure Delete; safecall;
    property ContainerName: WideString read Get_ContainerName;
    property UniqueContainerName: WideString read Get_UniqueContainerName;
    property ProviderName: WideString read Get_ProviderName;
    property ProviderType: CAPICOM_PROV_TYPE read Get_ProviderType;
    property KeySpec: CAPICOM_KEY_SPEC read Get_KeySpec;
  end;

// *********************************************************************//
// DispIntf:  IPrivateKeyDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {659DEDC3-6C85-42DB-8527-EFCB21742862}
// *********************************************************************//
  IPrivateKeyDisp = dispinterface
    ['{659DEDC3-6C85-42DB-8527-EFCB21742862}']
    property ContainerName: WideString r