capicom_tlb.pas

这是一个delphi程序

unit CAPICOM_TLB;

// ************************************************************************ //
// WARNING                                                                    
// -------                                                                    
// The types declared in this file were generated from data read from a       
// Type Library. If this type library is explicitly or indirectly (via        
// another type librarz      y referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the   
// Type Library, the contents of this file will be regenerated and all        
// manual modifications will be lost.                                         
// ************************************************************************ //

// $Rev: 8291 $
// File generated on 2008-3-24 14:09:10 from Type Library described below.

// ************************************************************************  //
// Type Lib: C:\Program Files\Microsoft CAPICOM 2.1.0.2\Lib\X86\capicom.dll (1)
// LIBID: {BD26B198-EE42-4725-9B23-AFA912434229}
// LCID: 0
// Helpfile: 
// HelpString: CAPICOM v2.1 Type Library
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
// Errors:
//   Error creating palette bitmap of (TSettings) : Server C:\Program Files\Microsoft CAPICOM 2.1.0.2\Lib\X86\capicom.dll contains no icons
//   Error creating palette bitmap of (TCertificate) : Server C:\Program Files\Microsoft CAPICOM 2.1.0.2\Lib\X86\capicom.dll contains no icons
//   Error creating palette bitmap of (TCertificates) : Server C:\Program Files\Microsoft CAPICOM 2.1.0.2\Lib\X86\capicom.dll contains no icons
//   Error creating palette bitmap of (TChain) : Server C:\Program Files\Microsoft CAPICOM 2.1.0.2\Lib\X86\capicom.dll contains no icons
//   Error creating palette bitmap of (TStore) : Server C:\Program Files\Microsoft CAPICOM 2.1.0.2\Lib\X86\capicom.dll contains no icons
//   Error creating palette bitmap of (TAttribute) : Server C:\Program Files\Microsoft CAPICOM 2.1.0.2\Lib\X86\capicom.dll contains no icons
//   Error creating palette bitmap of (TSigner) : Server C:\Program Files\Microsoft CAPICOM 2.1.0.2\Lib\X86\capicom.dll contains no icons
//   Error creating palette bitmap of (TSignedData) : Server C:\Program Files\Microsoft CAPICOM 2.1.0.2\Lib\X86\capicom.dll contains no icons
//   Error creating palette bitmap of (TEnvelopedData) : Server C:\Program Files\Microsoft CAPICOM 2.1.0.2\Lib\X86\capicom.dll contains no icons
//   Error creating palette bitmap of (TEncryptedData) : Server C:\Program Files\Microsoft CAPICOM 2.1.0.2\Lib\X86\capicom.dll contains no icons
//   Error creating palette bitmap of (TOID) : Server C:\Program Files\Microsoft CAPICOM 2.1.0.2\Lib\X86\capicom.dll contains no icons
//   Error creating palette bitmap of (TExtendedProperty) : Server C:\Program Files\Microsoft CAPICOM 2.1.0.2\Lib\X86\capicom.dll contains no icons
//   Error creating palette bitmap of (TPrivateKey) : Server C:\Program Files\Microsoft CAPICOM 2.1.0.2\Lib\X86\capicom.dll contains no icons
//   Error creating palette bitmap of (TSignedCode) : Server C:\Program Files\Microsoft CAPICOM 2.1.0.2\Lib\X86\capicom.dll contains no icons
//   Error creating palette bitmap of (THashedData) : Server C:\Program Files\Microsoft CAPICOM 2.1.0.2\Lib\X86\capicom.dll contains no icons
//   Error creating palette bitmap of (TUtilities) : Server C:\Program Files\Microsoft CAPICOM 2.1.0.2\Lib\X86\capicom.dll contains no icons
// ************************************************************************ //
// *************************************************************************//
// NOTE:                                                                      
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties  
// which return objects that may need to be explicitly created via a function 
// call prior to any access via the property. These items have been disabled  
// in order to prevent accidental use from within the object inspector. You   
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively   
// removing them from the $IFDEF blocks. However, such items must still be    
// programmatically created via a method of the appropriate CoClass before    
// they can be used.                                                          
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, OleServer, StdVCL, Variants;
  

// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//
const
  // TypeLibrary Major and minor versions
  CAPICOMMajorVersion = 2;
  CAPICOMMinorVersion = 1;

  LIBID_CAPICOM: TGUID = '{BD26B198-EE42-4725-9B23-AFA912434229}';

  IID_ISettings: TGUID = '{A24104F5-46D0-4C0F-926D-665565908E91}';
  CLASS_Settings: TGUID = '{A996E48C-D3DC-4244-89F7-AFA33EC60679}';
  IID_IEKU: TGUID = '{976B7E6D-1002-4051-BFD4-824A74BD74E2}';
  CLASS_EKU: TGUID = '{8535F9A1-738A-40D0-8FB1-10CC8F74E7D3}';
  IID_IEKUs: TGUID = '{47C87CEC-8C4B-4E3C-8D22-34280274EFD1}';
  CLASS_EKUs: TGUID = '{F1800663-5BFC-4D1A-8D44-56CE02DDA34F}';
  IID_IKeyUsage: TGUID = '{41DD35A8-9FF9-45A6-9A7C-F65B2F085D1F}';
  CLASS_KeyUsage: TGUID = '{9226C95C-38BE-4CC4-B3A2-A867F5199C13}';
  IID_IExtendedKeyUsage: TGUID = '{7289D408-987D-45D1-8DEE-CF9E91C2E90E}';
  CLASS_ExtendedKeyUsage: TGUID = '{42C18607-1B4B-4126-8F1B-76E2DC7F631A}';
  IID_IBasicConstraints: TGUID = '{4E298C47-ABA6-459E-851B-993D6C626EAD}';
  CLASS_BasicConstraints: TGUID = '{C05AAC6E-3A58-45A9-A203-56952E961E48}';
  IID_ICertificateStatus: TGUID = '{AB769053-6D38-49D4-86EF-5FA85ED3AF27}';
  IID_ICertificateStatus2: TGUID = '{BF95660E-F743-4EAC-9DE5-960787A4606C}';
  IID_ICertificateStatus3: TGUID = '{A4EAB890-0786-406B-9B31-2746F31F8D87}';
  CLASS_CertificateStatus: TGUID = '{0EF24D18-BD9B-47D4-9458-E05B489FB7BA}';
  IID_IOIDs: TGUID = '{DA55E8FC-8E27-451B-AEA8-1470D80FAD42}';
  IID_IOID: TGUID = '{208E5E9B-58B1-4086-970F-161B582A846F}';
  IID_ICertificates: TGUID = '{68646716-BDA0-4046-AB82-4444BC93B84A}';
  IID_ICertificate: TGUID = '{0BBA0B86-766C-4755-A443-243FF2BD8D29}';
  IID_ICertificate2: TGUID = '{6FE450DC-AD32-48D4-A366-01EE7E0B1374}';
  IID_ICertContext: TGUID = '{9E7D3477-4F63-423E-8A45-E13B2BB851A2}';
  IID_ITemplate: TGUID = '{5F10FFCE-C922-476F-AA76-DF99D5BDFA2C}';
  IID_IPublicKey: TGUID = '{72BF9ADA-6817-4C31-B43E-25F7C7B091F4}';
  IID_IEncodedData: TGUID = '{D3D460F2-E7F3-4AF3-8EC6-8EB68C61C567}';
  IID_IPrivateKey: TGUID = '{659DEDC3-6C85-42DB-8527-EFCB21742862}';
  IID_IExtensions: TGUID = '{BC530D61-E692-4225-9E7A-07B90B45856A}';
  IID_IExtendedProperties: TGUID = '{3B096E87-6218-4A3B-A880-F6CB951E7805}';
  IID_IExtendedProperty: TGUID = '{ECB8A5C8-562C-4989-B49D-FA37D40F8FC4}';
  CLASS_Certificate: TGUID = '{9171C115-7DD9-46BA-B1E5-0ED50AFFC1B8}';
  IID_ICertificates2: TGUID = '{7B57C04B-1786-4B30-A7B6-36235CD58A14}';
  IID_ICCertificates: TGUID = '{EBDC6DC2-684D-4425-BBB7-CB4D15A088A7}';
  CLASS_Certificates: TGUID = '{3605B612-C3CF-4AB4-A426-2D853391DB2E}';
  IID_IChain: TGUID = '{77F6F881-5D3A-4F2F-AEF0-E4A2F9AA689D}';
  IID_IChain2: TGUID = '{CA65D842-2110-4073-AEE3-D0AA5F56C421}';
  IID_IChainContext: TGUID = '{B27FFB30-432E-4585-A3FD-72530108CBFD}';
  CLASS_Chain: TGUID = '{550C8FFB-4DC0-4756-828C-862E6D0AE74F}';
  IID_IStore: TGUID = '{E860EF75-1B63-4254-AF47-960DAA3DD337}';
  IID_IStore2: TGUID = '{4DA6ABC4-BDCD-4317-B650-262075B93A9C}';
  IID_IStore3: TGUID = '{F701F8EC-31C7-48FB-B621-5DE417C3A607}';
  IID_ICertStore: TGUID = '{BB3ECB9C-A83A-445C-BDB5-EFBEF691B731}';
  CLASS_Store: TGUID = '{91D221C4-0CD4-461C-A728-01D509321556}';
  IID_IAttribute: TGUID = '{B17A8D78-B5A6-45F7-BA21-01AB94B08415}';
  CLASS_Attribute: TGUID = '{54BA1E8F-818D-407F-949D-BAE1692C5C18}';
  IID_IAttributes: TGUID = '{6ADC653E-D5B9-422A-991A-A2B0119CEDAC}';
  CLASS_Attributes: TGUID = '{933013A9-64C8-4485-ACEF-4908C3692A33}';
  IID_ISigner: TGUID = '{51017B88-1913-49AD-82BE-6BB7C417DCF2}';
  IID_ISigner2: TGUID = '{625B1F55-C720-41D6-9ECF-BA59F9B85F17}';
  IID_ICSigner: TGUID = '{8F83F792-014C-4E22-BD57-5C381E622F34}';
  CLASS_Signer: TGUID = '{60A9863A-11FD-4080-850E-A8E184FC3A3C}';
  IID_ISigners: TGUID = '{5A0780F8-9E6B-4BB0-BF54-87CD9627A8B4}';
  CLASS_Signers: TGUID = '{1314C1D8-D3A8-4F8A-BED0-811FD7A8A633}';
  IID_ISignedData: TGUID = '{AE9C454B-FC65-4C10-B130-CD9B45BA948B}';
  CLASS_SignedData: TGUID = '{94AFFFCC-6C05-4814-B123-A941105AA77F}';
  IID_IAlgorithm: TGUID = '{BF3D04A9-B0DA-4153-B45E-6CCFA5AC715B}';
  CLASS_Algorithm: TGUID = '{A1EEF42F-5026-4A32-BC5C-2E552B70FD96}';
  IID_IRecipients: TGUID = '{A694C896-FC38-4C34-AE61-3B1A95984C14}';
  CLASS_Recipients: TGUID = '{96A1B8B0-8F9A-436A-84DE-E23CD6818DA5}';
  IID_IEnvelopedData: TGUID = '{F6CB6A20-CC18-4424-AE57-6F2AA3DC2059}';
  CLASS_EnvelopedData: TGUID = '{F3A12E08-EDE9-4160-8B51-334D982A9AD0}';
  IID_IEncryptedData: TGUID = '{C4778A66-972F-42E4-87C5-5CC16F7931CA}';
  CLASS_EncryptedData: TGUID = '{A440BD76-CFE1-4D46-AB1F-15F238437A3D}';
  CLASS_OID: TGUID = '{7BF3AC5C-CC84-429A-ACA5-74D916AD6B8C}';
  CLASS_OIDs: TGUID = '{FD661131-D716-4D15-A187-AEAAB161C8AD}';
  IID_INoticeNumbers: TGUID = '{EE2C051D-33A1-4157-86B4-9280E29782F2}';
  CLASS_NoticeNumbers: TGUID = '{A6FDF22A-8E00-464B-B15D-1A891D88B6ED}';
  IID_IQualifier: TGUID = '{3604C9DD-A22E-4A15-A469-8181C0C113DE}';
  CLASS_Qualifier: TGUID = '{E5F29B74-0902-4654-8A9A-21C5201DFA61}';
  IID_IQualifiers: TGUID = '{6B5A8AB6-597D-4398-AC63-1036EF546348}';
  CLASS_Qualifiers: TGUID = '{6C8006C0-F649-4783-B4A6-617DD0B270C7}';
  IID_IPolicyInformation: TGUID = '{8973710C-8411-4951-9E65-D45FD524FFDF}';
  CLASS_PolicyInformation: TGUID = '{0AAF88F4-1C22-4F65-A0E3-289D97DCE994}';
  IID_ICertificatePolicies: TGUID = '{CC7A72A7-C83A-4049-85F4-4292DE9DBFD3}';
  CLASS_CertificatePolicies: TGUID = '{988583C2-00C7-4D22-9241-E810E35EED1B}';
  CLASS_EncodedData: TGUID = '{7083C0AA-E7B9-48A4-8EFB-D6A109EBEC13}';
  IID_IExtension: TGUID = '{ED4E4ED4-FDD8-476E-AED9-5239E7948257}';
  CLASS_Extension: TGUID = '{D2359E2C-82D6-458F-BB6F-41559155E693}';
  CLASS_Extensions: TGUID = '{7C92E131-C1DC-4CA1-B02C-F513A08B41ED}';
  CLASS_ExtendedProperty: TGUID = '{9E7EA907-5810-4FCA-B817-CD0BBA8496FC}';
  CLASS_ExtendedProperties: TGUID = '{90E7143D-1A07-438D-8F85-3DBB0B73D314}';
  CLASS_Template: TGUID = '{61F0D2BD-373E-4F3C-962E-59B7C42C1B22}';
  CLASS_PublicKey: TGUID = '{301FC658-4055-4D76-9703-AA38E6D7236A}';
  IID_ICPrivateKey: TGUID = '{50F241B7-A8F2-4E0A-B982-4BD7DF0CCF3C}';
  CLASS_PrivateKey: TGUID = '{03ACC284-B757-4B8F-9951-86E600D2CD06}';
  IID_ISignedCode: TGUID = '{84FBCB95-5600-404C-9187-AC25B4CD6E94}';
  CLASS_SignedCode: TGUID = '{8C3E4934-9FA4-4693-9253-A29A05F99186}';
  IID_IHashedData: TGUID = '{9F7F23E8-06F4-42E8-B965-5CBD044BF27F}';
  CLASS_HashedData: TGUID = '{CE32ABF6-475D-41F6-BF82-D27F03E3D38B}';
  IID_IUtilities: TGUID = '{EB166CF6-2AE6-44DA-BD96-0C1635D183FE}';
  CLASS_Utilities: TGUID = '{22A85CE1-F011-4231-B9E4-7E7A0438F71B}';

// *********************************************************************//
// Declaration of Enumerations defined in Type Library                    
// *********************************************************************//
// Constants for enum CAPICOM_ERROR_CODE
type
  CAPICOM_ERROR_CODE = TOleEnum;
const
  CAPICOM_E_ENCODE_INVALID_TYPE = $80880100;
  CAPICOM_E_EKU_INVALID_OID = $80880200;
  CAPICOM_E_EKU_OID_NOT_INITIALIZED = $80880201;
  CAPICOM_E_CERTIFICATE_NOT_INITIALIZED = $80880210;
  CAPICOM_E_CERTIFICATE_NO_PRIVATE_KEY = $80880211;
  CAPICOM_E_CHAIN_NOT_BUILT = $80880220;
  CAPICOM_E_STORE_NOT_OPENED = $80880230;
  CAPICOM_E_STORE_EMPTY = $80880231;
  CAPICOM_E_STORE_INVALID_OPEN_MODE = $80880232;
  CAPICOM_E_STORE_INVALID_SAVE_AS_TYPE = $80880233;
  CAPICOM_E_ATTRIBUTE_NAME_NOT_INITIALIZED = $80880240;
  CAPICOM_E_ATTRIBUTE_VALUE_NOT_INITIALIZED = $80880241;
  CAPICOM_E_ATTRIBUTE_INVALID_NAME = $80880242;
  CAPICOM_E_ATTRIBUTE_INVALID_VALUE = $80880243;
  CAPICOM_E_SIGNER_NOT_INITIALIZED = $80880250;
  CAPICOM_E_SIGNER_NOT_FOUND = $80880251;
  CAPICOM_E_SIGNER_NO_CHAIN = $80880252;
  CAPICOM_E_SIGNER_INVALID_USAGE = $80880253;
  CAPICOM_E_SIGN_NOT_INITIALIZED = $80880260;
  CAPICOM_E_SIGN_INVALID_TYPE = $80880261;
  CAPICOM_E_SIGN_NOT_SIGNED = $80880262;
  CAPICOM_E_INVALID_ALGORITHM = $80880270;
  CAPICOM_E_INVALID_KEY_LENGTH = $80880271;
  CAPICOM_E_ENVELOP_NOT_INITIALIZED = $80880280;
  CAPICOM_E_ENVELOP_INVALID_TYPE = $80880281;
  CAPICOM_E_ENVELOP_NO_RECIPIENT = $80880282;
  CAPICOM_E_ENVELOP_RECIPIENT_NOT_FOUND = $80880283;
  CAPICOM_E_ENCRYPT_NOT_INITIALIZED = $80880290;
  CAPICOM_E_ENCRYPT_INVALID_TYPE = $80880291;
  CAPICOM_E_ENCRYPT_NO_SECRET = $80880292;
  CAPICOM_E_NOT_SUPPORTED = $80880900;
  CAPICOM_E_UI_DISABLED = $80880901;
  CAPICOM_E_CANCELLED = $80880902;
  CAPICOM_E_NOT_ALLOWED = $80880903;
  CAPICOM_E_OUT_OF_RESOURCE = $80880904;
  CAPICOM_E_INTERNAL = $80880911;
  CAPICOM_E_UNKNOWN = $80880999;
  CAPICOM_E_PRIVATE_KEY_NOT_INITIALIZED = $80880300;
  CAPICOM_E_PRIVATE_KEY_NOT_EXPORTABLE = $80880301;
  CAPICOM_E_ENCODE_NOT_INITIALIZED = $80880320;
  CAPICOM_E_EXTENSION_NOT_INITIALIZED = $80880330;
  CAPICOM_E_PROPERTY_NOT_INITIALIZED = $80880340;
  CAPICOM_E_FIND_INVALID_TYPE = $80880350;
  CAPICOM_E_FIND_INVALID_PREDEFINED_POLICY = $80880351;
  CAPICOM_E_CODE_NOT_INITIALIZED = $80880360;
  CAPICOM_E_CODE_NOT_SIGNED = $80880361;
  CAPICOM_E_CODE_DESCRIPTION_NOT_INITIALIZED = $80880362;
  CAPICOM_E_CODE_DESCRIPTION_URL_NOT_INITIALIZED = $80880363;
  CAPICOM_E_CODE_INVALID_TIMESTAMP_URL = $80880364;
  CAPICOM_E_HASH_NO_DATA = $80880370;
  CAPICOM_E_INVALID_CONVERT_TYPE = $80880380;

// Constants for enum CAPICOM_ENCODING_TYPE
type
  CAPICOM_ENCODING_TYPE = TOleEnum;
const
  CAPICOM_ENCODE_BASE64 = $00000000;
  CAPICOM_ENCODE_BINARY = $00000001;
  CAPICOM_ENCODE_ANY = $FFFFFFFF;

// Constants for enum CAPICOM_EKU
type
  CAPICOM_EKU = TOleEnum;
const
  CAPICOM_EKU_OTHER = $00000000;
  CAPICOM_EKU_SERVER_AUTH = $00000001;
  CAPICOM_EKU_CLIENT_AUTH = $00000002;
  CAPICOM_EKU_CODE_SIGNING = $00000003;
  CAPICOM_EKU_EMAIL_PROTECTION = $00000004;
  CAPICOM_EKU_SMARTCARD_LOGON = $00000005;
  CAPICOM_EKU_ENCRYPTING_FILE_SYSTEM = $00000006;

// Constants for enum CAPICOM_CHECK_FLAG
type
  CAPICOM_CHECK_FLAG = TOleEnum;
const
  CAPICOM_CHECK_NONE = $00000000;
  CAPICOM_CHECK_TRUSTED_ROOT = $00000001;
  CAPICOM_CHECK_TIME_VALIDITY = $00000002;
  CAPICOM_CHECK_SIGNATURE_VALIDITY = $00000004;
  CAPICOM_CHECK_ONLINE_REVOCATION_STATUS = $00000008;
  CAPICOM_CHECK_OFFLINE_REVOCATION_STATUS = $00000010;
  CAPICOM_CHECK_COMPLETE_CHAIN = $00000020;
  CAPICOM_CHECK_NAME_CONSTRAINTS = $00000040;
  CAPICOM_CHECK_BASIC_CONSTRAINTS = $00000080;
  CAPICOM_CHECK_NESTED_VALIDITY_PERIOD = $00000100;
  CAPICOM_CHECK_ONLINE_ALL = $000001EF;
  CAPICOM_CHECK_OFFLINE_ALL = $000001F7;

// Constants for enum CAPICOM_CERT_INFO_TYPE
type
  CAPICOM_CERT_INFO_TYPE = TOleEnum;
const
  CAPICOM_CERT_INFO_SUBJECT_SIMPLE_NAME = $00000000;
  CAPICOM_CERT_INFO_ISSUER_SIMPLE_NAME = $00000001;
  CAPICOM_CERT_INFO_SUBJECT_EMAIL_NAME = $00000002;
  CAPICOM_CERT_INFO_ISSUER_EMAIL_NAME = $00000003;
  CAPICOM_CERT_INFO_SUBJECT_UPN = $00000004;
  CAPICOM_CERT_INFO_ISSUER_UPN = $00000005;
  CAPICOM_CERT_INFO_SUBJECT_DNS_NAME = $00000006;
  CAPICOM_CERT_INFO_ISSUER_DNS_NAME = $00000007;

// Constants for enum CAPICOM_STORE_LOCATION
type
  CAPICOM_STORE_LOCATION = TOleEnum;
const