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 library 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: 52393 $ // File generated on 29/04/2017 09:49:32 from Type Library described below. // ************************************************************************ // // Type Lib: C:\WINDOWS\System32\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) // SYS_KIND: SYS_WIN32 // Errors: // Error creating palette bitmap of (TSettings) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TEKU) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TEKUs) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TKeyUsage) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TExtendedKeyUsage) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TBasicConstraints) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TCertificateStatus) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TCertificate) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TCertificates) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TChain) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TStore) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TAttribute) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TAttributes) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TSigner) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TSigners) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TSignedData) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TAlgorithm) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TRecipients) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TEnvelopedData) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TEncryptedData) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TOID) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TOIDs) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TNoticeNumbers) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TQualifier) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TQualifiers) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TPolicyInformation) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TCertificatePolicies) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TEncodedData) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TExtension) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TExtensions) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TExtendedProperty) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TExtendedProperties) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TTemplate) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TPublicKey) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TPrivateKey) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TSignedCode) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (THashedData) : Server C:\WINDOWS\System32\capicom.dll contains no icons // Error creating palette bitmap of (TUtilities) : Server C:\WINDOWS\System32\capicom.dll contains no icons // ************************************************************************ // {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. {$WARN SYMBOL_PLATFORM OFF} {$WRITEABLECONST ON} {$VARPROPSETTER ON} {$ALIGN 4} interface uses Winapi.Windows, System.Classes, System.Variants, System.Win.StdVCL, Vcl.Graphics, Vcl.OleServer, Winapi.ActiveX; // *********************************************************************// // 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 = '{17E3A1C3-EA8A-4970-AF29-7F54610B1D4C}'; 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 CAPICOM_MEMORY_STORE = $00000000; CAPICOM_LOCAL_MACHINE_STORE = $00000001; CAPICOM_CURRENT_USER_STORE = $00000002; CAPICOM_ACTIVE_DIRECTORY_USER_STORE = $00000003; CAPICOM_SMART_CARD_USER_STORE = $00000004; // Constants for enum CAPICOM_STORE_OPEN_MODE type CAPICOM_STORE_OPEN_MODE = TOleEnum; const CAPICOM_STORE_OPEN_READ_ONLY = $00000000; CAPICOM_STORE_OPEN_READ_WRITE = $00000001; CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED = $00000002; CAPICOM_STORE_OPEN_EXISTING_ONLY = $00000080; CAPICOM_STORE_OPEN_INCLUDE_ARCHIVED = $00000100; // Constants for enum CAPICOM_ACTIVE_DIRECTORY_SEARCH_LOCATION type CAPICOM_ACTIVE_DIRECTORY_SEARCH_LOCATION = TOleEnum; const CAPICOM_SEARCH_ANY = $00000000; CAPICOM_SEARCH_GLOBAL_CATALOG = $00000001; CAPICOM_SEARCH_DEFAULT_DOMAIN = $00000002; // Constants for enum CAPICOM_STORE_SAVE_AS_TYPE type CAPICOM_STORE_SAVE_AS_TYPE = TOleEnum; const CAPICOM_STORE_SAVE_AS_SERIALIZED = $00000000; CAPICOM_STORE_SAVE_AS_PKCS7 = $00000001; // Constants for enum CAPICOM_ATTRIBUTE type CAPICOM_ATTRIBUTE = TOleEnum; const CAPICOM_AUTHENTICATED_ATTRIBUTE_SIGNING_TIME = $00000000; CAPICOM_AUTHENTICATED_ATTRIBUTE_DOCUMENT_NAME = $00000001; CAPICOM_AUTHENTICATED_ATTRIBUTE_DOCUMENT_DESCRIPTION = $00000002; // Constants for enum CAPICOM_SIGNED_DATA_VERIFY_FLAG type CAPICOM_SIGNED_DATA_VERIFY_FLAG = TOleEnum; const CAPICOM_VERIFY_SIGNATURE_ONLY = $00000000; CAPICOM_VERIFY_SIGNATURE_AND_CERTIFICATE = $00000001; // Constants for enum CAPICOM_ENCRYPTION_ALGORITHM type CAPICOM_ENCRYPTION_ALGORITHM = TOleEnum; const CAPICOM_ENCRYPTION_ALGORITHM_RC2 = $00000000; CAPICOM_ENCRYPTION_ALGORITHM_RC4 = $00000001; CAPICOM_ENCRYPTION_ALGORITHM_DES = $00000002; CAPICOM_ENCRYPTION_ALGORITHM_3DES = $00000003; CAPICOM_ENCRYPTION_ALGORITHM_AES = $00000004; // Constants for enum CAPICOM_ENCRYPTION_KEY_LENGTH type CAPICOM_ENCRYPTION_KEY_LENGTH = TOleEnum; const CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUM = $00000000; CAPICOM_ENCRYPTION_KEY_LENGTH_40_BITS = $00000001; CAPICOM_ENCRYPTION_KEY_LENGTH_56_BITS = $00000002; CAPICOM_ENCRYPTION_KEY_LENGTH_128_BITS = $00000003; CAPICOM_ENCRYPTION_KEY_LENGTH_192_BITS = $00000004; CAPICOM_ENCRYPTION_KEY_LENGTH_256_BITS = $00000005; // Constants for enum CAPICOM_SECRET_TYPE type CAPICOM_SECRET_TYPE = TOleEnum; const CAPICOM_SECRET_PASSWORD = $00000000; // Constants for enum CAPICOM_KEY_ALGORITHM type CAPICOM_KEY_ALGORITHM = TOleEnum; const CAPICOM_KEY_ALGORITHM_OTHER = $00000000; CAPICOM_KEY_ALGORITHM_RSA = $00000001; CAPICOM_KEY_ALGORITHM_DSS = $00000002; // Constants for enum CAPICOM_OID type CAPICOM_OID = TOleEnum; const CAPICOM_OID_OTHER = $00000000; CAPICOM_OID_AUTHORITY_KEY_IDENTIFIER_EXTENSION = $00000001; CAPICOM_OID_KEY_ATTRIBUTES_EXTENSION = $00000002; CAPICOM_OID_CERT_POLICIES_95_EXTENSION = $00000003; CAPICOM_OID_KEY_USAGE_RESTRICTION_EXTENSION = $00000004; CAPICOM_OID_LEGACY_POLICY_MAPPINGS_EXTENSION = $00000005; CAPICOM_OID_SUBJECT_ALT_NAME_EXTENSION = $00000006; CAPICOM_OID_ISSUER_ALT_NAME_EXTENSION = $00000007; CAPICOM_OID_BASIC_CONSTRAINTS_EXTENSION = $00000008; CAPICOM_OID_SUBJECT_KEY_IDENTIFIER_EXTENSION = $00000009; CAPICOM_OID_KEY_USAGE_EXTENSION = $0000000A; CAPICOM_OID_PRIVATEKEY_USAGE_PERIOD_EXTENSION = $0000000B; CAPICOM_OID_SUBJECT_ALT_NAME2_EXTENSION = $0000000C; CAPICOM_OID_ISSUER_ALT_NAME2_EXTENSION = $0000000D; CAPICOM_OID_BASIC_CONSTRAINTS2_EXTENSION = $0000000E; CAPICOM_OID_NAME_CONSTRAINTS_EXTENSION = $0000000F; CAPICOM_OID_CRL_DIST_POINTS_EXTENSION = $00000010; CAPICOM_OID_CERT_POLICIES_EXTENSION = $00000011; CAPICOM_OID_POLICY_MAPPINGS_EXTENSION = $00000012; CAPICOM_OID_AUTHORITY_KEY_IDENTIFIER2_EXTENSION = $00000013; CAPICOM_OID_POLICY_CONSTRAINTS_EXTENSION = $00000014; CAPICOM_OID_ENHANCED_KEY_USAGE_EXTENSION = $00000015; CAPICOM_OID_CERTIFICATE_TEMPLATE_EXTENSION = $00000016; CAPICOM_OID_APPLICATION_CERT_POLICIES_EXTENSION = $00000017; CAPICOM_OID_APPLICATION_POLICY_MAPPINGS_EXTENSION = $00000018; CAPICOM_OID_APPLICATION_POLICY_CONSTRAINTS_EXTENSION = $00000019; CAPICOM_OID_AUTHORITY_INFO_ACCESS_EXTENSION = $0000001A; CAPICOM_OID_SERVER_AUTH_EKU = $00000064; CAPICOM_OID_CLIENT_AUTH_EKU = $00000065; CAPICOM_OID_CODE_SIGNING_EKU = $00000066; CAPICOM_OID_EMAIL_PROTECTION_EKU = $00000067; CAPICOM_OID_IPSEC_END_SYSTEM_EKU = $00000068; CAPICOM_OID_IPSEC_TUNNEL_EKU = $00000069; CAPICOM_OID_IPSEC_USER_EKU = $0000006A; CAPICOM_OID_TIME_STAMPING_EKU = $0000006B; CAPICOM_OID_CTL_USAGE_SIGNING_EKU = $0000006C; CAPICOM_OID_TIME_STAMP_SIGNING_EKU = $0000006D; CAPICOM_OID_SERVER_GATED_CRYPTO_EKU = $0000006E; CAPICOM_OID_ENCRYPTING_FILE_SYSTEM_EKU = $0000006F; CAPICOM_OID_EFS_RECOVERY_EKU = $00000070; CAPICOM_OID_WHQL_CRYPTO_EKU = $00000071; CAPICOM_OID_NT5_CRYPTO_EKU = $00000072; CAPICOM_OID_OEM_WHQL_CRYPTO_EKU = $00000073; CAPICOM_OID_EMBEDED_NT_CRYPTO_EKU = $00000074; CAPICOM_OID_ROOT_LIST_SIGNER_EKU = $00000075; CAPICOM_OID_QUALIFIED_SUBORDINATION_EKU = $00000076; CAPICOM_OID_KEY_RECOVERY_EKU = $00000077; CAPICOM_OID_DIGITAL_RIGHTS_EKU = $00000078; CAPICOM_OID_LICENSES_EKU = $00000079; CAPICOM_OID_LICENSE_SERVER_EKU = $0000007A; CAPICOM_OID_SMART_CARD_LOGON_EKU = $0000007B; CAPICOM_OID_PKIX_POLICY_QUALIFIER_CPS = $0000007C; CAPICOM_OID_PKIX_POLICY_QUALIFIER_USERNOTICE = $0000007D; // Constants for enum CAPICOM_PROPID type CAPICOM_PROPID = TOleEnum; const CAPICOM_PROPID_UNKNOWN = $00000000; CAPICOM_PROPID_KEY_PROV_HANDLE = $00000001; CAPICOM_PROPID_KEY_PROV_INFO = $00000002; CAPICOM_PROPID_SHA1_HASH = $00000003; CAPICOM_PROPID_HASH_PROP = $00000003; CAPICOM_PROPID_MD5_HASH = $00000004; CAPICOM_PROPID_KEY_CONTEXT = $00000005; CAPICOM_PROPID_KEY_SPEC = $00000006; CAPICOM_PROPID_IE30_RESERVED = $00000007; CAPICOM_PROPID_PUBKEY_HASH_RESERVED = $00000008; CAPICOM_PROPID_ENHKEY_USAGE = $00000009; CAPICOM_PROPID_CTL_USAGE = $00000009; CAPICOM_PROPID_NEXT_UPDATE_LOCATION = $0000000A; CAPICOM_PROPID_FRIENDLY_NAME = $0000000B; CAPICOM_PROPID_PVK_FILE = $0000000C; CAPICOM_PROPID_DESCRIPTION = $0000000D; CAPICOM_PROPID_ACCESS_STATE = $0000000E; CAPICOM_PROPID_SIGNATURE_HASH = $0000000F; CAPICOM_PROPID_SMART_CARD_DATA = $00000010; CAPICOM_PROPID_EFS = $00000011; CAPICOM_PROPID_FORTEZZA_DATA = $00000012; CAPICOM_PROPID_ARCHIVED = $00000013; CAPICOM_PROPID_KEY_IDENTIFIER = $00000014; CAPICOM_PROPID_AUTO_ENROLL = $00000015; CAPICOM_PROPID_PUBKEY_ALG_PARA = $00000016; CAPICOM_PROPID_CROSS_CERT_DIST_POINTS = $00000017; CAPICOM_PROPID_ISSUER_PUBLIC_KEY_MD5_HASH = $00000018; CAPICOM_PROPID_SUBJECT_PUBLIC_KEY_MD5_HASH = $00000019; CAPICOM_PROPID_ENROLLMENT = $0000001A; CAPICOM_PROPID_DATE_STAMP = $0000001B; CAPICOM_PROPID_ISSUER_SERIAL_NUMBER_MD5_HASH = $0000001C; CAPICOM_PROPID_SUBJECT_NAME_MD5_HASH = $0000001D; CAPICOM_PROPID_EXTENDED_ERROR_INFO = $0000001E; CAPICOM_PROPID_RENEWAL = $00000040; CAPICOM_PROPID_ARCHIVED_KEY_HASH = $00000041; CAPICOM_PROPID_FIRST_RESERVED = $00000042; CAPICOM_PROPID_LAST_RESERVED = $00007FFF; CAPICOM_PROPID_FIRST_USER = $00008000; CAPICOM_PROPID_LAST_USER = $0000FFFF; // Constants for enum CAPICOM_PROV_TYPE type CAPICOM_PROV_TYPE = TOleEnum; const CAPICOM_PROV_RSA_FULL = $00000001; CAPICOM_PROV_RSA_SIG = $00000002; CAPICOM_PROV_DSS = $00000003; CAPICOM_PROV_FORTEZZA = $00000004; CAPICOM_PROV_MS_EXCHANGE = $00000005; CAPICOM_PROV_SSL = $00000006; CAPICOM_PROV_RSA_SCHANNEL = $0000000C; CAPICOM_PROV_DSS_DH = $0000000D; CAPICOM_PROV_EC_ECDSA_SIG = $0000000E; CAPICOM_PROV_EC_ECNRA_SIG = $0000000F; CAPICOM_PROV_EC_ECDSA_FULL = $00000010; CAPICOM_PROV_EC_ECNRA_FULL = $00000011; CAPICOM_PROV_DH_SCHANNEL = $00000012; CAPICOM_PROV_SPYRUS_LYNKS = $00000014; CAPICOM_PROV_RNG = $00000015; CAPICOM_PROV_INTEL_SEC = $00000016; CAPICOM_PROV_REPLACE_OWF = $00000017; CAPICOM_PROV_RSA_AES = $00000018; // Constants for enum CAPICOM_CERTIFICATE_SAVE_AS_TYPE type CAPICOM_CERTIFICATE_SAVE_AS_TYPE = TOleEnum; const CAPICOM_CERTIFICATE_SAVE_AS_PFX = $00000000; CAPICOM_CERTIFICATE_SAVE_AS_CER = $00000001; // Constants for enum CAPICOM_CERTIFICATES_SAVE_AS_TYPE type CAPICOM_CERTIFICATES_SAVE_AS_TYPE = TOleEnum; const CAPICOM_CERTIFICATES_SAVE_AS_SERIALIZED = $00000000; CAPICOM_CERTIFICATES_SAVE_AS_PKCS7 = $00000001; CAPICOM_CERTIFICATES_SAVE_AS_PFX = $00000002; // Constants for enum CAPICOM_CERTIFICATE_INCLUDE_OPTION type CAPICOM_CERTIFICATE_INCLUDE_OPTION = TOleEnum; const CAPICOM_CERTIFICATE_INCLUDE_CHAIN_EXCEPT_ROOT = $00000000; CAPICOM_CERTIFICATE_INCLUDE_WHOLE_CHAIN = $00000001; CAPICOM_CERTIFICATE_INCLUDE_END_ENTITY_ONLY = $00000002; // Constants for enum CAPICOM_KEY_SPEC type CAPICOM_KEY_SPEC = TOleEnum; const CAPICOM_KEY_SPEC_KEYEXCHANGE = $00000001; CAPICOM_KEY_SPEC_SIGNATURE = $00000002; // Constants for enum CAPICOM_KEY_LOCATION type CAPICOM_KEY_LOCATION = TOleEnum; const CAPICOM_CURRENT_USER_KEY = $00000000; CAPICOM_LOCAL_MACHINE_KEY = $00000001; // Constants for enum CAPICOM_KEY_STORAGE_FLAG type CAPICOM_KEY_STORAGE_FLAG = TOleEnum; const CAPICOM_KEY_STORAGE_DEFAULT = $00000000; CAPICOM_KEY_STORAGE_EXPORTABLE = $00000001; CAPICOM_KEY_STORAGE_USER_PROTECTED = $00000002; // Constants for enum CAPICOM_EXPORT_FLAG type CAPICOM_EXPORT_FLAG = TOleEnum; const CAPICOM_EXPORT_DEFAULT = $00000000; CAPICOM_EXPORT_IGNORE_PRIVATE_KEY_NOT_EXPORTABLE_ERROR = $00000001; // Constants for enum CAPICOM_KEY_USAGE type CAPICOM_KEY_USAGE = TOleEnum; const CAPICOM_DIGITAL_SIGNATURE_KEY_USAGE = $00000080; CAPICOM_NON_REPUDIATION_KEY_USAGE = $00000040; CAPICOM_KEY_ENCIPHERMENT_KEY_USAGE = $00000020; CAPICOM_DATA_ENCIPHERMENT_KEY_USAGE = $00000010; CAPICOM_KEY_AGREEMENT_KEY_USAGE = $00000008; CAPICOM_KEY_CERT_SIGN_KEY_USAGE = $00000004; CAPICOM_OFFLINE_CRL_SIGN_KEY_USAGE = $00000002; CAPICOM_CRL_SIGN_KEY_USAGE = $00000002; CAPICOM_ENCIPHER_ONLY_KEY_USAGE = $00000001; CAPICOM_DECIPHER_ONLY_KEY_USAGE = $00008000; // Constants for enum CAPICOM_CERTIFICATE_FIND_TYPE type CAPICOM_CERTIFICATE_FIND_TYPE = TOleEnum; const CAPICOM_CERTIFICATE_FIND_SHA1_HASH = $00000000; CAPICOM_CERTIFICATE_FIND_SUBJECT_NAME = $00000001; CAPICOM_CERTIFICATE_FIND_ISSUER_NAME = $00000002; CAPICOM_CERTIFICATE_FIND_ROOT_NAME = $00000003; CAPICOM_CERTIFICATE_FIND_TEMPLATE_NAME = $00000004; CAPICOM_CERTIFICATE_FIND_EXTENSION = $00000005; CAPICOM_CERTIFICATE_FIND_EXTENDED_PROPERTY = $00000006; CAPICOM_CERTIFICATE_FIND_APPLICATION_POLICY = $00000007; CAPICOM_CERTIFICATE_FIND_CERTIFICATE_POLICY = $00000008; CAPICOM_CERTIFICATE_FIND_TIME_VALID = $00000009; CAPICOM_CERTIFICATE_FIND_TIME_NOT_YET_VALID = $0000000A; CAPICOM_CERTIFICATE_FIND_TIME_EXPIRED = $0000000B; CAPICOM_CERTIFICATE_FIND_KEY_USAGE = $0000000C; // Constants for enum CAPICOM_HASH_ALGORITHM type CAPICOM_HASH_ALGORITHM = TOleEnum; const CAPICOM_HASH_ALGORITHM_SHA1 = $00000000; CAPICOM_HASH_ALGORITHM_MD2 = $00000001; CAPICOM_HASH_ALGORITHM_MD4 = $00000002; CAPICOM_HASH_ALGORITHM_MD5 = $00000003; CAPICOM_HASH_ALGORITHM_SHA_256 = $00000004; CAPICOM_HASH_ALGORITHM_SHA_384 = $00000005; CAPICOM_HASH_ALGORITHM_SHA_512 = $00000006; type // *********************************************************************// // Forward declaration of types defined in TypeLibrary // *********************************************************************// ISettings = interface; ISettingsDisp = dispinterface; IEKU = interface; IEKUDisp = dispinterface; IEKUs = interface; IEKUsDisp = dispinterface; IKeyUsage = interface; IKeyUsageDisp = dispinterface; IExtendedKeyUsage = interface; IExtendedKeyUsageDisp = dispinterface; IBasicConstraints = interface; IBasicConstraintsDisp = dispinterface; ICertificateStatus = interface; ICertificateStatusDisp = dispinterface; ICertificateStatus2 = interface; ICertificateStatus2Disp = dispinterface; ICertificateStatus3 = interface; ICertificateStatus3Disp = dispinterface; IOIDs = interface; IOIDsDisp = dispinterface; IOID = interface; IOIDDisp = dispinterface; ICertificates = interface; ICertificatesDisp = dispinterface; ICertificate = interface; ICertificateDisp = dispinterface; ICertificate2 = interface; ICertificate2Disp = dispinterface; ICertContext = interface; ITemplate = interface; ITemplateDisp = dispinterface; IPublicKey = interface; IPublicKeyDisp = dispinterface; IEncodedData = interface; IEncodedDataDisp = dispinterface; IPrivateKey = interface; IPrivateKeyDisp = dispinterface; IExtensions = interface; IExtensionsDisp = dispinterface; IExtendedProperties = interface; IExtendedPropertiesDisp = dispinterface; IExtendedProperty = interface; IExtendedPropertyDisp = dispinterface; ICertificates2 = interface; ICertificates2Disp = dispinterface; ICCertificates = interface; IChain = interface; IChainDisp = dispinterface; IChain2 = interface; IChain2Disp = dispinterface; IChainContext = interface; IStore = interface; IStoreDisp = dispinterface; IStore2 = interface; IStore2Disp = dispinterface; IStore3 = interface; IStore3Disp = dispinterface; ICertStore = interface; IAttribute = interface; IAttributeDisp = dispinterface; IAttributes = interface; IAttributesDisp = dispinterface; ISigner = interface; ISignerDisp = dispinterface; ISigner2 = interface; ISigner2Disp = dispinterface; ICSigner = interface; ISigners = interface; ISignersDisp = dispinterface; ISignedData = interface; ISignedDataDisp = dispinterface; IAlgorithm = interface; IAlgorithmDisp = dispinterface; IRecipients = interface; IRecipientsDisp = dispinterface; IEnvelopedData = interface; IEnvelopedDataDisp = dispinterface; IEncryptedData = interface; IEncryptedDataDisp = dispinterface; INoticeNumbers = interface; INoticeNumbersDisp = dispinterface; IQualifier = interface; IQualifierDisp = dispinterface; IQualifiers = interface; IQualifiersDisp = dispinterface; IPolicyInformation = interface; IPolicyInformationDisp = dispinterface; ICertificatePolicies = interface; ICertificatePoliciesDisp = dispinterface; IExtension = interface; IExtensionDisp = dispinterface; ICPrivateKey = interface; ISignedCode = interface; ISignedCodeDisp = dispinterface; IHashedData = interface; IHashedDataDisp = dispinterface; IUtilities = interface; IUtilitiesDisp = dispinterface; // *********************************************************************// // Declaration of CoClasses defined in Type Library // (NOTE: Here we map each CoClass to its Default Interface) // *********************************************************************// Settings = ISettings; EKU = IEKU; EKUs = IEKUs; KeyUsage = IKeyUsage; ExtendedKeyUsage = IExtendedKeyUsage; BasicConstraints = IBasicConstraints; CertificateStatus = ICertificateStatus3; Certificate = ICertificate2; Certificates = ICertificates2; Chain = IChain2; Store = IStore3; Attribute = IAttribute; Attributes = IAttributes; Signer = ISigner2; Signers = ISigners; SignedData = ISignedData; Algorithm = IAlgorithm; Recipients = IRecipients; EnvelopedData = IEnvelopedData; EncryptedData = IEncryptedData; OID = IOID; OIDs = IOIDs; NoticeNumbers = INoticeNumbers; Qualifier = IQualifier; Qualifiers = IQualifiers; PolicyInformation = IPolicyInformation; CertificatePolicies = ICertificatePolicies; EncodedData = IEncodedData; Extension = IExtension; Extensions = IExtensions; ExtendedProperty = IExtendedProperty; ExtendedProperties = IExtendedProperties; Template = ITemplate; PublicKey = IPublicKey; PrivateKey = IPrivateKey; SignedCode = ISignedCode; HashedData = IHashedData; Utilities = IUtilities; // *********************************************************************// // Declaration of structures, unions and aliases. // *********************************************************************// PUserType1 = ^_CRYPT_KEY_PROV_INFO; {*} PUserType2 = ^_CERT_KEY_CONTEXT; {*} _CRYPT_KEY_PROV_PARAM = record dwParam: LongWord; pbData: ^Byte; cbData: LongWord; dwFlags: LongWord; end; _CRYPT_KEY_PROV_INFO = record pwszContainerName: PWideChar; pwszProvName: PWideChar; dwProvType: LongWord; dwFlags: LongWord; cProvParam: LongWord; rgProvParam: ^_CRYPT_KEY_PROV_PARAM; dwKeySpec: LongWord; end; _CERT_KEY_CONTEXT = record cbSize: LongWord; hCryptProv: LongWord; dwKeySpec: LongWord; end; // *********************************************************************// // Interface: ISettings // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {A24104F5-46D0-4C0F-926D-665565908E91} // *********************************************************************// ISettings = interface(IDispatch) ['{A24104F5-46D0-4C0F-926D-665565908E91}'] function Get_EnablePromptForCertificateUI: WordBool; safecall; procedure Set_EnablePromptForCertificateUI(pVal: WordBool); safecall; function Get_ActiveDirectorySearchLocation: CAPICOM_ACTIVE_DIRECTORY_SEARCH_LOCATION; safecall; procedure Set_ActiveDirectorySearchLocation(pVal: CAPICOM_ACTIVE_DIRECTORY_SEARCH_LOCATION); safecall; property EnablePromptForCertificateUI: WordBool read Get_EnablePromptForCertificateUI write Set_EnablePromptForCertificateUI; property ActiveDirectorySearchLocation: CAPICOM_ACTIVE_DIRECTORY_SEARCH_LOCATION read Get_ActiveDirectorySearchLocation write Set_ActiveDirectorySearchLocation; end; // *********************************************************************// // DispIntf: ISettingsDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {A24104F5-46D0-4C0F-926D-665565908E91} // *********************************************************************// ISettingsDisp = dispinterface ['{A24104F5-46D0-4C0F-926D-665565908E91}'] property EnablePromptForCertificateUI: WordBool dispid 1; property ActiveDirectorySearchLocation: CAPICOM_ACTIVE_DIRECTORY_SEARCH_LOCATION dispid 2; end; // *********************************************************************// // Interface: IEKU // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {976B7E6D-1002-4051-BFD4-824A74BD74E2} // *********************************************************************// IEKU = interface(IDispatch) ['{976B7E6D-1002-4051-BFD4-824A74BD74E2}'] function Get_Name: CAPICOM_EKU; safecall; procedure Set_Name(pVal: CAPICOM_EKU); safecall; function Get_OID: WideString; safecall; procedure Set_OID(const pVal: WideString); safecall; property Name: CAPICOM_EKU read Get_Name write Set_Name; property OID: WideString read Get_OID write Set_OID; end; // *********************************************************************// // DispIntf: IEKUDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {976B7E6D-1002-4051-BFD4-824A74BD74E2} // *********************************************************************// IEKUDisp = dispinterface ['{976B7E6D-1002-4051-BFD4-824A74BD74E2}'] property Name: CAPICOM_EKU dispid 0; property OID: WideString dispid 1; end; // *********************************************************************// // Interface: IEKUs // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {47C87CEC-8C4B-4E3C-8D22-34280274EFD1} // *********************************************************************// IEKUs = interface(IDispatch) ['{47C87CEC-8C4B-4E3C-8D22-34280274EFD1}'] function Get_Item(Index: Integer): OleVariant; safecall; function Get_Count: Integer; safecall; 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: IEKUsDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {47C87CEC-8C4B-4E3C-8D22-34280274EFD1} // *********************************************************************// IEKUsDisp = dispinterface ['{47C87CEC-8C4B-4E3C-8D22-34280274EFD1}'] property Item[Index: Integer]: OleVariant readonly dispid 0; default; property Count: Integer readonly dispid 1; property _NewEnum: IUnknown readonly dispid -4; end; // *********************************************************************// // Interface: IKeyUsage // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {41DD35A8-9FF9-45A6-9A7C-F65B2F085D1F} // *********************************************************************// IKeyUsage = interface(IDispatch) ['{41DD35A8-9FF9-45A6-9A7C-F65B2F085D1F}'] function Get_IsPresent: WordBool; safecall; function Get_IsCritical: WordBool; safecall; function Get_IsDigitalSignatureEnabled: WordBool; safecall; function Get_IsNonRepudiationEnabled: WordBool; safecall; function Get_IsKeyEnciphermentEnabled: WordBool; safecall; function Get_IsDataEnciphermentEnabled: WordBool; safecall; function Get_IsKeyAgreementEnabled: WordBool; safecall; function Get_IsKeyCertSignEnabled: WordBool; safecall; function Get_IsCRLSignEnabled: WordBool; safecall; function Get_IsEncipherOnlyEnabled: WordBool; safecall; function Get_IsDecipherOnlyEnabled: WordBool; safecall; property IsPresent: WordBool read Get_IsPresent; property IsCritical: WordBool read Get_IsCritical; property IsDigitalSignatureEnabled: WordBool read Get_IsDigitalSignatureEnabled; property IsNonRepudiationEnabled: WordBool read Get_IsNonRepudiationEnabled; property IsKeyEnciphermentEnabled: WordBool read Get_IsKeyEnciphermentEnabled; property IsDataEnciphermentEnabled: WordBool read Get_IsDataEnciphermentEnabled; property IsKeyAgreementEnabled: WordBool read Get_IsKeyAgreementEnabled; property IsKeyCertSignEnabled: WordBool read Get_IsKeyCertSignEnabled; property IsCRLSignEnabled: WordBool read Get_IsCRLSignEnabled; property IsEncipherOnlyEnabled: WordBool read Get_IsEncipherOnlyEnabled; property IsDecipherOnlyEnabled: WordBool read Get_IsDecipherOnlyEnabled; end; // *********************************************************************// // DispIntf: IKeyUsageDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {41DD35A8-9FF9-45A6-9A7C-F65B2F085D1F} // *********************************************************************// IKeyUsageDisp = dispinterface ['{41DD35A8-9FF9-45A6-9A7C-F65B2F085D1F}'] property IsPresent: WordBool readonly dispid 1; property IsCritical: WordBool readonly dispid 2; property IsDigitalSignatureEnabled: WordBool readonly dispid 3; property IsNonRepudiationEnabled: WordBool readonly dispid 4; property IsKeyEnciphermentEnabled: WordBool readonly dispid 5; property IsDataEnciphermentEnabled: WordBool readonly dispid 6; property IsKeyAgreementEnabled: WordBool readonly dispid 7; property IsKeyCertSignEnabled: WordBool readonly dispid 8; property IsCRLSignEnabled: WordBool readonly dispid 9; property IsEncipherOnlyEnabled: WordBool readonly dispid 10; property IsDecipherOnlyEnabled: WordBool readonly dispid 11; end; // *********************************************************************// // Interface: IExtendedKeyUsage // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {7289D408-987D-45D1-8DEE-CF9E91C2E90E} // *********************************************************************// IExtendedKeyUsage = interface(IDispatch) ['{7289D408-987D-45D1-8DEE-CF9E91C2E90E}'] function Get_IsPresent: WordBool; safecall; function Get_IsCritical: WordBool; safecall; function Get_EKUs: IEKUs; safecall; property IsPresent: WordBool read Get_IsPresent; property IsCritical: WordBool read Get_IsCritical; property EKUs: IEKUs read Get_EKUs; end; // *********************************************************************// // DispIntf: IExtendedKeyUsageDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {7289D408-987D-45D1-8DEE-CF9E91C2E90E} // *********************************************************************// IExtendedKeyUsageDisp = dispinterface ['{7289D408-987D-45D1-8DEE-CF9E91C2E90E}'] property IsPresent: WordBool readonly dispid 1; property IsCritical: WordBool readonly dispid 2; property EKUs: IEKUs readonly dispid 3; end; // *********************************************************************// // Interface: IBasicConstraints // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {4E298C47-ABA6-459E-851B-993D6C626EAD} // *********************************************************************// IBasicConstraints = interface(IDispatch) ['{4E298C47-ABA6-459E-851B-993D6C626EAD}'] function Get_IsPresent: WordBool; safecall; function Get_IsCritical: WordBool; safecall; function Get_IsCertificateAuthority: WordBool; safecall; function Get_IsPathLenConstraintPresent: WordBool; safecall; function Get_PathLenConstraint: Integer; safecall; property IsPresent: WordBool read Get_IsPresent; property IsCritical: WordBool read Get_IsCritical; property IsCertificateAuthority: WordBool read Get_IsCertificateAuthority; property IsPathLenConstraintPresent: WordBool read Get_IsPathLenConstraintPresent; property PathLenConstraint: Integer read Get_PathLenConstraint; end; // *********************************************************************// // DispIntf: IBasicConstraintsDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {4E298C47-ABA6-459E-851B-993D6C626EAD} // *********************************************************************// IBasicConstraintsDisp = dispinterface ['{4E298C47-ABA6-459E-851B-993D6C626EAD}'] property IsPresent: WordBool readonly dispid 1; property IsCritical: WordBool readonly dispid 2; property IsCertificateAuthority: WordBool readonly dispid 3; property IsPathLenConstraintPresent: WordBool readonly dispid 4; property PathLenConstraint: Integer readonly dispid 5; end; // *********************************************************************// // Interface: ICertificateStatus // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {AB769053-6D38-49D4-86EF-5FA85ED3AF27} // *********************************************************************// ICertificateStatus = interface(IDispatch) ['{AB769053-6D38-49D4-86EF-5FA85ED3AF27}'] function Get_Result: WordBool; safecall; function Get_CheckFlag: CAPICOM_CHECK_FLAG; safecall; procedure Set_CheckFlag(pVal: CAPICOM_CHECK_FLAG); safecall; function EKU: IEKU; safecall; property Result: WordBool read Get_Result; property CheckFlag: CAPICOM_CHECK_FLAG read Get_CheckFlag write Set_CheckFlag; end; // *********************************************************************// // DispIntf: ICertificateStatusDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {AB769053-6D38-49D4-86EF-5FA85ED3AF27} // *********************************************************************// ICertificateStatusDisp = dispinterface ['{AB769053-6D38-49D4-86EF-5FA85ED3AF27}'] property Result: WordBool readonly dispid 0; property CheckFlag: CAPICOM_CHECK_FLAG dispid 1; function EKU: IEKU; dispid 2; end; // *********************************************************************// // Interface: ICertificateStatus2 // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {BF95660E-F743-4EAC-9DE5-960787A4606C} // *********************************************************************// ICertificateStatus2 = interface(ICertificateStatus) ['{BF95660E-F743-4EAC-9DE5-960787A4606C}'] function Get_VerificationTime: TDateTime; safecall; procedure Set_VerificationTime(pVal: TDateTime); safecall; function Get_UrlRetrievalTimeout: Integer; safecall; procedure Set_UrlRetrievalTimeout(pVal: Integer); safecall; function CertificatePolicies: IOIDs; safecall; function ApplicationPolicies: IOIDs; safecall; property VerificationTime: TDateTime read Get_VerificationTime write Set_VerificationTime; property UrlRetrievalTimeout: Integer read Get_UrlRetrievalTimeout write Set_UrlRetrievalTimeout; end; // *********************************************************************// // DispIntf: ICertificateStatus2Disp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {BF95660E-F743-4EAC-9DE5-960787A4606C} // *********************************************************************// ICertificateStatus2Disp = dispinterface ['{BF95660E-F743-4EAC-9DE5-960787A4606C}'] property VerificationTime: TDateTime dispid 3; property UrlRetrievalTimeout: Integer dispid 4; function CertificatePolicies: IOIDs; dispid 5; function ApplicationPolicies: IOIDs; dispid 6; property Result: WordBool readonly dispid 0; property CheckFlag: CAPICOM_CHECK_FLAG dispid 1; function EKU: IEKU; dispid 2; end; // *********************************************************************// // Interface: ICertificateStatus3 // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {A4EAB890-0786-406B-9B31-2746F31F8D87} // *********************************************************************// ICertificateStatus3 = interface(ICertificateStatus2) ['{A4EAB890-0786-406B-9B31-2746F31F8D87}'] function Get_ValidationCertificates: ICertificates; safecall; property ValidationCertificates: ICertificates read Get_ValidationCertificates; end; // *********************************************************************// // DispIntf: ICertificateStatus3Disp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {A4EAB890-0786-406B-9B31-2746F31F8D87} // *********************************************************************// ICertificateStatus3Disp = dispinterface ['{A4EAB890-0786-406B-9B31-2746F31F8D87}'] property ValidationCertificates: ICertificates readonly dispid 7; property VerificationTime: TDateTime dispid 3; property UrlRetrievalTimeout: Integer dispid 4; function CertificatePolicies: IOIDs; dispid 5; function ApplicationPolicies: IOIDs; dispid 6; property Result: WordBool readonly dispid 0; property CheckFlag: CAPICOM_CHECK_FLAG dispid 1; function EKU: IEKU; dispid 2; end; // *********************************************************************// // Interface: IOIDs // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {DA55E8FC-8E27-451B-AEA8-1470D80FAD42} // *********************************************************************// IOIDs = interface(IDispatch) ['{DA55E8FC-8E27-451B-AEA8-1470D80FAD42}'] function Get_Item(Index: OleVariant): OleVariant; safecall; function Get_Count: Integer; safecall; function Get__NewEnum: IUnknown; safecall; procedure Add(const pVal: IOID); safecall; procedure Remove(Index: OleVariant); safecall; procedure Clear; safecall; property Item[Index: OleVariant]: OleVariant read Get_Item; default; property Count: Integer read Get_Count; property _NewEnum: IUnknown read Get__NewEnum; end; // *********************************************************************// // DispIntf: IOIDsDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {DA55E8FC-8E27-451B-AEA8-1470D80FAD42} // *********************************************************************// IOIDsDisp = dispinterface ['{DA55E8FC-8E27-451B-AEA8-1470D80FAD42}'] property Item[Index: OleVariant]: OleVariant readonly dispid 0; default; property Count: Integer readonly dispid 1; property _NewEnum: IUnknown readonly dispid -4; procedure Add(const pVal: IOID); dispid 2; procedure Remove(Index: OleVariant); dispid 3; procedure Clear; dispid 4; end; // *********************************************************************// // Interface: IOID // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {208E5E9B-58B1-4086-970F-161B582A846F} // *********************************************************************// IOID = interface(IDispatch) ['{208E5E9B-58B1-4086-970F-161B582A846F}'] function Get_Name: CAPICOM_OID; safecall; procedure Set_Name(pVal: CAPICOM_OID); safecall; function Get_FriendlyName: WideString; safecall; procedure Set_FriendlyName(const pVal: WideString); safecall; function Get_Value: WideString; safecall; procedure Set_Value(const pVal: WideString); safecall; property Name: CAPICOM_OID read Get_Name write Set_Name; property FriendlyName: WideString read Get_FriendlyName write Set_FriendlyName; property Value: WideString read Get_Value write Set_Value; end; // *********************************************************************// // DispIntf: IOIDDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {208E5E9B-58B1-4086-970F-161B582A846F} // *********************************************************************// IOIDDisp = dispinterface ['{208E5E9B-58B1-4086-970F-161B582A846F}'] property Name: CAPICOM_OID dispid 0; property FriendlyName: WideString dispid 1; property Value: WideString dispid 2; end; // *********************************************************************// // Interface: ICertificates // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {68646716-BDA0-4046-AB82-4444BC93B84A} // *********************************************************************// ICertificates = interface(IDispatch) ['{68646716-BDA0-4046-AB82-4444BC93B84A}'] function Get_Item(Index: Integer): OleVariant; safecall; function Get_Count: Integer; safecall; 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 readonly dispid 0; property UniqueContainerName: WideString readonly dispid 1; property ProviderName: WideString readonly dispid 2; property ProviderType: CAPICOM_PROV_TYPE readonly dispid 3; property KeySpec: CAPICOM_KEY_SPEC readonly dispid 4; function IsAccessible: WordBool; dispid 5; function IsProtected: WordBool; dispid 6; function IsExportable: WordBool; dispid 7; function IsRemovable: WordBool; dispid 8; function IsMachineKeyset: WordBool; dispid 9; function IsHardwareDevice: WordBool; dispid 10; procedure Open(const ContainerName: WideString; const ProviderName: WideString; ProviderType: CAPICOM_PROV_TYPE; KeySpec: CAPICOM_KEY_SPEC; StoreLocation: CAPICOM_STORE_LOCATION; bCheckExistence: WordBool); dispid 11; procedure Delete; dispid 12; end; // *********************************************************************// // Interface: IExtensions // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {BC530D61-E692-4225-9E7A-07B90B45856A} // *********************************************************************// IExtensions = interface(IDispatch) ['{BC530D61-E692-4225-9E7A-07B90B45856A}'] function Get_Item(Index: OleVariant): OleVariant; safecall; function Get_Count: Integer; safecall; function Get__NewEnum: IUnknown; safecall; property Item[Index: OleVariant]: OleVariant read Get_Item; default; property Count: Integer read Get_Count; property _NewEnum: IUnknown read Get__NewEnum; end; // *********************************************************************// // DispIntf: IExtensionsDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {BC530D61-E692-4225-9E7A-07B90B45856A} // *********************************************************************// IExtensionsDisp = dispinterface ['{BC530D61-E692-4225-9E7A-07B90B45856A}'] property Item[Index: OleVariant]: OleVariant readonly dispid 0; default; property Count: Integer readonly dispid 1; property _NewEnum: IUnknown readonly dispid -4; end; // *********************************************************************// // Interface: IExtendedProperties // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {3B096E87-6218-4A3B-A880-F6CB951E7805} // *********************************************************************// IExtendedProperties = interface(IDispatch) ['{3B096E87-6218-4A3B-A880-F6CB951E7805}'] function Get_Item(Index: Integer): OleVariant; safecall; function Get_Count: Integer; safecall; function Get__NewEnum: IUnknown; safecall; procedure Add(const pVal: IExtendedProperty); safecall; procedure Remove(PropID: CAPICOM_PROPID); safecall; property Item[Index: Integer]: OleVariant read Get_Item; default; property Count: Integer read Get_Count; property _NewEnum: IUnknown read Get__NewEnum; end; // *********************************************************************// // DispIntf: IExtendedPropertiesDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {3B096E87-6218-4A3B-A880-F6CB951E7805} // *********************************************************************// IExtendedPropertiesDisp = dispinterface ['{3B096E87-6218-4A3B-A880-F6CB951E7805}'] property Item[Index: Integer]: OleVariant readonly dispid 0; default; property Count: Integer readonly dispid 1; property _NewEnum: IUnknown readonly dispid -4; procedure Add(const pVal: IExtendedProperty); dispid 2; procedure Remove(PropID: CAPICOM_PROPID); dispid 3; end; // *********************************************************************// // Interface: IExtendedProperty // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {ECB8A5C8-562C-4989-B49D-FA37D40F8FC4} // *********************************************************************// IExtendedProperty = interface(IDispatch) ['{ECB8A5C8-562C-4989-B49D-FA37D40F8FC4}'] function Get_PropID: CAPICOM_PROPID; safecall; procedure Set_PropID(pVal: CAPICOM_PROPID); safecall; function Get_Value(EncodingType: CAPICOM_ENCODING_TYPE): WideString; safecall; procedure Set_Value(EncodingType: CAPICOM_ENCODING_TYPE; const pVal: WideString); safecall; property PropID: CAPICOM_PROPID read Get_PropID write Set_PropID; property Value[EncodingType: CAPICOM_ENCODING_TYPE]: WideString read Get_Value write Set_Value; end; // *********************************************************************// // DispIntf: IExtendedPropertyDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {ECB8A5C8-562C-4989-B49D-FA37D40F8FC4} // *********************************************************************// IExtendedPropertyDisp = dispinterface ['{ECB8A5C8-562C-4989-B49D-FA37D40F8FC4}'] property PropID: CAPICOM_PROPID dispid 0; property Value[EncodingType: CAPICOM_ENCODING_TYPE]: WideString dispid 1; end; // *********************************************************************// // Interface: ICertificates2 // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {7B57C04B-1786-4B30-A7B6-36235CD58A14} // *********************************************************************// ICertificates2 = interface(ICertificates) ['{7B57C04B-1786-4B30-A7B6-36235CD58A14}'] function Find(FindType: CAPICOM_CERTIFICATE_FIND_TYPE; varCriteria: OleVariant; bFindValidOnly: WordBool): ICertificates2; safecall; function Select(const Title: WideString; const DisplayString: WideString; bMultiSelect: WordBool): ICertificates2; safecall; procedure Add(const pVal: ICertificate2); safecall; procedure Remove(Index: OleVariant); safecall; procedure Clear; safecall; procedure Save(const FileName: WideString; const Password: WideString; SaveAs: CAPICOM_CERTIFICATES_SAVE_AS_TYPE; ExportFlag: CAPICOM_EXPORT_FLAG); safecall; end; // *********************************************************************// // DispIntf: ICertificates2Disp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {7B57C04B-1786-4B30-A7B6-36235CD58A14} // *********************************************************************// ICertificates2Disp = dispinterface ['{7B57C04B-1786-4B30-A7B6-36235CD58A14}'] function Find(FindType: CAPICOM_CERTIFICATE_FIND_TYPE; varCriteria: OleVariant; bFindValidOnly: WordBool): ICertificates2; dispid 2; function Select(const Title: WideString; const DisplayString: WideString; bMultiSelect: WordBool): ICertificates2; dispid 3; procedure Add(const pVal: ICertificate2); dispid 4; procedure Remove(Index: OleVariant); dispid 5; procedure Clear; dispid 6; procedure Save(const FileName: WideString; const Password: WideString; SaveAs: CAPICOM_CERTIFICATES_SAVE_AS_TYPE; ExportFlag: CAPICOM_EXPORT_FLAG); dispid 7; property Item[Index: Integer]: OleVariant readonly dispid 0; default; property Count: Integer readonly dispid 1; property _NewEnum: IUnknown readonly dispid -4; end; // *********************************************************************// // Interface: ICCertificates // Flags: (512) Restricted // GUID: {EBDC6DC2-684D-4425-BBB7-CB4D15A088A7} // *********************************************************************// ICCertificates = interface(IUnknown) ['{EBDC6DC2-684D-4425-BBB7-CB4D15A088A7}'] function _ExportToStore(hCertStore: Pointer): HResult; stdcall; end; // *********************************************************************// // Interface: IChain // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {77F6F881-5D3A-4F2F-AEF0-E4A2F9AA689D} // *********************************************************************// IChain = interface(IDispatch) ['{77F6F881-5D3A-4F2F-AEF0-E4A2F9AA689D}'] function Get_Certificates: ICertificates; safecall; function Get_Status(Index: Integer): Integer; safecall; function Build(const pICertificate: ICertificate): WordBool; safecall; property Certificates: ICertificates read Get_Certificates; property Status[Index: Integer]: Integer read Get_Status; end; // *********************************************************************// // DispIntf: IChainDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {77F6F881-5D3A-4F2F-AEF0-E4A2F9AA689D} // *********************************************************************// IChainDisp = dispinterface ['{77F6F881-5D3A-4F2F-AEF0-E4A2F9AA689D}'] property Certificates: ICertificates readonly dispid 0; property Status[Index: Integer]: Integer readonly dispid 1; function Build(const pICertificate: ICertificate): WordBool; dispid 2; end; // *********************************************************************// // Interface: IChain2 // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {CA65D842-2110-4073-AEE3-D0AA5F56C421} // *********************************************************************// IChain2 = interface(IChain) ['{CA65D842-2110-4073-AEE3-D0AA5F56C421}'] function CertificatePolicies: IOIDs; safecall; function ApplicationPolicies: IOIDs; safecall; function ExtendedErrorInfo(Index: Integer): WideString; safecall; end; // *********************************************************************// // DispIntf: IChain2Disp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {CA65D842-2110-4073-AEE3-D0AA5F56C421} // *********************************************************************// IChain2Disp = dispinterface ['{CA65D842-2110-4073-AEE3-D0AA5F56C421}'] function CertificatePolicies: IOIDs; dispid 3; function ApplicationPolicies: IOIDs; dispid 4; function ExtendedErrorInfo(Index: Integer): WideString; dispid 5; property Certificates: ICertificates readonly dispid 0; property Status[Index: Integer]: Integer readonly dispid 1; function Build(const pICertificate: ICertificate): WordBool; dispid 2; end; // *********************************************************************// // Interface: IChainContext // Flags: (0) // GUID: {B27FFB30-432E-4585-A3FD-72530108CBFD} // *********************************************************************// IChainContext = interface(IUnknown) ['{B27FFB30-432E-4585-A3FD-72530108CBFD}'] function Get_ChainContext(out pChainContext: Integer): HResult; stdcall; function Set_ChainContext(pChainContext: Integer): HResult; stdcall; function FreeContext(pChainContext: Integer): HResult; stdcall; end; // *********************************************************************// // Interface: IStore // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {E860EF75-1B63-4254-AF47-960DAA3DD337} // *********************************************************************// IStore = interface(IDispatch) ['{E860EF75-1B63-4254-AF47-960DAA3DD337}'] function Get_Certificates: ICertificates; safecall; procedure Open(StoreLocation: CAPICOM_STORE_LOCATION; const StoreName: WideString; OpenMode: CAPICOM_STORE_OPEN_MODE); safecall; procedure Add(const pVal: ICertificate); safecall; procedure Remove(const pVal: ICertificate); safecall; function Export(SaveAs: CAPICOM_STORE_SAVE_AS_TYPE; EncodingType: CAPICOM_ENCODING_TYPE): WideString; safecall; procedure Import(const EncodedStore: WideString); safecall; property Certificates: ICertificates read Get_Certificates; end; // *********************************************************************// // DispIntf: IStoreDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {E860EF75-1B63-4254-AF47-960DAA3DD337} // *********************************************************************// IStoreDisp = dispinterface ['{E860EF75-1B63-4254-AF47-960DAA3DD337}'] property Certificates: ICertificates readonly dispid 0; procedure Open(StoreLocation: CAPICOM_STORE_LOCATION; const StoreName: WideString; OpenMode: CAPICOM_STORE_OPEN_MODE); dispid 1; procedure Add(const pVal: ICertificate); dispid 2; procedure Remove(const pVal: ICertificate); dispid 3; function Export(SaveAs: CAPICOM_STORE_SAVE_AS_TYPE; EncodingType: CAPICOM_ENCODING_TYPE): WideString; dispid 4; procedure Import(const EncodedStore: WideString); dispid 5; end; // *********************************************************************// // Interface: IStore2 // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {4DA6ABC4-BDCD-4317-B650-262075B93A9C} // *********************************************************************// IStore2 = interface(IStore) ['{4DA6ABC4-BDCD-4317-B650-262075B93A9C}'] procedure Load(const FileName: WideString; const Password: WideString; KeyStorageFlag: CAPICOM_KEY_STORAGE_FLAG); safecall; end; // *********************************************************************// // DispIntf: IStore2Disp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {4DA6ABC4-BDCD-4317-B650-262075B93A9C} // *********************************************************************// IStore2Disp = dispinterface ['{4DA6ABC4-BDCD-4317-B650-262075B93A9C}'] procedure Load(const FileName: WideString; const Password: WideString; KeyStorageFlag: CAPICOM_KEY_STORAGE_FLAG); dispid 6; property Certificates: ICertificates readonly dispid 0; procedure Open(StoreLocation: CAPICOM_STORE_LOCATION; const StoreName: WideString; OpenMode: CAPICOM_STORE_OPEN_MODE); dispid 1; procedure Add(const pVal: ICertificate); dispid 2; procedure Remove(const pVal: ICertificate); dispid 3; function Export(SaveAs: CAPICOM_STORE_SAVE_AS_TYPE; EncodingType: CAPICOM_ENCODING_TYPE): WideString; dispid 4; procedure Import(const EncodedStore: WideString); dispid 5; end; // *********************************************************************// // Interface: IStore3 // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F701F8EC-31C7-48FB-B621-5DE417C3A607} // *********************************************************************// IStore3 = interface(IStore2) ['{F701F8EC-31C7-48FB-B621-5DE417C3A607}'] function Get_Name: WideString; safecall; function Get_Location: CAPICOM_STORE_LOCATION; safecall; function Delete: WordBool; safecall; procedure Close; safecall; property Name: WideString read Get_Name; property Location: CAPICOM_STORE_LOCATION read Get_Location; end; // *********************************************************************// // DispIntf: IStore3Disp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F701F8EC-31C7-48FB-B621-5DE417C3A607} // *********************************************************************// IStore3Disp = dispinterface ['{F701F8EC-31C7-48FB-B621-5DE417C3A607}'] property Name: WideString readonly dispid 7; property Location: CAPICOM_STORE_LOCATION readonly dispid 8; function Delete: WordBool; dispid 9; procedure Close; dispid 10; procedure Load(const FileName: WideString; const Password: WideString; KeyStorageFlag: CAPICOM_KEY_STORAGE_FLAG); dispid 6; property Certificates: ICertificates readonly dispid 0; procedure Open(StoreLocation: CAPICOM_STORE_LOCATION; const StoreName: WideString; OpenMode: CAPICOM_STORE_OPEN_MODE); dispid 1; procedure Add(const pVal: ICertificate); dispid 2; procedure Remove(const pVal: ICertificate); dispid 3; function Export(SaveAs: CAPICOM_STORE_SAVE_AS_TYPE; EncodingType: CAPICOM_ENCODING_TYPE): WideString; dispid 4; procedure Import(const EncodedStore: WideString); dispid 5; end; // *********************************************************************// // Interface: ICertStore // Flags: (0) // GUID: {BB3ECB9C-A83A-445C-BDB5-EFBEF691B731} // *********************************************************************// ICertStore = interface(IUnknown) ['{BB3ECB9C-A83A-445C-BDB5-EFBEF691B731}'] function Get_StoreHandle(out phCertStore: Integer): HResult; stdcall; function Set_StoreHandle(phCertStore: Integer): HResult; stdcall; function Get_StoreLocation(out pStoreLocation: CAPICOM_STORE_LOCATION): HResult; stdcall; function Set_StoreLocation(pStoreLocation: CAPICOM_STORE_LOCATION): HResult; stdcall; function CloseHandle(hCertStore: Integer): HResult; stdcall; end; // *********************************************************************// // Interface: IAttribute // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {B17A8D78-B5A6-45F7-BA21-01AB94B08415} // *********************************************************************// IAttribute = interface(IDispatch) ['{B17A8D78-B5A6-45F7-BA21-01AB94B08415}'] function Get_Name: CAPICOM_ATTRIBUTE; safecall; procedure Set_Name(pVal: CAPICOM_ATTRIBUTE); safecall; function Get_Value: OleVariant; safecall; procedure Set_Value(pVal: OleVariant); safecall; property Name: CAPICOM_ATTRIBUTE read Get_Name write Set_Name; property Value: OleVariant read Get_Value write Set_Value; end; // *********************************************************************// // DispIntf: IAttributeDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {B17A8D78-B5A6-45F7-BA21-01AB94B08415} // *********************************************************************// IAttributeDisp = dispinterface ['{B17A8D78-B5A6-45F7-BA21-01AB94B08415}'] property Name: CAPICOM_ATTRIBUTE dispid 0; property Value: OleVariant dispid 1; end; // *********************************************************************// // Interface: IAttributes // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {6ADC653E-D5B9-422A-991A-A2B0119CEDAC} // *********************************************************************// IAttributes = interface(IDispatch) ['{6ADC653E-D5B9-422A-991A-A2B0119CEDAC}'] function Get_Item(Index: Integer): OleVariant; safecall; function Get_Count: Integer; safecall; function Get__NewEnum: IUnknown; safecall; procedure Add(const pVal: IAttribute); safecall; procedure Remove(Index: Integer); safecall; procedure Clear; safecall; property Item[Index: Integer]: OleVariant read Get_Item; default; property Count: Integer read Get_Count; property _NewEnum: IUnknown read Get__NewEnum; end; // *********************************************************************// // DispIntf: IAttributesDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {6ADC653E-D5B9-422A-991A-A2B0119CEDAC} // *********************************************************************// IAttributesDisp = dispinterface ['{6ADC653E-D5B9-422A-991A-A2B0119CEDAC}'] property Item[Index: Integer]: OleVariant readonly dispid 0; default; property Count: Integer readonly dispid 1; property _NewEnum: IUnknown readonly dispid -4; procedure Add(const pVal: IAttribute); dispid 2; procedure Remove(Index: Integer); dispid 3; procedure Clear; dispid 4; end; // *********************************************************************// // Interface: ISigner // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {51017B88-1913-49AD-82BE-6BB7C417DCF2} // *********************************************************************// ISigner = interface(IDispatch) ['{51017B88-1913-49AD-82BE-6BB7C417DCF2}'] function Get_Certificate: ICertificate; safecall; procedure Set_Certificate(const pVal: ICertificate); safecall; function Get_AuthenticatedAttributes: IAttributes; safecall; property Certificate: ICertificate read Get_Certificate write Set_Certificate; property AuthenticatedAttributes: IAttributes read Get_AuthenticatedAttributes; end; // *********************************************************************// // DispIntf: ISignerDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {51017B88-1913-49AD-82BE-6BB7C417DCF2} // *********************************************************************// ISignerDisp = dispinterface ['{51017B88-1913-49AD-82BE-6BB7C417DCF2}'] property Certificate: ICertificate dispid 0; property AuthenticatedAttributes: IAttributes readonly dispid 1; end; // *********************************************************************// // Interface: ISigner2 // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {625B1F55-C720-41D6-9ECF-BA59F9B85F17} // *********************************************************************// ISigner2 = interface(ISigner) ['{625B1F55-C720-41D6-9ECF-BA59F9B85F17}'] function Get_Chain: IChain; safecall; function Get_Options: CAPICOM_CERTIFICATE_INCLUDE_OPTION; safecall; procedure Set_Options(pVal: CAPICOM_CERTIFICATE_INCLUDE_OPTION); safecall; procedure Load(const FileName: WideString; const Password: WideString); safecall; property Chain: IChain read Get_Chain; property Options: CAPICOM_CERTIFICATE_INCLUDE_OPTION read Get_Options write Set_Options; end; // *********************************************************************// // DispIntf: ISigner2Disp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {625B1F55-C720-41D6-9ECF-BA59F9B85F17} // *********************************************************************// ISigner2Disp = dispinterface ['{625B1F55-C720-41D6-9ECF-BA59F9B85F17}'] property Chain: IChain readonly dispid 2; property Options: CAPICOM_CERTIFICATE_INCLUDE_OPTION dispid 3; procedure Load(const FileName: WideString; const Password: WideString); dispid 4; property Certificate: ICertificate dispid 0; property AuthenticatedAttributes: IAttributes readonly dispid 1; end; // *********************************************************************// // Interface: ICSigner // Flags: (512) Restricted // GUID: {8F83F792-014C-4E22-BD57-5C381E622F34} // *********************************************************************// ICSigner = interface(IUnknown) ['{8F83F792-014C-4E22-BD57-5C381E622F34}'] function Get_AdditionalStore(out phAdditionalStore: Integer): HResult; stdcall; function Set_AdditionalStore(phAdditionalStore: Integer): HResult; stdcall; end; // *********************************************************************// // Interface: ISigners // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {5A0780F8-9E6B-4BB0-BF54-87CD9627A8B4} // *********************************************************************// ISigners = interface(IDispatch) ['{5A0780F8-9E6B-4BB0-BF54-87CD9627A8B4}'] function Get_Item(Index: Integer): OleVariant; safecall; function Get_Count: Integer; safecall; 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: ISignersDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {5A0780F8-9E6B-4BB0-BF54-87CD9627A8B4} // *********************************************************************// ISignersDisp = dispinterface ['{5A0780F8-9E6B-4BB0-BF54-87CD9627A8B4}'] property Item[Index: Integer]: OleVariant readonly dispid 0; default; property Count: Integer readonly dispid 1; property _NewEnum: IUnknown readonly dispid -4; end; // *********************************************************************// // Interface: ISignedData // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {AE9C454B-FC65-4C10-B130-CD9B45BA948B} // *********************************************************************// ISignedData = interface(IDispatch) ['{AE9C454B-FC65-4C10-B130-CD9B45BA948B}'] procedure Set_Content(const pVal: WideString); safecall; function Get_Content: WideString; safecall; function Get_Signers: ISigners; safecall; function Get_Certificates: ICertificates; safecall; function Sign(const pSigner: ISigner; bDetached: WordBool; EncodingType: CAPICOM_ENCODING_TYPE): WideString; safecall; function CoSign(const pSigner: ISigner; EncodingType: CAPICOM_ENCODING_TYPE): WideString; safecall; procedure Verify(const SignedMessage: WideString; bDetached: WordBool; VerifyFlag: CAPICOM_SIGNED_DATA_VERIFY_FLAG); safecall; property Content: WideString read Get_Content write Set_Content; property Signers: ISigners read Get_Signers; property Certificates: ICertificates read Get_Certificates; end; // *********************************************************************// // DispIntf: ISignedDataDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {AE9C454B-FC65-4C10-B130-CD9B45BA948B} // *********************************************************************// ISignedDataDisp = dispinterface ['{AE9C454B-FC65-4C10-B130-CD9B45BA948B}'] property Content: WideString dispid 0; property Signers: ISigners readonly dispid 1; property Certificates: ICertificates readonly dispid 2; function Sign(const pSigner: ISigner; bDetached: WordBool; EncodingType: CAPICOM_ENCODING_TYPE): WideString; dispid 3; function CoSign(const pSigner: ISigner; EncodingType: CAPICOM_ENCODING_TYPE): WideString; dispid 4; procedure Verify(const SignedMessage: WideString; bDetached: WordBool; VerifyFlag: CAPICOM_SIGNED_DATA_VERIFY_FLAG); dispid 5; end; // *********************************************************************// // Interface: IAlgorithm // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {BF3D04A9-B0DA-4153-B45E-6CCFA5AC715B} // *********************************************************************// IAlgorithm = interface(IDispatch) ['{BF3D04A9-B0DA-4153-B45E-6CCFA5AC715B}'] function Get_Name: CAPICOM_ENCRYPTION_ALGORITHM; safecall; procedure Set_Name(pVal: CAPICOM_ENCRYPTION_ALGORITHM); safecall; function Get_KeyLength: CAPICOM_ENCRYPTION_KEY_LENGTH; safecall; procedure Set_KeyLength(pVal: CAPICOM_ENCRYPTION_KEY_LENGTH); safecall; property Name: CAPICOM_ENCRYPTION_ALGORITHM read Get_Name write Set_Name; property KeyLength: CAPICOM_ENCRYPTION_KEY_LENGTH read Get_KeyLength write Set_KeyLength; end; // *********************************************************************// // DispIntf: IAlgorithmDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {BF3D04A9-B0DA-4153-B45E-6CCFA5AC715B} // *********************************************************************// IAlgorithmDisp = dispinterface ['{BF3D04A9-B0DA-4153-B45E-6CCFA5AC715B}'] property Name: CAPICOM_ENCRYPTION_ALGORITHM dispid 0; property KeyLength: CAPICOM_ENCRYPTION_KEY_LENGTH dispid 1; end; // *********************************************************************// // Interface: IRecipients // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {A694C896-FC38-4C34-AE61-3B1A95984C14} // *********************************************************************// IRecipients = interface(IDispatch) ['{A694C896-FC38-4C34-AE61-3B1A95984C14}'] function Get_Item(Index: Integer): OleVariant; safecall; function Get_Count: Integer; safecall; function Get__NewEnum: IUnknown; safecall; procedure Add(const pVal: ICertificate); safecall; procedure Remove(Index: Integer); safecall; procedure Clear; safecall; property Item[Index: Integer]: OleVariant read Get_Item; default; property Count: Integer read Get_Count; property _NewEnum: IUnknown read Get__NewEnum; end; // *********************************************************************// // DispIntf: IRecipientsDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {A694C896-FC38-4C34-AE61-3B1A95984C14} // *********************************************************************// IRecipientsDisp = dispinterface ['{A694C896-FC38-4C34-AE61-3B1A95984C14}'] property Item[Index: Integer]: OleVariant readonly dispid 0; default; property Count: Integer readonly dispid 1; property _NewEnum: IUnknown readonly dispid -4; procedure Add(const pVal: ICertificate); dispid 2; procedure Remove(Index: Integer); dispid 3; procedure Clear; dispid 4; end; // *********************************************************************// // Interface: IEnvelopedData // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F6CB6A20-CC18-4424-AE57-6F2AA3DC2059} // *********************************************************************// IEnvelopedData = interface(IDispatch) ['{F6CB6A20-CC18-4424-AE57-6F2AA3DC2059}'] procedure Set_Content(const pVal: WideString); safecall; function Get_Content: WideString; safecall; function Get_Algorithm: IAlgorithm; safecall; function Get_Recipients: IRecipients; safecall; function Encrypt(EncodingType: CAPICOM_ENCODING_TYPE): WideString; safecall; procedure Decrypt(const EnvelopedMessage: WideString); safecall; property Content: WideString read Get_Content write Set_Content; property Algorithm: IAlgorithm read Get_Algorithm; property Recipients: IRecipients read Get_Recipients; end; // *********************************************************************// // DispIntf: IEnvelopedDataDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F6CB6A20-CC18-4424-AE57-6F2AA3DC2059} // *********************************************************************// IEnvelopedDataDisp = dispinterface ['{F6CB6A20-CC18-4424-AE57-6F2AA3DC2059}'] property Content: WideString dispid 0; property Algorithm: IAlgorithm readonly dispid 1; property Recipients: IRecipients readonly dispid 2; function Encrypt(EncodingType: CAPICOM_ENCODING_TYPE): WideString; dispid 3; procedure Decrypt(const EnvelopedMessage: WideString); dispid 4; end; // *********************************************************************// // Interface: IEncryptedData // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {C4778A66-972F-42E4-87C5-5CC16F7931CA} // *********************************************************************// IEncryptedData = interface(IDispatch) ['{C4778A66-972F-42E4-87C5-5CC16F7931CA}'] procedure Set_Content(const pVal: WideString); safecall; function Get_Content: WideString; safecall; function Get_Algorithm: IAlgorithm; safecall; procedure SetSecret(const newVal: WideString; SecretType: CAPICOM_SECRET_TYPE); safecall; function Encrypt(EncodingType: CAPICOM_ENCODING_TYPE): WideString; safecall; procedure Decrypt(const EncryptedMessage: WideString); safecall; property Content: WideString read Get_Content write Set_Content; property Algorithm: IAlgorithm read Get_Algorithm; end; // *********************************************************************// // DispIntf: IEncryptedDataDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {C4778A66-972F-42E4-87C5-5CC16F7931CA} // *********************************************************************// IEncryptedDataDisp = dispinterface ['{C4778A66-972F-42E4-87C5-5CC16F7931CA}'] property Content: WideString dispid 0; property Algorithm: IAlgorithm readonly dispid 1; procedure SetSecret(const newVal: WideString; SecretType: CAPICOM_SECRET_TYPE); dispid 2; function Encrypt(EncodingType: CAPICOM_ENCODING_TYPE): WideString; dispid 3; procedure Decrypt(const EncryptedMessage: WideString); dispid 4; end; // *********************************************************************// // Interface: INoticeNumbers // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {EE2C051D-33A1-4157-86B4-9280E29782F2} // *********************************************************************// INoticeNumbers = interface(IDispatch) ['{EE2C051D-33A1-4157-86B4-9280E29782F2}'] function Get_Item(Index: Integer): OleVariant; safecall; function Get_Count: Integer; safecall; 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: INoticeNumbersDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {EE2C051D-33A1-4157-86B4-9280E29782F2} // *********************************************************************// INoticeNumbersDisp = dispinterface ['{EE2C051D-33A1-4157-86B4-9280E29782F2}'] property Item[Index: Integer]: OleVariant readonly dispid 0; default; property Count: Integer readonly dispid 1; property _NewEnum: IUnknown readonly dispid -4; end; // *********************************************************************// // Interface: IQualifier // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {3604C9DD-A22E-4A15-A469-8181C0C113DE} // *********************************************************************// IQualifier = interface(IDispatch) ['{3604C9DD-A22E-4A15-A469-8181C0C113DE}'] function Get_OID: IOID; safecall; function Get_CPSPointer: WideString; safecall; function Get_OrganizationName: WideString; safecall; function Get_NoticeNumbers: INoticeNumbers; safecall; function Get_ExplicitText: WideString; safecall; property OID: IOID read Get_OID; property CPSPointer: WideString read Get_CPSPointer; property OrganizationName: WideString read Get_OrganizationName; property NoticeNumbers: INoticeNumbers read Get_NoticeNumbers; property ExplicitText: WideString read Get_ExplicitText; end; // *********************************************************************// // DispIntf: IQualifierDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {3604C9DD-A22E-4A15-A469-8181C0C113DE} // *********************************************************************// IQualifierDisp = dispinterface ['{3604C9DD-A22E-4A15-A469-8181C0C113DE}'] property OID: IOID readonly dispid 0; property CPSPointer: WideString readonly dispid 1; property OrganizationName: WideString readonly dispid 2; property NoticeNumbers: INoticeNumbers readonly dispid 3; property ExplicitText: WideString readonly dispid 4; end; // *********************************************************************// // Interface: IQualifiers // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {6B5A8AB6-597D-4398-AC63-1036EF546348} // *********************************************************************// IQualifiers = interface(IDispatch) ['{6B5A8AB6-597D-4398-AC63-1036EF546348}'] function Get_Item(Index: Integer): OleVariant; safecall; function Get_Count: Integer; safecall; 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: IQualifiersDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {6B5A8AB6-597D-4398-AC63-1036EF546348} // *********************************************************************// IQualifiersDisp = dispinterface ['{6B5A8AB6-597D-4398-AC63-1036EF546348}'] property Item[Index: Integer]: OleVariant readonly dispid 0; default; property Count: Integer readonly dispid 1; property _NewEnum: IUnknown readonly dispid -4; end; // *********************************************************************// // Interface: IPolicyInformation // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {8973710C-8411-4951-9E65-D45FD524FFDF} // *********************************************************************// IPolicyInformation = interface(IDispatch) ['{8973710C-8411-4951-9E65-D45FD524FFDF}'] function Get_OID: IOID; safecall; function Get_Qualifiers: IQualifiers; safecall; property OID: IOID read Get_OID; property Qualifiers: IQualifiers read Get_Qualifiers; end; // *********************************************************************// // DispIntf: IPolicyInformationDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {8973710C-8411-4951-9E65-D45FD524FFDF} // *********************************************************************// IPolicyInformationDisp = dispinterface ['{8973710C-8411-4951-9E65-D45FD524FFDF}'] property OID: IOID readonly dispid 0; property Qualifiers: IQualifiers readonly dispid 1; end; // *********************************************************************// // Interface: ICertificatePolicies // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {CC7A72A7-C83A-4049-85F4-4292DE9DBFD3} // *********************************************************************// ICertificatePolicies = interface(IDispatch) ['{CC7A72A7-C83A-4049-85F4-4292DE9DBFD3}'] function Get_Item(Index: Integer): OleVariant; safecall; function Get_Count: Integer; safecall; 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: ICertificatePoliciesDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {CC7A72A7-C83A-4049-85F4-4292DE9DBFD3} // *********************************************************************// ICertificatePoliciesDisp = dispinterface ['{CC7A72A7-C83A-4049-85F4-4292DE9DBFD3}'] property Item[Index: Integer]: OleVariant readonly dispid 0; default; property Count: Integer readonly dispid 1; property _NewEnum: IUnknown readonly dispid -4; end; // *********************************************************************// // Interface: IExtension // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {ED4E4ED4-FDD8-476E-AED9-5239E7948257} // *********************************************************************// IExtension = interface(IDispatch) ['{ED4E4ED4-FDD8-476E-AED9-5239E7948257}'] function Get_OID: IOID; safecall; function Get_IsCritical: WordBool; safecall; function Get_EncodedData: IEncodedData; safecall; property OID: IOID read Get_OID; property IsCritical: WordBool read Get_IsCritical; property EncodedData: IEncodedData read Get_EncodedData; end; // *********************************************************************// // DispIntf: IExtensionDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {ED4E4ED4-FDD8-476E-AED9-5239E7948257} // *********************************************************************// IExtensionDisp = dispinterface ['{ED4E4ED4-FDD8-476E-AED9-5239E7948257}'] property OID: IOID readonly dispid 0; property IsCritical: WordBool readonly dispid 1; property EncodedData: IEncodedData readonly dispid 2; end; // *********************************************************************// // Interface: ICPrivateKey // Flags: (512) Restricted // GUID: {50F241B7-A8F2-4E0A-B982-4BD7DF0CCF3C} // *********************************************************************// ICPrivateKey = interface(IUnknown) ['{50F241B7-A8F2-4E0A-B982-4BD7DF0CCF3C}'] function _GetKeyProvInfo(out pKeyProvInfo: PUserType1): HResult; stdcall; function _GetKeyContext(out pKeyContext: PUserType2): HResult; stdcall; end; // *********************************************************************// // Interface: ISignedCode // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {84FBCB95-5600-404C-9187-AC25B4CD6E94} // *********************************************************************// ISignedCode = interface(IDispatch) ['{84FBCB95-5600-404C-9187-AC25B4CD6E94}'] function Get_FileName: WideString; safecall; procedure Set_FileName(const pVal: WideString); safecall; function Get_Description: WideString; safecall; procedure Set_Description(const pVal: WideString); safecall; function Get_DescriptionURL: WideString; safecall; procedure Set_DescriptionURL(const pVal: WideString); safecall; function Get_Signer: ISigner2; safecall; function Get_TimeStamper: ISigner2; safecall; function Get_Certificates: ICertificates2; safecall; procedure Sign(const pISigner2: ISigner2); safecall; procedure Timestamp(const URL: WideString); safecall; procedure Verify(bUIAllowed: WordBool); safecall; property FileName: WideString read Get_FileName write Set_FileName; property Description: WideString read Get_Description write Set_Description; property DescriptionURL: WideString read Get_DescriptionURL write Set_DescriptionURL; property Signer: ISigner2 read Get_Signer; property TimeStamper: ISigner2 read Get_TimeStamper; property Certificates: ICertificates2 read Get_Certificates; end; // *********************************************************************// // DispIntf: ISignedCodeDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {84FBCB95-5600-404C-9187-AC25B4CD6E94} // *********************************************************************// ISignedCodeDisp = dispinterface ['{84FBCB95-5600-404C-9187-AC25B4CD6E94}'] property FileName: WideString dispid 0; property Description: WideString dispid 1; property DescriptionURL: WideString dispid 2; property Signer: ISigner2 readonly dispid 3; property TimeStamper: ISigner2 readonly dispid 4; property Certificates: ICertificates2 readonly dispid 5; procedure Sign(const pISigner2: ISigner2); dispid 6; procedure Timestamp(const URL: WideString); dispid 7; procedure Verify(bUIAllowed: WordBool); dispid 8; end; // *********************************************************************// // Interface: IHashedData // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {9F7F23E8-06F4-42E8-B965-5CBD044BF27F} // *********************************************************************// IHashedData = interface(IDispatch) ['{9F7F23E8-06F4-42E8-B965-5CBD044BF27F}'] function Get_Value: WideString; safecall; function Get_Algorithm: CAPICOM_HASH_ALGORITHM; safecall; procedure Set_Algorithm(pVal: CAPICOM_HASH_ALGORITHM); safecall; procedure Hash(const newVal: WideString); safecall; property Value: WideString read Get_Value; property Algorithm: CAPICOM_HASH_ALGORITHM read Get_Algorithm write Set_Algorithm; end; // *********************************************************************// // DispIntf: IHashedDataDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {9F7F23E8-06F4-42E8-B965-5CBD044BF27F} // *********************************************************************// IHashedDataDisp = dispinterface ['{9F7F23E8-06F4-42E8-B965-5CBD044BF27F}'] property Value: WideString readonly dispid 0; property Algorithm: CAPICOM_HASH_ALGORITHM dispid 1; procedure Hash(const newVal: WideString); dispid 2; end; // *********************************************************************// // Interface: IUtilities // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {EB166CF6-2AE6-44DA-BD96-0C1635D183FE} // *********************************************************************// IUtilities = interface(IDispatch) ['{EB166CF6-2AE6-44DA-BD96-0C1635D183FE}'] function GetRandom(Length: Integer; EncodingType: CAPICOM_ENCODING_TYPE): WideString; safecall; function Base64Encode(const SrcString: WideString): WideString; safecall; function Base64Decode(const EncodedString: WideString): WideString; safecall; function BinaryToHex(const BinaryString: WideString): WideString; safecall; function HexToBinary(const HexString: WideString): WideString; safecall; function BinaryStringToByteArray(const BinaryString: WideString): OleVariant; safecall; function ByteArrayToBinaryString(varByteArray: OleVariant): WideString; safecall; function LocalTimeToUTCTime(LocalTime: TDateTime): TDateTime; safecall; function UTCTimeToLocalTime(UTCTime: TDateTime): TDateTime; safecall; end; // *********************************************************************// // DispIntf: IUtilitiesDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {EB166CF6-2AE6-44DA-BD96-0C1635D183FE} // *********************************************************************// IUtilitiesDisp = dispinterface ['{EB166CF6-2AE6-44DA-BD96-0C1635D183FE}'] function GetRandom(Length: Integer; EncodingType: CAPICOM_ENCODING_TYPE): WideString; dispid 1; function Base64Encode(const SrcString: WideString): WideString; dispid 2; function Base64Decode(const EncodedString: WideString): WideString; dispid 3; function BinaryToHex(const BinaryString: WideString): WideString; dispid 4; function HexToBinary(const HexString: WideString): WideString; dispid 5; function BinaryStringToByteArray(const BinaryString: WideString): OleVariant; dispid 6; function ByteArrayToBinaryString(varByteArray: OleVariant): WideString; dispid 7; function LocalTimeToUTCTime(LocalTime: TDateTime): TDateTime; dispid 8; function UTCTimeToLocalTime(UTCTime: TDateTime): TDateTime; dispid 9; end; // *********************************************************************// // The Class CoSettings provides a Create and CreateRemote method to // create instances of the default interface ISettings exposed by // the CoClass Settings. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSettings = class class function Create: ISettings; class function CreateRemote(const MachineName: string): ISettings; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSettings // Help String : Settings Class // Default Interface: ISettings // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// TSettings = class(TOleServer) private FIntf: ISettings; function GetDefaultInterface: ISettings; protected procedure InitServerData; override; function Get_EnablePromptForCertificateUI: WordBool; procedure Set_EnablePromptForCertificateUI(pVal: WordBool); function Get_ActiveDirectorySearchLocation: CAPICOM_ACTIVE_DIRECTORY_SEARCH_LOCATION; procedure Set_ActiveDirectorySearchLocation(pVal: CAPICOM_ACTIVE_DIRECTORY_SEARCH_LOCATION); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ISettings); procedure Disconnect; override; property DefaultInterface: ISettings read GetDefaultInterface; property EnablePromptForCertificateUI: WordBool read Get_EnablePromptForCertificateUI write Set_EnablePromptForCertificateUI; property ActiveDirectorySearchLocation: CAPICOM_ACTIVE_DIRECTORY_SEARCH_LOCATION read Get_ActiveDirectorySearchLocation write Set_ActiveDirectorySearchLocation; published end; // *********************************************************************// // The Class CoEKU provides a Create and CreateRemote method to // create instances of the default interface IEKU exposed by // the CoClass EKU. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoEKU = class class function Create: IEKU; class function CreateRemote(const MachineName: string): IEKU; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TEKU // Help String : EKU Class // Default Interface: IEKU // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TEKU = class(TOleServer) private FIntf: IEKU; function GetDefaultInterface: IEKU; protected procedure InitServerData; override; function Get_Name: CAPICOM_EKU; procedure Set_Name(pVal: CAPICOM_EKU); function Get_OID: WideString; procedure Set_OID(const pVal: WideString); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IEKU); procedure Disconnect; override; property DefaultInterface: IEKU read GetDefaultInterface; property Name: CAPICOM_EKU read Get_Name write Set_Name; property OID: WideString read Get_OID write Set_OID; published end; // *********************************************************************// // The Class CoEKUs provides a Create and CreateRemote method to // create instances of the default interface IEKUs exposed by // the CoClass EKUs. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoEKUs = class class function Create: IEKUs; class function CreateRemote(const MachineName: string): IEKUs; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TEKUs // Help String : EKUs Class // Default Interface: IEKUs // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TEKUs = class(TOleServer) private FIntf: IEKUs; function GetDefaultInterface: IEKUs; protected procedure InitServerData; override; function Get_Item(Index: Integer): OleVariant; function Get_Count: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IEKUs); procedure Disconnect; override; property DefaultInterface: IEKUs read GetDefaultInterface; property Item[Index: Integer]: OleVariant read Get_Item; default; property Count: Integer read Get_Count; published end; // *********************************************************************// // The Class CoKeyUsage provides a Create and CreateRemote method to // create instances of the default interface IKeyUsage exposed by // the CoClass KeyUsage. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoKeyUsage = class class function Create: IKeyUsage; class function CreateRemote(const MachineName: string): IKeyUsage; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TKeyUsage // Help String : KeyUsage Class // Default Interface: IKeyUsage // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TKeyUsage = class(TOleServer) private FIntf: IKeyUsage; function GetDefaultInterface: IKeyUsage; protected procedure InitServerData; override; function Get_IsPresent: WordBool; function Get_IsCritical: WordBool; function Get_IsDigitalSignatureEnabled: WordBool; function Get_IsNonRepudiationEnabled: WordBool; function Get_IsKeyEnciphermentEnabled: WordBool; function Get_IsDataEnciphermentEnabled: WordBool; function Get_IsKeyAgreementEnabled: WordBool; function Get_IsKeyCertSignEnabled: WordBool; function Get_IsCRLSignEnabled: WordBool; function Get_IsEncipherOnlyEnabled: WordBool; function Get_IsDecipherOnlyEnabled: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IKeyUsage); procedure Disconnect; override; property DefaultInterface: IKeyUsage read GetDefaultInterface; property IsPresent: WordBool read Get_IsPresent; property IsCritical: WordBool read Get_IsCritical; property IsDigitalSignatureEnabled: WordBool read Get_IsDigitalSignatureEnabled; property IsNonRepudiationEnabled: WordBool read Get_IsNonRepudiationEnabled; property IsKeyEnciphermentEnabled: WordBool read Get_IsKeyEnciphermentEnabled; property IsDataEnciphermentEnabled: WordBool read Get_IsDataEnciphermentEnabled; property IsKeyAgreementEnabled: WordBool read Get_IsKeyAgreementEnabled; property IsKeyCertSignEnabled: WordBool read Get_IsKeyCertSignEnabled; property IsCRLSignEnabled: WordBool read Get_IsCRLSignEnabled; property IsEncipherOnlyEnabled: WordBool read Get_IsEncipherOnlyEnabled; property IsDecipherOnlyEnabled: WordBool read Get_IsDecipherOnlyEnabled; published end; // *********************************************************************// // The Class CoExtendedKeyUsage provides a Create and CreateRemote method to // create instances of the default interface IExtendedKeyUsage exposed by // the CoClass ExtendedKeyUsage. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoExtendedKeyUsage = class class function Create: IExtendedKeyUsage; class function CreateRemote(const MachineName: string): IExtendedKeyUsage; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TExtendedKeyUsage // Help String : ExtendedKeyUsage Class // Default Interface: IExtendedKeyUsage // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TExtendedKeyUsage = class(TOleServer) private FIntf: IExtendedKeyUsage; function GetDefaultInterface: IExtendedKeyUsage; protected procedure InitServerData; override; function Get_IsPresent: WordBool; function Get_IsCritical: WordBool; function Get_EKUs: IEKUs; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IExtendedKeyUsage); procedure Disconnect; override; property DefaultInterface: IExtendedKeyUsage read GetDefaultInterface; property IsPresent: WordBool read Get_IsPresent; property IsCritical: WordBool read Get_IsCritical; property EKUs: IEKUs read Get_EKUs; published end; // *********************************************************************// // The Class CoBasicConstraints provides a Create and CreateRemote method to // create instances of the default interface IBasicConstraints exposed by // the CoClass BasicConstraints. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoBasicConstraints = class class function Create: IBasicConstraints; class function CreateRemote(const MachineName: string): IBasicConstraints; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TBasicConstraints // Help String : BasicConstraints Class // Default Interface: IBasicConstraints // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TBasicConstraints = class(TOleServer) private FIntf: IBasicConstraints; function GetDefaultInterface: IBasicConstraints; protected procedure InitServerData; override; function Get_IsPresent: WordBool; function Get_IsCritical: WordBool; function Get_IsCertificateAuthority: WordBool; function Get_IsPathLenConstraintPresent: WordBool; function Get_PathLenConstraint: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IBasicConstraints); procedure Disconnect; override; property DefaultInterface: IBasicConstraints read GetDefaultInterface; property IsPresent: WordBool read Get_IsPresent; property IsCritical: WordBool read Get_IsCritical; property IsCertificateAuthority: WordBool read Get_IsCertificateAuthority; property IsPathLenConstraintPresent: WordBool read Get_IsPathLenConstraintPresent; property PathLenConstraint: Integer read Get_PathLenConstraint; published end; // *********************************************************************// // The Class CoCertificateStatus provides a Create and CreateRemote method to // create instances of the default interface ICertificateStatus3 exposed by // the CoClass CertificateStatus. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCertificateStatus = class class function Create: ICertificateStatus3; class function CreateRemote(const MachineName: string): ICertificateStatus3; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCertificateStatus // Help String : CertificateStatus Class // Default Interface: ICertificateStatus3 // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TCertificateStatus = class(TOleServer) private FIntf: ICertificateStatus3; function GetDefaultInterface: ICertificateStatus3; protected procedure InitServerData; override; function Get_Result: WordBool; function Get_CheckFlag: CAPICOM_CHECK_FLAG; procedure Set_CheckFlag(pVal: CAPICOM_CHECK_FLAG); function Get_VerificationTime: TDateTime; procedure Set_VerificationTime(pVal: TDateTime); function Get_UrlRetrievalTimeout: Integer; procedure Set_UrlRetrievalTimeout(pVal: Integer); function Get_ValidationCertificates: ICertificates; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ICertificateStatus3); procedure Disconnect; override; function EKU: IEKU; function CertificatePolicies: IOIDs; function ApplicationPolicies: IOIDs; property DefaultInterface: ICertificateStatus3 read GetDefaultInterface; property Result: WordBool read Get_Result; property ValidationCertificates: ICertificates read Get_ValidationCertificates; property CheckFlag: CAPICOM_CHECK_FLAG read Get_CheckFlag write Set_CheckFlag; property VerificationTime: TDateTime read Get_VerificationTime write Set_VerificationTime; property UrlRetrievalTimeout: Integer read Get_UrlRetrievalTimeout write Set_UrlRetrievalTimeout; published end; // *********************************************************************// // The Class CoCertificate provides a Create and CreateRemote method to // create instances of the default interface ICertificate2 exposed by // the CoClass Certificate. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCertificate = class class function Create: ICertificate2; class function CreateRemote(const MachineName: string): ICertificate2; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCertificate // Help String : Certificate Class // Default Interface: ICertificate2 // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// TCertificate = class(TOleServer) private FIntf: ICertificate2; function GetDefaultInterface: ICertificate2; protected procedure InitServerData; override; function Get_Version: Integer; function Get_SerialNumber: WideString; function Get_SubjectName: WideString; function Get_IssuerName: WideString; function Get_ValidFromDate: TDateTime; function Get_ValidToDate: TDateTime; function Get_Thumbprint: WideString; function Get_Archived: WordBool; procedure Set_Archived(pVal: WordBool); function Get_PrivateKey: IPrivateKey; procedure Set_PrivateKey(const pVal: IPrivateKey); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ICertificate2); procedure Disconnect; override; function HasPrivateKey: WordBool; function GetInfo(InfoType: CAPICOM_CERT_INFO_TYPE): WideString; function IsValid: ICertificateStatus; function KeyUsage: IKeyUsage; function ExtendedKeyUsage: IExtendedKeyUsage; function BasicConstraints: IBasicConstraints; function Export(EncodingType: CAPICOM_ENCODING_TYPE): WideString; procedure Import(const EncodedCertificate: WideString); procedure Display; function Template: ITemplate; function PublicKey: IPublicKey; function Extensions: IExtensions; function ExtendedProperties: IExtendedProperties; procedure Load(const FileName: WideString; const Password: WideString; KeyStorageFlag: CAPICOM_KEY_STORAGE_FLAG; KeyLocation: CAPICOM_KEY_LOCATION); procedure Save(const FileName: WideString; const Password: WideString; SaveAs: CAPICOM_CERTIFICATE_SAVE_AS_TYPE; IncludeOption: CAPICOM_CERTIFICATE_INCLUDE_OPTION); property DefaultInterface: ICertificate2 read GetDefaultInterface; 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; property Archived: WordBool read Get_Archived write Set_Archived; property PrivateKey: IPrivateKey read Get_PrivateKey write Set_PrivateKey; published end; // *********************************************************************// // The Class CoCertificates provides a Create and CreateRemote method to // create instances of the default interface ICertificates2 exposed by // the CoClass Certificates. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCertificates = class class function Create: ICertificates2; class function CreateRemote(const MachineName: string): ICertificates2; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCertificates // Help String : Certificates Class // Default Interface: ICertificates2 // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// TCertificates = class(TOleServer) private FIntf: ICertificates2; function GetDefaultInterface: ICertificates2; protected procedure InitServerData; override; function Get_Item(Index: Integer): OleVariant; function Get_Count: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ICertificates2); procedure Disconnect; override; function Find(FindType: CAPICOM_CERTIFICATE_FIND_TYPE; varCriteria: OleVariant; bFindValidOnly: WordBool): ICertificates2; function Select(const Title: WideString; const DisplayString: WideString; bMultiSelect: WordBool): ICertificates2; procedure Add(const pVal: ICertificate2); procedure Remove(Index: OleVariant); procedure Clear; procedure Save(const FileName: WideString; const Password: WideString; SaveAs: CAPICOM_CERTIFICATES_SAVE_AS_TYPE; ExportFlag: CAPICOM_EXPORT_FLAG); property DefaultInterface: ICertificates2 read GetDefaultInterface; property Item[Index: Integer]: OleVariant read Get_Item; default; property Count: Integer read Get_Count; published end; // *********************************************************************// // The Class CoChain provides a Create and CreateRemote method to // create instances of the default interface IChain2 exposed by // the CoClass Chain. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoChain = class class function Create: IChain2; class function CreateRemote(const MachineName: string): IChain2; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TChain // Help String : Chain Class // Default Interface: IChain2 // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// TChain = class(TOleServer) private FIntf: IChain2; function GetDefaultInterface: IChain2; protected procedure InitServerData; override; function Get_Certificates: ICertificates; function Get_Status(Index: Integer): Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IChain2); procedure Disconnect; override; function Build(const pICertificate: ICertificate): WordBool; function CertificatePolicies: IOIDs; function ApplicationPolicies: IOIDs; function ExtendedErrorInfo(Index: Integer): WideString; property DefaultInterface: IChain2 read GetDefaultInterface; property Certificates: ICertificates read Get_Certificates; property Status[Index: Integer]: Integer read Get_Status; published end; // *********************************************************************// // The Class CoStore provides a Create and CreateRemote method to // create instances of the default interface IStore3 exposed by // the CoClass Store. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoStore = class class function Create: IStore3; class function CreateRemote(const MachineName: string): IStore3; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TStore // Help String : Store Class // Default Interface: IStore3 // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// TStore = class(TOleServer) private FIntf: IStore3; function GetDefaultInterface: IStore3; protected procedure InitServerData; override; function Get_Certificates: ICertificates; function Get_Name: WideString; function Get_Location: CAPICOM_STORE_LOCATION; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IStore3); procedure Disconnect; override; procedure Open(StoreLocation: CAPICOM_STORE_LOCATION; const StoreName: WideString; OpenMode: CAPICOM_STORE_OPEN_MODE); procedure Add(const pVal: ICertificate); procedure Remove(const pVal: ICertificate); function Export(SaveAs: CAPICOM_STORE_SAVE_AS_TYPE; EncodingType: CAPICOM_ENCODING_TYPE): WideString; procedure Import(const EncodedStore: WideString); procedure Load(const FileName: WideString; const Password: WideString; KeyStorageFlag: CAPICOM_KEY_STORAGE_FLAG); function Delete: WordBool; procedure Close; property DefaultInterface: IStore3 read GetDefaultInterface; property Certificates: ICertificates read Get_Certificates; property Name: WideString read Get_Name; property Location: CAPICOM_STORE_LOCATION read Get_Location; published end; // *********************************************************************// // The Class CoAttribute provides a Create and CreateRemote method to // create instances of the default interface IAttribute exposed by // the CoClass Attribute. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAttribute = class class function Create: IAttribute; class function CreateRemote(const MachineName: string): IAttribute; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TAttribute // Help String : Attribute Class // Default Interface: IAttribute // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// TAttribute = class(TOleServer) private FIntf: IAttribute; function GetDefaultInterface: IAttribute; protected procedure InitServerData; override; function Get_Name: CAPICOM_ATTRIBUTE; procedure Set_Name(pVal: CAPICOM_ATTRIBUTE); function Get_Value: OleVariant; procedure Set_Value(pVal: OleVariant); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IAttribute); procedure Disconnect; override; property DefaultInterface: IAttribute read GetDefaultInterface; property Value: OleVariant read Get_Value write Set_Value; property Name: CAPICOM_ATTRIBUTE read Get_Name write Set_Name; published end; // *********************************************************************// // The Class CoAttributes provides a Create and CreateRemote method to // create instances of the default interface IAttributes exposed by // the CoClass Attributes. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAttributes = class class function Create: IAttributes; class function CreateRemote(const MachineName: string): IAttributes; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TAttributes // Help String : Attributes Class // Default Interface: IAttributes // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TAttributes = class(TOleServer) private FIntf: IAttributes; function GetDefaultInterface: IAttributes; protected procedure InitServerData; override; function Get_Item(Index: Integer): OleVariant; function Get_Count: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IAttributes); procedure Disconnect; override; procedure Add(const pVal: IAttribute); procedure Remove(Index: Integer); procedure Clear; property DefaultInterface: IAttributes read GetDefaultInterface; property Item[Index: Integer]: OleVariant read Get_Item; default; property Count: Integer read Get_Count; published end; // *********************************************************************// // The Class CoSigner provides a Create and CreateRemote method to // create instances of the default interface ISigner2 exposed by // the CoClass Signer. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSigner = class class function Create: ISigner2; class function CreateRemote(const MachineName: string): ISigner2; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSigner // Help String : Signer Class // Default Interface: ISigner2 // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// TSigner = class(TOleServer) private FIntf: ISigner2; function GetDefaultInterface: ISigner2; protected procedure InitServerData; override; function Get_Certificate: ICertificate; procedure Set_Certificate(const pVal: ICertificate); function Get_AuthenticatedAttributes: IAttributes; function Get_Chain: IChain; function Get_Options: CAPICOM_CERTIFICATE_INCLUDE_OPTION; procedure Set_Options(pVal: CAPICOM_CERTIFICATE_INCLUDE_OPTION); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ISigner2); procedure Disconnect; override; procedure Load(const FileName: WideString; const Password: WideString); property DefaultInterface: ISigner2 read GetDefaultInterface; property AuthenticatedAttributes: IAttributes read Get_AuthenticatedAttributes; property Chain: IChain read Get_Chain; property Certificate: ICertificate read Get_Certificate write Set_Certificate; property Options: CAPICOM_CERTIFICATE_INCLUDE_OPTION read Get_Options write Set_Options; published end; // *********************************************************************// // The Class CoSigners provides a Create and CreateRemote method to // create instances of the default interface ISigners exposed by // the CoClass Signers. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSigners = class class function Create: ISigners; class function CreateRemote(const MachineName: string): ISigners; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSigners // Help String : Signers Class // Default Interface: ISigners // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TSigners = class(TOleServer) private FIntf: ISigners; function GetDefaultInterface: ISigners; protected procedure InitServerData; override; function Get_Item(Index: Integer): OleVariant; function Get_Count: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ISigners); procedure Disconnect; override; property DefaultInterface: ISigners read GetDefaultInterface; property Item[Index: Integer]: OleVariant read Get_Item; default; property Count: Integer read Get_Count; published end; // *********************************************************************// // The Class CoSignedData provides a Create and CreateRemote method to // create instances of the default interface ISignedData exposed by // the CoClass SignedData. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSignedData = class class function Create: ISignedData; class function CreateRemote(const MachineName: string): ISignedData; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSignedData // Help String : SignedData Class // Default Interface: ISignedData // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// TSignedData = class(TOleServer) private FIntf: ISignedData; function GetDefaultInterface: ISignedData; protected procedure InitServerData; override; procedure Set_Content(const pVal: WideString); function Get_Content: WideString; function Get_Signers: ISigners; function Get_Certificates: ICertificates; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ISignedData); procedure Disconnect; override; function Sign(const pSigner: ISigner; bDetached: WordBool; EncodingType: CAPICOM_ENCODING_TYPE): WideString; function CoSign(const pSigner: ISigner; EncodingType: CAPICOM_ENCODING_TYPE): WideString; procedure Verify(const SignedMessage: WideString; bDetached: WordBool; VerifyFlag: CAPICOM_SIGNED_DATA_VERIFY_FLAG); property DefaultInterface: ISignedData read GetDefaultInterface; property Signers: ISigners read Get_Signers; property Certificates: ICertificates read Get_Certificates; property Content: WideString read Get_Content write Set_Content; published end; // *********************************************************************// // The Class CoAlgorithm provides a Create and CreateRemote method to // create instances of the default interface IAlgorithm exposed by // the CoClass Algorithm. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAlgorithm = class class function Create: IAlgorithm; class function CreateRemote(const MachineName: string): IAlgorithm; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TAlgorithm // Help String : Algorithm Class // Default Interface: IAlgorithm // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TAlgorithm = class(TOleServer) private FIntf: IAlgorithm; function GetDefaultInterface: IAlgorithm; protected procedure InitServerData; override; function Get_Name: CAPICOM_ENCRYPTION_ALGORITHM; procedure Set_Name(pVal: CAPICOM_ENCRYPTION_ALGORITHM); function Get_KeyLength: CAPICOM_ENCRYPTION_KEY_LENGTH; procedure Set_KeyLength(pVal: CAPICOM_ENCRYPTION_KEY_LENGTH); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IAlgorithm); procedure Disconnect; override; property DefaultInterface: IAlgorithm read GetDefaultInterface; property Name: CAPICOM_ENCRYPTION_ALGORITHM read Get_Name write Set_Name; property KeyLength: CAPICOM_ENCRYPTION_KEY_LENGTH read Get_KeyLength write Set_KeyLength; published end; // *********************************************************************// // The Class CoRecipients provides a Create and CreateRemote method to // create instances of the default interface IRecipients exposed by // the CoClass Recipients. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoRecipients = class class function Create: IRecipients; class function CreateRemote(const MachineName: string): IRecipients; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TRecipients // Help String : Recipients Class // Default Interface: IRecipients // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TRecipients = class(TOleServer) private FIntf: IRecipients; function GetDefaultInterface: IRecipients; protected procedure InitServerData; override; function Get_Item(Index: Integer): OleVariant; function Get_Count: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IRecipients); procedure Disconnect; override; procedure Add(const pVal: ICertificate); procedure Remove(Index: Integer); procedure Clear; property DefaultInterface: IRecipients read GetDefaultInterface; property Item[Index: Integer]: OleVariant read Get_Item; default; property Count: Integer read Get_Count; published end; // *********************************************************************// // The Class CoEnvelopedData provides a Create and CreateRemote method to // create instances of the default interface IEnvelopedData exposed by // the CoClass EnvelopedData. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoEnvelopedData = class class function Create: IEnvelopedData; class function CreateRemote(const MachineName: string): IEnvelopedData; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TEnvelopedData // Help String : EnvelopedData Class // Default Interface: IEnvelopedData // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// TEnvelopedData = class(TOleServer) private FIntf: IEnvelopedData; function GetDefaultInterface: IEnvelopedData; protected procedure InitServerData; override; procedure Set_Content(const pVal: WideString); function Get_Content: WideString; function Get_Algorithm: IAlgorithm; function Get_Recipients: IRecipients; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IEnvelopedData); procedure Disconnect; override; function Encrypt(EncodingType: CAPICOM_ENCODING_TYPE): WideString; procedure Decrypt(const EnvelopedMessage: WideString); property DefaultInterface: IEnvelopedData read GetDefaultInterface; property Algorithm: IAlgorithm read Get_Algorithm; property Recipients: IRecipients read Get_Recipients; property Content: WideString read Get_Content write Set_Content; published end; // *********************************************************************// // The Class CoEncryptedData provides a Create and CreateRemote method to // create instances of the default interface IEncryptedData exposed by // the CoClass EncryptedData. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoEncryptedData = class class function Create: IEncryptedData; class function CreateRemote(const MachineName: string): IEncryptedData; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TEncryptedData // Help String : EncryptedData Class // Default Interface: IEncryptedData // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// TEncryptedData = class(TOleServer) private FIntf: IEncryptedData; function GetDefaultInterface: IEncryptedData; protected procedure InitServerData; override; procedure Set_Content(const pVal: WideString); function Get_Content: WideString; function Get_Algorithm: IAlgorithm; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IEncryptedData); procedure Disconnect; override; procedure SetSecret(const newVal: WideString; SecretType: CAPICOM_SECRET_TYPE); function Encrypt(EncodingType: CAPICOM_ENCODING_TYPE): WideString; procedure Decrypt(const EncryptedMessage: WideString); property DefaultInterface: IEncryptedData read GetDefaultInterface; property Algorithm: IAlgorithm read Get_Algorithm; property Content: WideString read Get_Content write Set_Content; published end; // *********************************************************************// // The Class CoOID provides a Create and CreateRemote method to // create instances of the default interface IOID exposed by // the CoClass OID. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoOID = class class function Create: IOID; class function CreateRemote(const MachineName: string): IOID; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TOID // Help String : OID Class // Default Interface: IOID // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// TOID = class(TOleServer) private FIntf: IOID; function GetDefaultInterface: IOID; protected procedure InitServerData; override; function Get_Name: CAPICOM_OID; procedure Set_Name(pVal: CAPICOM_OID); function Get_FriendlyName: WideString; procedure Set_FriendlyName(const pVal: WideString); function Get_Value: WideString; procedure Set_Value(const pVal: WideString); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IOID); procedure Disconnect; override; property DefaultInterface: IOID read GetDefaultInterface; property Name: CAPICOM_OID read Get_Name write Set_Name; property FriendlyName: WideString read Get_FriendlyName write Set_FriendlyName; property Value: WideString read Get_Value write Set_Value; published end; // *********************************************************************// // The Class CoOIDs provides a Create and CreateRemote method to // create instances of the default interface IOIDs exposed by // the CoClass OIDs. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoOIDs = class class function Create: IOIDs; class function CreateRemote(const MachineName: string): IOIDs; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TOIDs // Help String : OIDs Class // Default Interface: IOIDs // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TOIDs = class(TOleServer) private FIntf: IOIDs; function GetDefaultInterface: IOIDs; protected procedure InitServerData; override; function Get_Item(Index: OleVariant): OleVariant; function Get_Count: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IOIDs); procedure Disconnect; override; procedure Add(const pVal: IOID); procedure Remove(Index: OleVariant); procedure Clear; property DefaultInterface: IOIDs read GetDefaultInterface; property Item[Index: OleVariant]: OleVariant read Get_Item; default; property Count: Integer read Get_Count; published end; // *********************************************************************// // The Class CoNoticeNumbers provides a Create and CreateRemote method to // create instances of the default interface INoticeNumbers exposed by // the CoClass NoticeNumbers. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoNoticeNumbers = class class function Create: INoticeNumbers; class function CreateRemote(const MachineName: string): INoticeNumbers; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TNoticeNumbers // Help String : NoticeNumbers Class // Default Interface: INoticeNumbers // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TNoticeNumbers = class(TOleServer) private FIntf: INoticeNumbers; function GetDefaultInterface: INoticeNumbers; protected procedure InitServerData; override; function Get_Item(Index: Integer): OleVariant; function Get_Count: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: INoticeNumbers); procedure Disconnect; override; property DefaultInterface: INoticeNumbers read GetDefaultInterface; property Item[Index: Integer]: OleVariant read Get_Item; default; property Count: Integer read Get_Count; published end; // *********************************************************************// // The Class CoQualifier provides a Create and CreateRemote method to // create instances of the default interface IQualifier exposed by // the CoClass Qualifier. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoQualifier = class class function Create: IQualifier; class function CreateRemote(const MachineName: string): IQualifier; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TQualifier // Help String : Qualifier Class // Default Interface: IQualifier // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TQualifier = class(TOleServer) private FIntf: IQualifier; function GetDefaultInterface: IQualifier; protected procedure InitServerData; override; function Get_OID: IOID; function Get_CPSPointer: WideString; function Get_OrganizationName: WideString; function Get_NoticeNumbers: INoticeNumbers; function Get_ExplicitText: WideString; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IQualifier); procedure Disconnect; override; property DefaultInterface: IQualifier read GetDefaultInterface; property OID: IOID read Get_OID; property CPSPointer: WideString read Get_CPSPointer; property OrganizationName: WideString read Get_OrganizationName; property NoticeNumbers: INoticeNumbers read Get_NoticeNumbers; property ExplicitText: WideString read Get_ExplicitText; published end; // *********************************************************************// // The Class CoQualifiers provides a Create and CreateRemote method to // create instances of the default interface IQualifiers exposed by // the CoClass Qualifiers. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoQualifiers = class class function Create: IQualifiers; class function CreateRemote(const MachineName: string): IQualifiers; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TQualifiers // Help String : Qualifiers Class // Default Interface: IQualifiers // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TQualifiers = class(TOleServer) private FIntf: IQualifiers; function GetDefaultInterface: IQualifiers; protected procedure InitServerData; override; function Get_Item(Index: Integer): OleVariant; function Get_Count: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IQualifiers); procedure Disconnect; override; property DefaultInterface: IQualifiers read GetDefaultInterface; property Item[Index: Integer]: OleVariant read Get_Item; default; property Count: Integer read Get_Count; published end; // *********************************************************************// // The Class CoPolicyInformation provides a Create and CreateRemote method to // create instances of the default interface IPolicyInformation exposed by // the CoClass PolicyInformation. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPolicyInformation = class class function Create: IPolicyInformation; class function CreateRemote(const MachineName: string): IPolicyInformation; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPolicyInformation // Help String : PolicyInformation Class // Default Interface: IPolicyInformation // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TPolicyInformation = class(TOleServer) private FIntf: IPolicyInformation; function GetDefaultInterface: IPolicyInformation; protected procedure InitServerData; override; function Get_OID: IOID; function Get_Qualifiers: IQualifiers; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IPolicyInformation); procedure Disconnect; override; property DefaultInterface: IPolicyInformation read GetDefaultInterface; property OID: IOID read Get_OID; property Qualifiers: IQualifiers read Get_Qualifiers; published end; // *********************************************************************// // The Class CoCertificatePolicies provides a Create and CreateRemote method to // create instances of the default interface ICertificatePolicies exposed by // the CoClass CertificatePolicies. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCertificatePolicies = class class function Create: ICertificatePolicies; class function CreateRemote(const MachineName: string): ICertificatePolicies; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCertificatePolicies // Help String : CertificatePolicies Class // Default Interface: ICertificatePolicies // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TCertificatePolicies = class(TOleServer) private FIntf: ICertificatePolicies; function GetDefaultInterface: ICertificatePolicies; protected procedure InitServerData; override; function Get_Item(Index: Integer): OleVariant; function Get_Count: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ICertificatePolicies); procedure Disconnect; override; property DefaultInterface: ICertificatePolicies read GetDefaultInterface; property Item[Index: Integer]: OleVariant read Get_Item; default; property Count: Integer read Get_Count; published end; // *********************************************************************// // The Class CoEncodedData provides a Create and CreateRemote method to // create instances of the default interface IEncodedData exposed by // the CoClass EncodedData. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoEncodedData = class class function Create: IEncodedData; class function CreateRemote(const MachineName: string): IEncodedData; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TEncodedData // Help String : EncodedData Class // Default Interface: IEncodedData // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TEncodedData = class(TOleServer) private FIntf: IEncodedData; function GetDefaultInterface: IEncodedData; protected procedure InitServerData; override; function Get_Value(EncodingType: CAPICOM_ENCODING_TYPE): WideString; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IEncodedData); procedure Disconnect; override; function Format(bMultiLines: WordBool): WideString; function Decoder: IDispatch; property DefaultInterface: IEncodedData read GetDefaultInterface; property Value[EncodingType: CAPICOM_ENCODING_TYPE]: WideString read Get_Value; default; published end; // *********************************************************************// // The Class CoExtension provides a Create and CreateRemote method to // create instances of the default interface IExtension exposed by // the CoClass Extension. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoExtension = class class function Create: IExtension; class function CreateRemote(const MachineName: string): IExtension; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TExtension // Help String : Extension Class // Default Interface: IExtension // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TExtension = class(TOleServer) private FIntf: IExtension; function GetDefaultInterface: IExtension; protected procedure InitServerData; override; function Get_OID: IOID; function Get_IsCritical: WordBool; function Get_EncodedData: IEncodedData; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IExtension); procedure Disconnect; override; property DefaultInterface: IExtension read GetDefaultInterface; property OID: IOID read Get_OID; property IsCritical: WordBool read Get_IsCritical; property EncodedData: IEncodedData read Get_EncodedData; published end; // *********************************************************************// // The Class CoExtensions provides a Create and CreateRemote method to // create instances of the default interface IExtensions exposed by // the CoClass Extensions. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoExtensions = class class function Create: IExtensions; class function CreateRemote(const MachineName: string): IExtensions; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TExtensions // Help String : Extensions Class // Default Interface: IExtensions // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TExtensions = class(TOleServer) private FIntf: IExtensions; function GetDefaultInterface: IExtensions; protected procedure InitServerData; override; function Get_Item(Index: OleVariant): OleVariant; function Get_Count: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IExtensions); procedure Disconnect; override; property DefaultInterface: IExtensions read GetDefaultInterface; property Item[Index: OleVariant]: OleVariant read Get_Item; default; property Count: Integer read Get_Count; published end; // *********************************************************************// // The Class CoExtendedProperty provides a Create and CreateRemote method to // create instances of the default interface IExtendedProperty exposed by // the CoClass ExtendedProperty. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoExtendedProperty = class class function Create: IExtendedProperty; class function CreateRemote(const MachineName: string): IExtendedProperty; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TExtendedProperty // Help String : ExtendedProperty Class // Default Interface: IExtendedProperty // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// TExtendedProperty = class(TOleServer) private FIntf: IExtendedProperty; function GetDefaultInterface: IExtendedProperty; protected procedure InitServerData; override; function Get_PropID: CAPICOM_PROPID; procedure Set_PropID(pVal: CAPICOM_PROPID); function Get_Value(EncodingType: CAPICOM_ENCODING_TYPE): WideString; procedure Set_Value(EncodingType: CAPICOM_ENCODING_TYPE; const pVal: WideString); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IExtendedProperty); procedure Disconnect; override; property DefaultInterface: IExtendedProperty read GetDefaultInterface; property Value[EncodingType: CAPICOM_ENCODING_TYPE]: WideString read Get_Value write Set_Value; property PropID: CAPICOM_PROPID read Get_PropID write Set_PropID; published end; // *********************************************************************// // The Class CoExtendedProperties provides a Create and CreateRemote method to // create instances of the default interface IExtendedProperties exposed by // the CoClass ExtendedProperties. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoExtendedProperties = class class function Create: IExtendedProperties; class function CreateRemote(const MachineName: string): IExtendedProperties; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TExtendedProperties // Help String : ExtendedProperties Class // Default Interface: IExtendedProperties // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TExtendedProperties = class(TOleServer) private FIntf: IExtendedProperties; function GetDefaultInterface: IExtendedProperties; protected procedure InitServerData; override; function Get_Item(Index: Integer): OleVariant; function Get_Count: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IExtendedProperties); procedure Disconnect; override; procedure Add(const pVal: IExtendedProperty); procedure Remove(PropID: CAPICOM_PROPID); property DefaultInterface: IExtendedProperties read GetDefaultInterface; property Item[Index: Integer]: OleVariant read Get_Item; default; property Count: Integer read Get_Count; published end; // *********************************************************************// // The Class CoTemplate provides a Create and CreateRemote method to // create instances of the default interface ITemplate exposed by // the CoClass Template. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoTemplate = class class function Create: ITemplate; class function CreateRemote(const MachineName: string): ITemplate; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TTemplate // Help String : Template Class // Default Interface: ITemplate // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TTemplate = class(TOleServer) private FIntf: ITemplate; function GetDefaultInterface: ITemplate; protected procedure InitServerData; override; function Get_IsPresent: WordBool; function Get_IsCritical: WordBool; function Get_Name: WideString; function Get_OID: IOID; function Get_MajorVersion: Integer; function Get_MinorVersion: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ITemplate); procedure Disconnect; override; property DefaultInterface: ITemplate read GetDefaultInterface; 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; published end; // *********************************************************************// // The Class CoPublicKey provides a Create and CreateRemote method to // create instances of the default interface IPublicKey exposed by // the CoClass PublicKey. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPublicKey = class class function Create: IPublicKey; class function CreateRemote(const MachineName: string): IPublicKey; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPublicKey // Help String : PublicKey Class // Default Interface: IPublicKey // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// TPublicKey = class(TOleServer) private FIntf: IPublicKey; function GetDefaultInterface: IPublicKey; protected procedure InitServerData; override; function Get_Algorithm: IOID; function Get_Length: Integer; function Get_EncodedKey: IEncodedData; function Get_EncodedParameters: IEncodedData; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IPublicKey); procedure Disconnect; override; property DefaultInterface: IPublicKey read GetDefaultInterface; property Algorithm: IOID read Get_Algorithm; property Length: Integer read Get_Length; property EncodedKey: IEncodedData read Get_EncodedKey; property EncodedParameters: IEncodedData read Get_EncodedParameters; published end; // *********************************************************************// // The Class CoPrivateKey provides a Create and CreateRemote method to // create instances of the default interface IPrivateKey exposed by // the CoClass PrivateKey. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPrivateKey = class class function Create: IPrivateKey; class function CreateRemote(const MachineName: string): IPrivateKey; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPrivateKey // Help String : PrivateKey Class // Default Interface: IPrivateKey // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// TPrivateKey = class(TOleServer) private FIntf: IPrivateKey; function GetDefaultInterface: IPrivateKey; protected procedure InitServerData; override; function Get_ContainerName: WideString; function Get_UniqueContainerName: WideString; function Get_ProviderName: WideString; function Get_ProviderType: CAPICOM_PROV_TYPE; function Get_KeySpec: CAPICOM_KEY_SPEC; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IPrivateKey); procedure Disconnect; override; function IsAccessible: WordBool; function IsProtected: WordBool; function IsExportable: WordBool; function IsRemovable: WordBool; function IsMachineKeyset: WordBool; function IsHardwareDevice: WordBool; procedure Open(const ContainerName: WideString; const ProviderName: WideString; ProviderType: CAPICOM_PROV_TYPE; KeySpec: CAPICOM_KEY_SPEC; StoreLocation: CAPICOM_STORE_LOCATION; bCheckExistence: WordBool); procedure Delete; property DefaultInterface: IPrivateKey read GetDefaultInterface; 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; published end; // *********************************************************************// // The Class CoSignedCode provides a Create and CreateRemote method to // create instances of the default interface ISignedCode exposed by // the CoClass SignedCode. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSignedCode = class class function Create: ISignedCode; class function CreateRemote(const MachineName: string): ISignedCode; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSignedCode // Help String : SignedCode Class // Default Interface: ISignedCode // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// TSignedCode = class(TOleServer) private FIntf: ISignedCode; function GetDefaultInterface: ISignedCode; protected procedure InitServerData; override; function Get_FileName: WideString; procedure Set_FileName(const pVal: WideString); function Get_Description: WideString; procedure Set_Description(const pVal: WideString); function Get_DescriptionURL: WideString; procedure Set_DescriptionURL(const pVal: WideString); function Get_Signer: ISigner2; function Get_TimeStamper: ISigner2; function Get_Certificates: ICertificates2; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ISignedCode); procedure Disconnect; override; procedure Sign(const pISigner2: ISigner2); procedure Timestamp(const URL: WideString); procedure Verify(bUIAllowed: WordBool); property DefaultInterface: ISignedCode read GetDefaultInterface; property Signer: ISigner2 read Get_Signer; property TimeStamper: ISigner2 read Get_TimeStamper; property Certificates: ICertificates2 read Get_Certificates; property FileName: WideString read Get_FileName write Set_FileName; property Description: WideString read Get_Description write Set_Description; property DescriptionURL: WideString read Get_DescriptionURL write Set_DescriptionURL; published end; // *********************************************************************// // The Class CoHashedData provides a Create and CreateRemote method to // create instances of the default interface IHashedData exposed by // the CoClass HashedData. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoHashedData = class class function Create: IHashedData; class function CreateRemote(const MachineName: string): IHashedData; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : THashedData // Help String : HashedData Class // Default Interface: IHashedData // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// THashedData = class(TOleServer) private FIntf: IHashedData; function GetDefaultInterface: IHashedData; protected procedure InitServerData; override; function Get_Value: WideString; function Get_Algorithm: CAPICOM_HASH_ALGORITHM; procedure Set_Algorithm(pVal: CAPICOM_HASH_ALGORITHM); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IHashedData); procedure Disconnect; override; procedure Hash(const newVal: WideString); property DefaultInterface: IHashedData read GetDefaultInterface; property Value: WideString read Get_Value; property Algorithm: CAPICOM_HASH_ALGORITHM read Get_Algorithm write Set_Algorithm; published end; // *********************************************************************// // The Class CoUtilities provides a Create and CreateRemote method to // create instances of the default interface IUtilities exposed by // the CoClass Utilities. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoUtilities = class class function Create: IUtilities; class function CreateRemote(const MachineName: string): IUtilities; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TUtilities // Help String : Utilities Class // Default Interface: IUtilities // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// TUtilities = class(TOleServer) private FIntf: IUtilities; function GetDefaultInterface: IUtilities; protected procedure InitServerData; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IUtilities); procedure Disconnect; override; function GetRandom(Length: Integer; EncodingType: CAPICOM_ENCODING_TYPE): WideString; function Base64Encode(const SrcString: WideString): WideString; function Base64Decode(const EncodedString: WideString): WideString; function BinaryToHex(const BinaryString: WideString): WideString; function HexToBinary(const HexString: WideString): WideString; function BinaryStringToByteArray(const BinaryString: WideString): OleVariant; function ByteArrayToBinaryString(varByteArray: OleVariant): WideString; function LocalTimeToUTCTime(LocalTime: TDateTime): TDateTime; function UTCTimeToLocalTime(UTCTime: TDateTime): TDateTime; property DefaultInterface: IUtilities read GetDefaultInterface; published end; procedure Register; resourcestring dtlServerPage = 'ActiveX'; dtlOcxPage = 'ActiveX'; implementation uses System.Win.ComObj; class function CoSettings.Create: ISettings; begin Result := CreateComObject(CLASS_Settings) as ISettings; end; class function CoSettings.CreateRemote(const MachineName: string): ISettings; begin Result := CreateRemoteComObject(MachineName, CLASS_Settings) as ISettings; end; procedure TSettings.InitServerData; const CServerData: TServerData = ( ClassID: '{A996E48C-D3DC-4244-89F7-AFA33EC60679}'; IntfIID: '{A24104F5-46D0-4C0F-926D-665565908E91}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSettings.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ISettings; end; end; procedure TSettings.ConnectTo(svrIntf: ISettings); begin Disconnect; FIntf := svrIntf; end; procedure TSettings.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSettings.GetDefaultInterface: ISettings; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TSettings.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TSettings.Destroy; begin inherited Destroy; end; function TSettings.Get_EnablePromptForCertificateUI: WordBool; begin Result := DefaultInterface.EnablePromptForCertificateUI; end; procedure TSettings.Set_EnablePromptForCertificateUI(pVal: WordBool); begin DefaultInterface.EnablePromptForCertificateUI := pVal; end; function TSettings.Get_ActiveDirectorySearchLocation: CAPICOM_ACTIVE_DIRECTORY_SEARCH_LOCATION; begin Result := DefaultInterface.ActiveDirectorySearchLocation; end; procedure TSettings.Set_ActiveDirectorySearchLocation(pVal: CAPICOM_ACTIVE_DIRECTORY_SEARCH_LOCATION); begin DefaultInterface.ActiveDirectorySearchLocation := pVal; end; class function CoEKU.Create: IEKU; begin Result := CreateComObject(CLASS_EKU) as IEKU; end; class function CoEKU.CreateRemote(const MachineName: string): IEKU; begin Result := CreateRemoteComObject(MachineName, CLASS_EKU) as IEKU; end; procedure TEKU.InitServerData; const CServerData: TServerData = ( ClassID: '{8535F9A1-738A-40D0-8FB1-10CC8F74E7D3}'; IntfIID: '{976B7E6D-1002-4051-BFD4-824A74BD74E2}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TEKU.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IEKU; end; end; procedure TEKU.ConnectTo(svrIntf: IEKU); begin Disconnect; FIntf := svrIntf; end; procedure TEKU.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TEKU.GetDefaultInterface: IEKU; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TEKU.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TEKU.Destroy; begin inherited Destroy; end; function TEKU.Get_Name: CAPICOM_EKU; begin Result := DefaultInterface.Name; end; procedure TEKU.Set_Name(pVal: CAPICOM_EKU); begin DefaultInterface.Name := pVal; end; function TEKU.Get_OID: WideString; begin Result := DefaultInterface.OID; end; procedure TEKU.Set_OID(const pVal: WideString); begin DefaultInterface.OID := pVal; end; class function CoEKUs.Create: IEKUs; begin Result := CreateComObject(CLASS_EKUs) as IEKUs; end; class function CoEKUs.CreateRemote(const MachineName: string): IEKUs; begin Result := CreateRemoteComObject(MachineName, CLASS_EKUs) as IEKUs; end; procedure TEKUs.InitServerData; const CServerData: TServerData = ( ClassID: '{F1800663-5BFC-4D1A-8D44-56CE02DDA34F}'; IntfIID: '{47C87CEC-8C4B-4E3C-8D22-34280274EFD1}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TEKUs.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IEKUs; end; end; procedure TEKUs.ConnectTo(svrIntf: IEKUs); begin Disconnect; FIntf := svrIntf; end; procedure TEKUs.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TEKUs.GetDefaultInterface: IEKUs; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TEKUs.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TEKUs.Destroy; begin inherited Destroy; end; function TEKUs.Get_Item(Index: Integer): OleVariant; begin Result := DefaultInterface.Item[Index]; end; function TEKUs.Get_Count: Integer; begin Result := DefaultInterface.Count; end; class function CoKeyUsage.Create: IKeyUsage; begin Result := CreateComObject(CLASS_KeyUsage) as IKeyUsage; end; class function CoKeyUsage.CreateRemote(const MachineName: string): IKeyUsage; begin Result := CreateRemoteComObject(MachineName, CLASS_KeyUsage) as IKeyUsage; end; procedure TKeyUsage.InitServerData; const CServerData: TServerData = ( ClassID: '{9226C95C-38BE-4CC4-B3A2-A867F5199C13}'; IntfIID: '{41DD35A8-9FF9-45A6-9A7C-F65B2F085D1F}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TKeyUsage.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IKeyUsage; end; end; procedure TKeyUsage.ConnectTo(svrIntf: IKeyUsage); begin Disconnect; FIntf := svrIntf; end; procedure TKeyUsage.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TKeyUsage.GetDefaultInterface: IKeyUsage; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TKeyUsage.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TKeyUsage.Destroy; begin inherited Destroy; end; function TKeyUsage.Get_IsPresent: WordBool; begin Result := DefaultInterface.IsPresent; end; function TKeyUsage.Get_IsCritical: WordBool; begin Result := DefaultInterface.IsCritical; end; function TKeyUsage.Get_IsDigitalSignatureEnabled: WordBool; begin Result := DefaultInterface.IsDigitalSignatureEnabled; end; function TKeyUsage.Get_IsNonRepudiationEnabled: WordBool; begin Result := DefaultInterface.IsNonRepudiationEnabled; end; function TKeyUsage.Get_IsKeyEnciphermentEnabled: WordBool; begin Result := DefaultInterface.IsKeyEnciphermentEnabled; end; function TKeyUsage.Get_IsDataEnciphermentEnabled: WordBool; begin Result := DefaultInterface.IsDataEnciphermentEnabled; end; function TKeyUsage.Get_IsKeyAgreementEnabled: WordBool; begin Result := DefaultInterface.IsKeyAgreementEnabled; end; function TKeyUsage.Get_IsKeyCertSignEnabled: WordBool; begin Result := DefaultInterface.IsKeyCertSignEnabled; end; function TKeyUsage.Get_IsCRLSignEnabled: WordBool; begin Result := DefaultInterface.IsCRLSignEnabled; end; function TKeyUsage.Get_IsEncipherOnlyEnabled: WordBool; begin Result := DefaultInterface.IsEncipherOnlyEnabled; end; function TKeyUsage.Get_IsDecipherOnlyEnabled: WordBool; begin Result := DefaultInterface.IsDecipherOnlyEnabled; end; class function CoExtendedKeyUsage.Create: IExtendedKeyUsage; begin Result := CreateComObject(CLASS_ExtendedKeyUsage) as IExtendedKeyUsage; end; class function CoExtendedKeyUsage.CreateRemote(const MachineName: string): IExtendedKeyUsage; begin Result := CreateRemoteComObject(MachineName, CLASS_ExtendedKeyUsage) as IExtendedKeyUsage; end; procedure TExtendedKeyUsage.InitServerData; const CServerData: TServerData = ( ClassID: '{42C18607-1B4B-4126-8F1B-76E2DC7F631A}'; IntfIID: '{7289D408-987D-45D1-8DEE-CF9E91C2E90E}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TExtendedKeyUsage.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IExtendedKeyUsage; end; end; procedure TExtendedKeyUsage.ConnectTo(svrIntf: IExtendedKeyUsage); begin Disconnect; FIntf := svrIntf; end; procedure TExtendedKeyUsage.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TExtendedKeyUsage.GetDefaultInterface: IExtendedKeyUsage; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TExtendedKeyUsage.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TExtendedKeyUsage.Destroy; begin inherited Destroy; end; function TExtendedKeyUsage.Get_IsPresent: WordBool; begin Result := DefaultInterface.IsPresent; end; function TExtendedKeyUsage.Get_IsCritical: WordBool; begin Result := DefaultInterface.IsCritical; end; function TExtendedKeyUsage.Get_EKUs: IEKUs; begin Result := DefaultInterface.EKUs; end; class function CoBasicConstraints.Create: IBasicConstraints; begin Result := CreateComObject(CLASS_BasicConstraints) as IBasicConstraints; end; class function CoBasicConstraints.CreateRemote(const MachineName: string): IBasicConstraints; begin Result := CreateRemoteComObject(MachineName, CLASS_BasicConstraints) as IBasicConstraints; end; procedure TBasicConstraints.InitServerData; const CServerData: TServerData = ( ClassID: '{C05AAC6E-3A58-45A9-A203-56952E961E48}'; IntfIID: '{4E298C47-ABA6-459E-851B-993D6C626EAD}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TBasicConstraints.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IBasicConstraints; end; end; procedure TBasicConstraints.ConnectTo(svrIntf: IBasicConstraints); begin Disconnect; FIntf := svrIntf; end; procedure TBasicConstraints.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TBasicConstraints.GetDefaultInterface: IBasicConstraints; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TBasicConstraints.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TBasicConstraints.Destroy; begin inherited Destroy; end; function TBasicConstraints.Get_IsPresent: WordBool; begin Result := DefaultInterface.IsPresent; end; function TBasicConstraints.Get_IsCritical: WordBool; begin Result := DefaultInterface.IsCritical; end; function TBasicConstraints.Get_IsCertificateAuthority: WordBool; begin Result := DefaultInterface.IsCertificateAuthority; end; function TBasicConstraints.Get_IsPathLenConstraintPresent: WordBool; begin Result := DefaultInterface.IsPathLenConstraintPresent; end; function TBasicConstraints.Get_PathLenConstraint: Integer; begin Result := DefaultInterface.PathLenConstraint; end; class function CoCertificateStatus.Create: ICertificateStatus3; begin Result := CreateComObject(CLASS_CertificateStatus) as ICertificateStatus3; end; class function CoCertificateStatus.CreateRemote(const MachineName: string): ICertificateStatus3; begin Result := CreateRemoteComObject(MachineName, CLASS_CertificateStatus) as ICertificateStatus3; end; procedure TCertificateStatus.InitServerData; const CServerData: TServerData = ( ClassID: '{0EF24D18-BD9B-47D4-9458-E05B489FB7BA}'; IntfIID: '{A4EAB890-0786-406B-9B31-2746F31F8D87}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCertificateStatus.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ICertificateStatus3; end; end; procedure TCertificateStatus.ConnectTo(svrIntf: ICertificateStatus3); begin Disconnect; FIntf := svrIntf; end; procedure TCertificateStatus.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCertificateStatus.GetDefaultInterface: ICertificateStatus3; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TCertificateStatus.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TCertificateStatus.Destroy; begin inherited Destroy; end; function TCertificateStatus.Get_Result: WordBool; begin Result := DefaultInterface.Result; end; function TCertificateStatus.Get_CheckFlag: CAPICOM_CHECK_FLAG; begin Result := DefaultInterface.CheckFlag; end; procedure TCertificateStatus.Set_CheckFlag(pVal: CAPICOM_CHECK_FLAG); begin DefaultInterface.CheckFlag := pVal; end; function TCertificateStatus.Get_VerificationTime: TDateTime; begin Result := DefaultInterface.VerificationTime; end; procedure TCertificateStatus.Set_VerificationTime(pVal: TDateTime); begin DefaultInterface.VerificationTime := pVal; end; function TCertificateStatus.Get_UrlRetrievalTimeout: Integer; begin Result := DefaultInterface.UrlRetrievalTimeout; end; procedure TCertificateStatus.Set_UrlRetrievalTimeout(pVal: Integer); begin DefaultInterface.UrlRetrievalTimeout := pVal; end; function TCertificateStatus.Get_ValidationCertificates: ICertificates; begin Result := DefaultInterface.ValidationCertificates; end; function TCertificateStatus.EKU: IEKU; begin Result := DefaultInterface.EKU; end; function TCertificateStatus.CertificatePolicies: IOIDs; begin Result := DefaultInterface.CertificatePolicies; end; function TCertificateStatus.ApplicationPolicies: IOIDs; begin Result := DefaultInterface.ApplicationPolicies; end; class function CoCertificate.Create: ICertificate2; begin Result := CreateComObject(CLASS_Certificate) as ICertificate2; end; class function CoCertificate.CreateRemote(const MachineName: string): ICertificate2; begin Result := CreateRemoteComObject(MachineName, CLASS_Certificate) as ICertificate2; end; procedure TCertificate.InitServerData; const CServerData: TServerData = ( ClassID: '{9171C115-7DD9-46BA-B1E5-0ED50AFFC1B8}'; IntfIID: '{6FE450DC-AD32-48D4-A366-01EE7E0B1374}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCertificate.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ICertificate2; end; end; procedure TCertificate.ConnectTo(svrIntf: ICertificate2); begin Disconnect; FIntf := svrIntf; end; procedure TCertificate.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCertificate.GetDefaultInterface: ICertificate2; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TCertificate.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TCertificate.Destroy; begin inherited Destroy; end; function TCertificate.Get_Version: Integer; begin Result := DefaultInterface.Version; end; function TCertificate.Get_SerialNumber: WideString; begin Result := DefaultInterface.SerialNumber; end; function TCertificate.Get_SubjectName: WideString; begin Result := DefaultInterface.SubjectName; end; function TCertificate.Get_IssuerName: WideString; begin Result := DefaultInterface.IssuerName; end; function TCertificate.Get_ValidFromDate: TDateTime; begin Result := DefaultInterface.ValidFromDate; end; function TCertificate.Get_ValidToDate: TDateTime; begin Result := DefaultInterface.ValidToDate; end; function TCertificate.Get_Thumbprint: WideString; begin Result := DefaultInterface.Thumbprint; end; function TCertificate.Get_Archived: WordBool; begin Result := DefaultInterface.Archived; end; procedure TCertificate.Set_Archived(pVal: WordBool); begin DefaultInterface.Archived := pVal; end; function TCertificate.Get_PrivateKey: IPrivateKey; begin Result := DefaultInterface.PrivateKey; end; procedure TCertificate.Set_PrivateKey(const pVal: IPrivateKey); begin DefaultInterface.PrivateKey := pVal; end; function TCertificate.HasPrivateKey: WordBool; begin Result := DefaultInterface.HasPrivateKey; end; function TCertificate.GetInfo(InfoType: CAPICOM_CERT_INFO_TYPE): WideString; begin Result := DefaultInterface.GetInfo(InfoType); end; function TCertificate.IsValid: ICertificateStatus; begin Result := DefaultInterface.IsValid; end; function TCertificate.KeyUsage: IKeyUsage; begin Result := DefaultInterface.KeyUsage; end; function TCertificate.ExtendedKeyUsage: IExtendedKeyUsage; begin Result := DefaultInterface.ExtendedKeyUsage; end; function TCertificate.BasicConstraints: IBasicConstraints; begin Result := DefaultInterface.BasicConstraints; end; function TCertificate.Export(EncodingType: CAPICOM_ENCODING_TYPE): WideString; begin Result := DefaultInterface.Export(EncodingType); end; procedure TCertificate.Import(const EncodedCertificate: WideString); begin DefaultInterface.Import(EncodedCertificate); end; procedure TCertificate.Display; begin DefaultInterface.Display; end; function TCertificate.Template: ITemplate; begin Result := DefaultInterface.Template; end; function TCertificate.PublicKey: IPublicKey; begin Result := DefaultInterface.PublicKey; end; function TCertificate.Extensions: IExtensions; begin Result := DefaultInterface.Extensions; end; function TCertificate.ExtendedProperties: IExtendedProperties; begin Result := DefaultInterface.ExtendedProperties; end; procedure TCertificate.Load(const FileName: WideString; const Password: WideString; KeyStorageFlag: CAPICOM_KEY_STORAGE_FLAG; KeyLocation: CAPICOM_KEY_LOCATION); begin DefaultInterface.Load(FileName, Password, KeyStorageFlag, KeyLocation); end; procedure TCertificate.Save(const FileName: WideString; const Password: WideString; SaveAs: CAPICOM_CERTIFICATE_SAVE_AS_TYPE; IncludeOption: CAPICOM_CERTIFICATE_INCLUDE_OPTION); begin DefaultInterface.Save(FileName, Password, SaveAs, IncludeOption); end; class function CoCertificates.Create: ICertificates2; begin Result := CreateComObject(CLASS_Certificates) as ICertificates2; end; class function CoCertificates.CreateRemote(const MachineName: string): ICertificates2; begin Result := CreateRemoteComObject(MachineName, CLASS_Certificates) as ICertificates2; end; procedure TCertificates.InitServerData; const CServerData: TServerData = ( ClassID: '{17E3A1C3-EA8A-4970-AF29-7F54610B1D4C}'; IntfIID: '{7B57C04B-1786-4B30-A7B6-36235CD58A14}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCertificates.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ICertificates2; end; end; procedure TCertificates.ConnectTo(svrIntf: ICertificates2); begin Disconnect; FIntf := svrIntf; end; procedure TCertificates.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCertificates.GetDefaultInterface: ICertificates2; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TCertificates.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TCertificates.Destroy; begin inherited Destroy; end; function TCertificates.Get_Item(Index: Integer): OleVariant; begin Result := DefaultInterface.Item[Index]; end; function TCertificates.Get_Count: Integer; begin Result := DefaultInterface.Count; end; function TCertificates.Find(FindType: CAPICOM_CERTIFICATE_FIND_TYPE; varCriteria: OleVariant; bFindValidOnly: WordBool): ICertificates2; begin Result := DefaultInterface.Find(FindType, varCriteria, bFindValidOnly); end; function TCertificates.Select(const Title: WideString; const DisplayString: WideString; bMultiSelect: WordBool): ICertificates2; begin Result := DefaultInterface.Select(Title, DisplayString, bMultiSelect); end; procedure TCertificates.Add(const pVal: ICertificate2); begin DefaultInterface.Add(pVal); end; procedure TCertificates.Remove(Index: OleVariant); begin DefaultInterface.Remove(Index); end; procedure TCertificates.Clear; begin DefaultInterface.Clear; end; procedure TCertificates.Save(const FileName: WideString; const Password: WideString; SaveAs: CAPICOM_CERTIFICATES_SAVE_AS_TYPE; ExportFlag: CAPICOM_EXPORT_FLAG); begin DefaultInterface.Save(FileName, Password, SaveAs, ExportFlag); end; class function CoChain.Create: IChain2; begin Result := CreateComObject(CLASS_Chain) as IChain2; end; class function CoChain.CreateRemote(const MachineName: string): IChain2; begin Result := CreateRemoteComObject(MachineName, CLASS_Chain) as IChain2; end; procedure TChain.InitServerData; const CServerData: TServerData = ( ClassID: '{550C8FFB-4DC0-4756-828C-862E6D0AE74F}'; IntfIID: '{CA65D842-2110-4073-AEE3-D0AA5F56C421}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TChain.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IChain2; end; end; procedure TChain.ConnectTo(svrIntf: IChain2); begin Disconnect; FIntf := svrIntf; end; procedure TChain.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TChain.GetDefaultInterface: IChain2; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TChain.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TChain.Destroy; begin inherited Destroy; end; function TChain.Get_Certificates: ICertificates; begin Result := DefaultInterface.Certificates; end; function TChain.Get_Status(Index: Integer): Integer; begin Result := DefaultInterface.Status[Index]; end; function TChain.Build(const pICertificate: ICertificate): WordBool; begin Result := DefaultInterface.Build(pICertificate); end; function TChain.CertificatePolicies: IOIDs; begin Result := DefaultInterface.CertificatePolicies; end; function TChain.ApplicationPolicies: IOIDs; begin Result := DefaultInterface.ApplicationPolicies; end; function TChain.ExtendedErrorInfo(Index: Integer): WideString; begin Result := DefaultInterface.ExtendedErrorInfo(Index); end; class function CoStore.Create: IStore3; begin Result := CreateComObject(CLASS_Store) as IStore3; end; class function CoStore.CreateRemote(const MachineName: string): IStore3; begin Result := CreateRemoteComObject(MachineName, CLASS_Store) as IStore3; end; procedure TStore.InitServerData; const CServerData: TServerData = ( ClassID: '{91D221C4-0CD4-461C-A728-01D509321556}'; IntfIID: '{F701F8EC-31C7-48FB-B621-5DE417C3A607}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TStore.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IStore3; end; end; procedure TStore.ConnectTo(svrIntf: IStore3); begin Disconnect; FIntf := svrIntf; end; procedure TStore.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TStore.GetDefaultInterface: IStore3; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TStore.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TStore.Destroy; begin inherited Destroy; end; function TStore.Get_Certificates: ICertificates; begin Result := DefaultInterface.Certificates; end; function TStore.Get_Name: WideString; begin Result := DefaultInterface.Name; end; function TStore.Get_Location: CAPICOM_STORE_LOCATION; begin Result := DefaultInterface.Location; end; procedure TStore.Open(StoreLocation: CAPICOM_STORE_LOCATION; const StoreName: WideString; OpenMode: CAPICOM_STORE_OPEN_MODE); begin DefaultInterface.Open(StoreLocation, StoreName, OpenMode); end; procedure TStore.Add(const pVal: ICertificate); begin DefaultInterface.Add(pVal); end; procedure TStore.Remove(const pVal: ICertificate); begin DefaultInterface.Remove(pVal); end; function TStore.Export(SaveAs: CAPICOM_STORE_SAVE_AS_TYPE; EncodingType: CAPICOM_ENCODING_TYPE): WideString; begin Result := DefaultInterface.Export(SaveAs, EncodingType); end; procedure TStore.Import(const EncodedStore: WideString); begin DefaultInterface.Import(EncodedStore); end; procedure TStore.Load(const FileName: WideString; const Password: WideString; KeyStorageFlag: CAPICOM_KEY_STORAGE_FLAG); begin DefaultInterface.Load(FileName, Password, KeyStorageFlag); end; function TStore.Delete: WordBool; begin Result := DefaultInterface.Delete; end; procedure TStore.Close; begin DefaultInterface.Close; end; class function CoAttribute.Create: IAttribute; begin Result := CreateComObject(CLASS_Attribute) as IAttribute; end; class function CoAttribute.CreateRemote(const MachineName: string): IAttribute; begin Result := CreateRemoteComObject(MachineName, CLASS_Attribute) as IAttribute; end; procedure TAttribute.InitServerData; const CServerData: TServerData = ( ClassID: '{54BA1E8F-818D-407F-949D-BAE1692C5C18}'; IntfIID: '{B17A8D78-B5A6-45F7-BA21-01AB94B08415}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TAttribute.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IAttribute; end; end; procedure TAttribute.ConnectTo(svrIntf: IAttribute); begin Disconnect; FIntf := svrIntf; end; procedure TAttribute.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TAttribute.GetDefaultInterface: IAttribute; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TAttribute.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TAttribute.Destroy; begin inherited Destroy; end; function TAttribute.Get_Name: CAPICOM_ATTRIBUTE; begin Result := DefaultInterface.Name; end; procedure TAttribute.Set_Name(pVal: CAPICOM_ATTRIBUTE); begin DefaultInterface.Name := pVal; end; function TAttribute.Get_Value: OleVariant; begin Result := DefaultInterface.Value; end; procedure TAttribute.Set_Value(pVal: OleVariant); begin DefaultInterface.Value := pVal; end; class function CoAttributes.Create: IAttributes; begin Result := CreateComObject(CLASS_Attributes) as IAttributes; end; class function CoAttributes.CreateRemote(const MachineName: string): IAttributes; begin Result := CreateRemoteComObject(MachineName, CLASS_Attributes) as IAttributes; end; procedure TAttributes.InitServerData; const CServerData: TServerData = ( ClassID: '{933013A9-64C8-4485-ACEF-4908C3692A33}'; IntfIID: '{6ADC653E-D5B9-422A-991A-A2B0119CEDAC}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TAttributes.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IAttributes; end; end; procedure TAttributes.ConnectTo(svrIntf: IAttributes); begin Disconnect; FIntf := svrIntf; end; procedure TAttributes.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TAttributes.GetDefaultInterface: IAttributes; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TAttributes.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TAttributes.Destroy; begin inherited Destroy; end; function TAttributes.Get_Item(Index: Integer): OleVariant; begin Result := DefaultInterface.Item[Index]; end; function TAttributes.Get_Count: Integer; begin Result := DefaultInterface.Count; end; procedure TAttributes.Add(const pVal: IAttribute); begin DefaultInterface.Add(pVal); end; procedure TAttributes.Remove(Index: Integer); begin DefaultInterface.Remove(Index); end; procedure TAttributes.Clear; begin DefaultInterface.Clear; end; class function CoSigner.Create: ISigner2; begin Result := CreateComObject(CLASS_Signer) as ISigner2; end; class function CoSigner.CreateRemote(const MachineName: string): ISigner2; begin Result := CreateRemoteComObject(MachineName, CLASS_Signer) as ISigner2; end; procedure TSigner.InitServerData; const CServerData: TServerData = ( ClassID: '{60A9863A-11FD-4080-850E-A8E184FC3A3C}'; IntfIID: '{625B1F55-C720-41D6-9ECF-BA59F9B85F17}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSigner.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ISigner2; end; end; procedure TSigner.ConnectTo(svrIntf: ISigner2); begin Disconnect; FIntf := svrIntf; end; procedure TSigner.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSigner.GetDefaultInterface: ISigner2; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TSigner.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TSigner.Destroy; begin inherited Destroy; end; function TSigner.Get_Certificate: ICertificate; begin Result := DefaultInterface.Certificate; end; procedure TSigner.Set_Certificate(const pVal: ICertificate); begin DefaultInterface.Certificate := pVal; end; function TSigner.Get_AuthenticatedAttributes: IAttributes; begin Result := DefaultInterface.AuthenticatedAttributes; end; function TSigner.Get_Chain: IChain; begin Result := DefaultInterface.Chain; end; function TSigner.Get_Options: CAPICOM_CERTIFICATE_INCLUDE_OPTION; begin Result := DefaultInterface.Options; end; procedure TSigner.Set_Options(pVal: CAPICOM_CERTIFICATE_INCLUDE_OPTION); begin DefaultInterface.Options := pVal; end; procedure TSigner.Load(const FileName: WideString; const Password: WideString); begin DefaultInterface.Load(FileName, Password); end; class function CoSigners.Create: ISigners; begin Result := CreateComObject(CLASS_Signers) as ISigners; end; class function CoSigners.CreateRemote(const MachineName: string): ISigners; begin Result := CreateRemoteComObject(MachineName, CLASS_Signers) as ISigners; end; procedure TSigners.InitServerData; const CServerData: TServerData = ( ClassID: '{1314C1D8-D3A8-4F8A-BED0-811FD7A8A633}'; IntfIID: '{5A0780F8-9E6B-4BB0-BF54-87CD9627A8B4}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSigners.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ISigners; end; end; procedure TSigners.ConnectTo(svrIntf: ISigners); begin Disconnect; FIntf := svrIntf; end; procedure TSigners.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSigners.GetDefaultInterface: ISigners; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TSigners.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TSigners.Destroy; begin inherited Destroy; end; function TSigners.Get_Item(Index: Integer): OleVariant; begin Result := DefaultInterface.Item[Index]; end; function TSigners.Get_Count: Integer; begin Result := DefaultInterface.Count; end; class function CoSignedData.Create: ISignedData; begin Result := CreateComObject(CLASS_SignedData) as ISignedData; end; class function CoSignedData.CreateRemote(const MachineName: string): ISignedData; begin Result := CreateRemoteComObject(MachineName, CLASS_SignedData) as ISignedData; end; procedure TSignedData.InitServerData; const CServerData: TServerData = ( ClassID: '{94AFFFCC-6C05-4814-B123-A941105AA77F}'; IntfIID: '{AE9C454B-FC65-4C10-B130-CD9B45BA948B}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSignedData.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ISignedData; end; end; procedure TSignedData.ConnectTo(svrIntf: ISignedData); begin Disconnect; FIntf := svrIntf; end; procedure TSignedData.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSignedData.GetDefaultInterface: ISignedData; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TSignedData.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TSignedData.Destroy; begin inherited Destroy; end; procedure TSignedData.Set_Content(const pVal: WideString); begin DefaultInterface.Content := pVal; end; function TSignedData.Get_Content: WideString; begin Result := DefaultInterface.Content; end; function TSignedData.Get_Signers: ISigners; begin Result := DefaultInterface.Signers; end; function TSignedData.Get_Certificates: ICertificates; begin Result := DefaultInterface.Certificates; end; function TSignedData.Sign(const pSigner: ISigner; bDetached: WordBool; EncodingType: CAPICOM_ENCODING_TYPE): WideString; begin Result := DefaultInterface.Sign(pSigner, bDetached, EncodingType); end; function TSignedData.CoSign(const pSigner: ISigner; EncodingType: CAPICOM_ENCODING_TYPE): WideString; begin Result := DefaultInterface.CoSign(pSigner, EncodingType); end; procedure TSignedData.Verify(const SignedMessage: WideString; bDetached: WordBool; VerifyFlag: CAPICOM_SIGNED_DATA_VERIFY_FLAG); begin DefaultInterface.Verify(SignedMessage, bDetached, VerifyFlag); end; class function CoAlgorithm.Create: IAlgorithm; begin Result := CreateComObject(CLASS_Algorithm) as IAlgorithm; end; class function CoAlgorithm.CreateRemote(const MachineName: string): IAlgorithm; begin Result := CreateRemoteComObject(MachineName, CLASS_Algorithm) as IAlgorithm; end; procedure TAlgorithm.InitServerData; const CServerData: TServerData = ( ClassID: '{A1EEF42F-5026-4A32-BC5C-2E552B70FD96}'; IntfIID: '{BF3D04A9-B0DA-4153-B45E-6CCFA5AC715B}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TAlgorithm.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IAlgorithm; end; end; procedure TAlgorithm.ConnectTo(svrIntf: IAlgorithm); begin Disconnect; FIntf := svrIntf; end; procedure TAlgorithm.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TAlgorithm.GetDefaultInterface: IAlgorithm; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TAlgorithm.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TAlgorithm.Destroy; begin inherited Destroy; end; function TAlgorithm.Get_Name: CAPICOM_ENCRYPTION_ALGORITHM; begin Result := DefaultInterface.Name; end; procedure TAlgorithm.Set_Name(pVal: CAPICOM_ENCRYPTION_ALGORITHM); begin DefaultInterface.Name := pVal; end; function TAlgorithm.Get_KeyLength: CAPICOM_ENCRYPTION_KEY_LENGTH; begin Result := DefaultInterface.KeyLength; end; procedure TAlgorithm.Set_KeyLength(pVal: CAPICOM_ENCRYPTION_KEY_LENGTH); begin DefaultInterface.KeyLength := pVal; end; class function CoRecipients.Create: IRecipients; begin Result := CreateComObject(CLASS_Recipients) as IRecipients; end; class function CoRecipients.CreateRemote(const MachineName: string): IRecipients; begin Result := CreateRemoteComObject(MachineName, CLASS_Recipients) as IRecipients; end; procedure TRecipients.InitServerData; const CServerData: TServerData = ( ClassID: '{96A1B8B0-8F9A-436A-84DE-E23CD6818DA5}'; IntfIID: '{A694C896-FC38-4C34-AE61-3B1A95984C14}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TRecipients.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IRecipients; end; end; procedure TRecipients.ConnectTo(svrIntf: IRecipients); begin Disconnect; FIntf := svrIntf; end; procedure TRecipients.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TRecipients.GetDefaultInterface: IRecipients; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TRecipients.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TRecipients.Destroy; begin inherited Destroy; end; function TRecipients.Get_Item(Index: Integer): OleVariant; begin Result := DefaultInterface.Item[Index]; end; function TRecipients.Get_Count: Integer; begin Result := DefaultInterface.Count; end; procedure TRecipients.Add(const pVal: ICertificate); begin DefaultInterface.Add(pVal); end; procedure TRecipients.Remove(Index: Integer); begin DefaultInterface.Remove(Index); end; procedure TRecipients.Clear; begin DefaultInterface.Clear; end; class function CoEnvelopedData.Create: IEnvelopedData; begin Result := CreateComObject(CLASS_EnvelopedData) as IEnvelopedData; end; class function CoEnvelopedData.CreateRemote(const MachineName: string): IEnvelopedData; begin Result := CreateRemoteComObject(MachineName, CLASS_EnvelopedData) as IEnvelopedData; end; procedure TEnvelopedData.InitServerData; const CServerData: TServerData = ( ClassID: '{F3A12E08-EDE9-4160-8B51-334D982A9AD0}'; IntfIID: '{F6CB6A20-CC18-4424-AE57-6F2AA3DC2059}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TEnvelopedData.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IEnvelopedData; end; end; procedure TEnvelopedData.ConnectTo(svrIntf: IEnvelopedData); begin Disconnect; FIntf := svrIntf; end; procedure TEnvelopedData.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TEnvelopedData.GetDefaultInterface: IEnvelopedData; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TEnvelopedData.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TEnvelopedData.Destroy; begin inherited Destroy; end; procedure TEnvelopedData.Set_Content(const pVal: WideString); begin DefaultInterface.Content := pVal; end; function TEnvelopedData.Get_Content: WideString; begin Result := DefaultInterface.Content; end; function TEnvelopedData.Get_Algorithm: IAlgorithm; begin Result := DefaultInterface.Algorithm; end; function TEnvelopedData.Get_Recipients: IRecipients; begin Result := DefaultInterface.Recipients; end; function TEnvelopedData.Encrypt(EncodingType: CAPICOM_ENCODING_TYPE): WideString; begin Result := DefaultInterface.Encrypt(EncodingType); end; procedure TEnvelopedData.Decrypt(const EnvelopedMessage: WideString); begin DefaultInterface.Decrypt(EnvelopedMessage); end; class function CoEncryptedData.Create: IEncryptedData; begin Result := CreateComObject(CLASS_EncryptedData) as IEncryptedData; end; class function CoEncryptedData.CreateRemote(const MachineName: string): IEncryptedData; begin Result := CreateRemoteComObject(MachineName, CLASS_EncryptedData) as IEncryptedData; end; procedure TEncryptedData.InitServerData; const CServerData: TServerData = ( ClassID: '{A440BD76-CFE1-4D46-AB1F-15F238437A3D}'; IntfIID: '{C4778A66-972F-42E4-87C5-5CC16F7931CA}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TEncryptedData.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IEncryptedData; end; end; procedure TEncryptedData.ConnectTo(svrIntf: IEncryptedData); begin Disconnect; FIntf := svrIntf; end; procedure TEncryptedData.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TEncryptedData.GetDefaultInterface: IEncryptedData; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TEncryptedData.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TEncryptedData.Destroy; begin inherited Destroy; end; procedure TEncryptedData.Set_Content(const pVal: WideString); begin DefaultInterface.Content := pVal; end; function TEncryptedData.Get_Content: WideString; begin Result := DefaultInterface.Content; end; function TEncryptedData.Get_Algorithm: IAlgorithm; begin Result := DefaultInterface.Algorithm; end; procedure TEncryptedData.SetSecret(const newVal: WideString; SecretType: CAPICOM_SECRET_TYPE); begin DefaultInterface.SetSecret(newVal, SecretType); end; function TEncryptedData.Encrypt(EncodingType: CAPICOM_ENCODING_TYPE): WideString; begin Result := DefaultInterface.Encrypt(EncodingType); end; procedure TEncryptedData.Decrypt(const EncryptedMessage: WideString); begin DefaultInterface.Decrypt(EncryptedMessage); end; class function CoOID.Create: IOID; begin Result := CreateComObject(CLASS_OID) as IOID; end; class function CoOID.CreateRemote(const MachineName: string): IOID; begin Result := CreateRemoteComObject(MachineName, CLASS_OID) as IOID; end; procedure TOID.InitServerData; const CServerData: TServerData = ( ClassID: '{7BF3AC5C-CC84-429A-ACA5-74D916AD6B8C}'; IntfIID: '{208E5E9B-58B1-4086-970F-161B582A846F}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TOID.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IOID; end; end; procedure TOID.ConnectTo(svrIntf: IOID); begin Disconnect; FIntf := svrIntf; end; procedure TOID.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TOID.GetDefaultInterface: IOID; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TOID.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TOID.Destroy; begin inherited Destroy; end; function TOID.Get_Name: CAPICOM_OID; begin Result := DefaultInterface.Name; end; procedure TOID.Set_Name(pVal: CAPICOM_OID); begin DefaultInterface.Name := pVal; end; function TOID.Get_FriendlyName: WideString; begin Result := DefaultInterface.FriendlyName; end; procedure TOID.Set_FriendlyName(const pVal: WideString); begin DefaultInterface.FriendlyName := pVal; end; function TOID.Get_Value: WideString; begin Result := DefaultInterface.Value; end; procedure TOID.Set_Value(const pVal: WideString); begin DefaultInterface.Value := pVal; end; class function CoOIDs.Create: IOIDs; begin Result := CreateComObject(CLASS_OIDs) as IOIDs; end; class function CoOIDs.CreateRemote(const MachineName: string): IOIDs; begin Result := CreateRemoteComObject(MachineName, CLASS_OIDs) as IOIDs; end; procedure TOIDs.InitServerData; const CServerData: TServerData = ( ClassID: '{FD661131-D716-4D15-A187-AEAAB161C8AD}'; IntfIID: '{DA55E8FC-8E27-451B-AEA8-1470D80FAD42}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TOIDs.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IOIDs; end; end; procedure TOIDs.ConnectTo(svrIntf: IOIDs); begin Disconnect; FIntf := svrIntf; end; procedure TOIDs.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TOIDs.GetDefaultInterface: IOIDs; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TOIDs.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TOIDs.Destroy; begin inherited Destroy; end; function TOIDs.Get_Item(Index: OleVariant): OleVariant; begin Result := DefaultInterface.Item[Index]; end; function TOIDs.Get_Count: Integer; begin Result := DefaultInterface.Count; end; procedure TOIDs.Add(const pVal: IOID); begin DefaultInterface.Add(pVal); end; procedure TOIDs.Remove(Index: OleVariant); begin DefaultInterface.Remove(Index); end; procedure TOIDs.Clear; begin DefaultInterface.Clear; end; class function CoNoticeNumbers.Create: INoticeNumbers; begin Result := CreateComObject(CLASS_NoticeNumbers) as INoticeNumbers; end; class function CoNoticeNumbers.CreateRemote(const MachineName: string): INoticeNumbers; begin Result := CreateRemoteComObject(MachineName, CLASS_NoticeNumbers) as INoticeNumbers; end; procedure TNoticeNumbers.InitServerData; const CServerData: TServerData = ( ClassID: '{A6FDF22A-8E00-464B-B15D-1A891D88B6ED}'; IntfIID: '{EE2C051D-33A1-4157-86B4-9280E29782F2}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TNoticeNumbers.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as INoticeNumbers; end; end; procedure TNoticeNumbers.ConnectTo(svrIntf: INoticeNumbers); begin Disconnect; FIntf := svrIntf; end; procedure TNoticeNumbers.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TNoticeNumbers.GetDefaultInterface: INoticeNumbers; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TNoticeNumbers.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TNoticeNumbers.Destroy; begin inherited Destroy; end; function TNoticeNumbers.Get_Item(Index: Integer): OleVariant; begin Result := DefaultInterface.Item[Index]; end; function TNoticeNumbers.Get_Count: Integer; begin Result := DefaultInterface.Count; end; class function CoQualifier.Create: IQualifier; begin Result := CreateComObject(CLASS_Qualifier) as IQualifier; end; class function CoQualifier.CreateRemote(const MachineName: string): IQualifier; begin Result := CreateRemoteComObject(MachineName, CLASS_Qualifier) as IQualifier; end; procedure TQualifier.InitServerData; const CServerData: TServerData = ( ClassID: '{E5F29B74-0902-4654-8A9A-21C5201DFA61}'; IntfIID: '{3604C9DD-A22E-4A15-A469-8181C0C113DE}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TQualifier.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IQualifier; end; end; procedure TQualifier.ConnectTo(svrIntf: IQualifier); begin Disconnect; FIntf := svrIntf; end; procedure TQualifier.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TQualifier.GetDefaultInterface: IQualifier; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TQualifier.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TQualifier.Destroy; begin inherited Destroy; end; function TQualifier.Get_OID: IOID; begin Result := DefaultInterface.OID; end; function TQualifier.Get_CPSPointer: WideString; begin Result := DefaultInterface.CPSPointer; end; function TQualifier.Get_OrganizationName: WideString; begin Result := DefaultInterface.OrganizationName; end; function TQualifier.Get_NoticeNumbers: INoticeNumbers; begin Result := DefaultInterface.NoticeNumbers; end; function TQualifier.Get_ExplicitText: WideString; begin Result := DefaultInterface.ExplicitText; end; class function CoQualifiers.Create: IQualifiers; begin Result := CreateComObject(CLASS_Qualifiers) as IQualifiers; end; class function CoQualifiers.CreateRemote(const MachineName: string): IQualifiers; begin Result := CreateRemoteComObject(MachineName, CLASS_Qualifiers) as IQualifiers; end; procedure TQualifiers.InitServerData; const CServerData: TServerData = ( ClassID: '{6C8006C0-F649-4783-B4A6-617DD0B270C7}'; IntfIID: '{6B5A8AB6-597D-4398-AC63-1036EF546348}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TQualifiers.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IQualifiers; end; end; procedure TQualifiers.ConnectTo(svrIntf: IQualifiers); begin Disconnect; FIntf := svrIntf; end; procedure TQualifiers.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TQualifiers.GetDefaultInterface: IQualifiers; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TQualifiers.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TQualifiers.Destroy; begin inherited Destroy; end; function TQualifiers.Get_Item(Index: Integer): OleVariant; begin Result := DefaultInterface.Item[Index]; end; function TQualifiers.Get_Count: Integer; begin Result := DefaultInterface.Count; end; class function CoPolicyInformation.Create: IPolicyInformation; begin Result := CreateComObject(CLASS_PolicyInformation) as IPolicyInformation; end; class function CoPolicyInformation.CreateRemote(const MachineName: string): IPolicyInformation; begin Result := CreateRemoteComObject(MachineName, CLASS_PolicyInformation) as IPolicyInformation; end; procedure TPolicyInformation.InitServerData; const CServerData: TServerData = ( ClassID: '{0AAF88F4-1C22-4F65-A0E3-289D97DCE994}'; IntfIID: '{8973710C-8411-4951-9E65-D45FD524FFDF}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPolicyInformation.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IPolicyInformation; end; end; procedure TPolicyInformation.ConnectTo(svrIntf: IPolicyInformation); begin Disconnect; FIntf := svrIntf; end; procedure TPolicyInformation.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TPolicyInformation.GetDefaultInterface: IPolicyInformation; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TPolicyInformation.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TPolicyInformation.Destroy; begin inherited Destroy; end; function TPolicyInformation.Get_OID: IOID; begin Result := DefaultInterface.OID; end; function TPolicyInformation.Get_Qualifiers: IQualifiers; begin Result := DefaultInterface.Qualifiers; end; class function CoCertificatePolicies.Create: ICertificatePolicies; begin Result := CreateComObject(CLASS_CertificatePolicies) as ICertificatePolicies; end; class function CoCertificatePolicies.CreateRemote(const MachineName: string): ICertificatePolicies; begin Result := CreateRemoteComObject(MachineName, CLASS_CertificatePolicies) as ICertificatePolicies; end; procedure TCertificatePolicies.InitServerData; const CServerData: TServerData = ( ClassID: '{988583C2-00C7-4D22-9241-E810E35EED1B}'; IntfIID: '{CC7A72A7-C83A-4049-85F4-4292DE9DBFD3}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCertificatePolicies.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ICertificatePolicies; end; end; procedure TCertificatePolicies.ConnectTo(svrIntf: ICertificatePolicies); begin Disconnect; FIntf := svrIntf; end; procedure TCertificatePolicies.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCertificatePolicies.GetDefaultInterface: ICertificatePolicies; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TCertificatePolicies.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TCertificatePolicies.Destroy; begin inherited Destroy; end; function TCertificatePolicies.Get_Item(Index: Integer): OleVariant; begin Result := DefaultInterface.Item[Index]; end; function TCertificatePolicies.Get_Count: Integer; begin Result := DefaultInterface.Count; end; class function CoEncodedData.Create: IEncodedData; begin Result := CreateComObject(CLASS_EncodedData) as IEncodedData; end; class function CoEncodedData.CreateRemote(const MachineName: string): IEncodedData; begin Result := CreateRemoteComObject(MachineName, CLASS_EncodedData) as IEncodedData; end; procedure TEncodedData.InitServerData; const CServerData: TServerData = ( ClassID: '{7083C0AA-E7B9-48A4-8EFB-D6A109EBEC13}'; IntfIID: '{D3D460F2-E7F3-4AF3-8EC6-8EB68C61C567}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TEncodedData.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IEncodedData; end; end; procedure TEncodedData.ConnectTo(svrIntf: IEncodedData); begin Disconnect; FIntf := svrIntf; end; procedure TEncodedData.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TEncodedData.GetDefaultInterface: IEncodedData; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TEncodedData.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TEncodedData.Destroy; begin inherited Destroy; end; function TEncodedData.Get_Value(EncodingType: CAPICOM_ENCODING_TYPE): WideString; begin Result := DefaultInterface.Value[EncodingType]; end; function TEncodedData.Format(bMultiLines: WordBool): WideString; begin Result := DefaultInterface.Format(bMultiLines); end; function TEncodedData.Decoder: IDispatch; begin Result := DefaultInterface.Decoder; end; class function CoExtension.Create: IExtension; begin Result := CreateComObject(CLASS_Extension) as IExtension; end; class function CoExtension.CreateRemote(const MachineName: string): IExtension; begin Result := CreateRemoteComObject(MachineName, CLASS_Extension) as IExtension; end; procedure TExtension.InitServerData; const CServerData: TServerData = ( ClassID: '{D2359E2C-82D6-458F-BB6F-41559155E693}'; IntfIID: '{ED4E4ED4-FDD8-476E-AED9-5239E7948257}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TExtension.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IExtension; end; end; procedure TExtension.ConnectTo(svrIntf: IExtension); begin Disconnect; FIntf := svrIntf; end; procedure TExtension.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TExtension.GetDefaultInterface: IExtension; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TExtension.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TExtension.Destroy; begin inherited Destroy; end; function TExtension.Get_OID: IOID; begin Result := DefaultInterface.OID; end; function TExtension.Get_IsCritical: WordBool; begin Result := DefaultInterface.IsCritical; end; function TExtension.Get_EncodedData: IEncodedData; begin Result := DefaultInterface.EncodedData; end; class function CoExtensions.Create: IExtensions; begin Result := CreateComObject(CLASS_Extensions) as IExtensions; end; class function CoExtensions.CreateRemote(const MachineName: string): IExtensions; begin Result := CreateRemoteComObject(MachineName, CLASS_Extensions) as IExtensions; end; procedure TExtensions.InitServerData; const CServerData: TServerData = ( ClassID: '{7C92E131-C1DC-4CA1-B02C-F513A08B41ED}'; IntfIID: '{BC530D61-E692-4225-9E7A-07B90B45856A}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TExtensions.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IExtensions; end; end; procedure TExtensions.ConnectTo(svrIntf: IExtensions); begin Disconnect; FIntf := svrIntf; end; procedure TExtensions.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TExtensions.GetDefaultInterface: IExtensions; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TExtensions.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TExtensions.Destroy; begin inherited Destroy; end; function TExtensions.Get_Item(Index: OleVariant): OleVariant; begin Result := DefaultInterface.Item[Index]; end; function TExtensions.Get_Count: Integer; begin Result := DefaultInterface.Count; end; class function CoExtendedProperty.Create: IExtendedProperty; begin Result := CreateComObject(CLASS_ExtendedProperty) as IExtendedProperty; end; class function CoExtendedProperty.CreateRemote(const MachineName: string): IExtendedProperty; begin Result := CreateRemoteComObject(MachineName, CLASS_ExtendedProperty) as IExtendedProperty; end; procedure TExtendedProperty.InitServerData; const CServerData: TServerData = ( ClassID: '{9E7EA907-5810-4FCA-B817-CD0BBA8496FC}'; IntfIID: '{ECB8A5C8-562C-4989-B49D-FA37D40F8FC4}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TExtendedProperty.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IExtendedProperty; end; end; procedure TExtendedProperty.ConnectTo(svrIntf: IExtendedProperty); begin Disconnect; FIntf := svrIntf; end; procedure TExtendedProperty.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TExtendedProperty.GetDefaultInterface: IExtendedProperty; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TExtendedProperty.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TExtendedProperty.Destroy; begin inherited Destroy; end; function TExtendedProperty.Get_PropID: CAPICOM_PROPID; begin Result := DefaultInterface.PropID; end; procedure TExtendedProperty.Set_PropID(pVal: CAPICOM_PROPID); begin DefaultInterface.PropID := pVal; end; function TExtendedProperty.Get_Value(EncodingType: CAPICOM_ENCODING_TYPE): WideString; begin Result := DefaultInterface.Value[EncodingType]; end; procedure TExtendedProperty.Set_Value(EncodingType: CAPICOM_ENCODING_TYPE; const pVal: WideString); begin DefaultInterface.Value[EncodingType] := pVal; end; class function CoExtendedProperties.Create: IExtendedProperties; begin Result := CreateComObject(CLASS_ExtendedProperties) as IExtendedProperties; end; class function CoExtendedProperties.CreateRemote(const MachineName: string): IExtendedProperties; begin Result := CreateRemoteComObject(MachineName, CLASS_ExtendedProperties) as IExtendedProperties; end; procedure TExtendedProperties.InitServerData; const CServerData: TServerData = ( ClassID: '{90E7143D-1A07-438D-8F85-3DBB0B73D314}'; IntfIID: '{3B096E87-6218-4A3B-A880-F6CB951E7805}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TExtendedProperties.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IExtendedProperties; end; end; procedure TExtendedProperties.ConnectTo(svrIntf: IExtendedProperties); begin Disconnect; FIntf := svrIntf; end; procedure TExtendedProperties.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TExtendedProperties.GetDefaultInterface: IExtendedProperties; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TExtendedProperties.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TExtendedProperties.Destroy; begin inherited Destroy; end; function TExtendedProperties.Get_Item(Index: Integer): OleVariant; begin Result := DefaultInterface.Item[Index]; end; function TExtendedProperties.Get_Count: Integer; begin Result := DefaultInterface.Count; end; procedure TExtendedProperties.Add(const pVal: IExtendedProperty); begin DefaultInterface.Add(pVal); end; procedure TExtendedProperties.Remove(PropID: CAPICOM_PROPID); begin DefaultInterface.Remove(PropID); end; class function CoTemplate.Create: ITemplate; begin Result := CreateComObject(CLASS_Template) as ITemplate; end; class function CoTemplate.CreateRemote(const MachineName: string): ITemplate; begin Result := CreateRemoteComObject(MachineName, CLASS_Template) as ITemplate; end; procedure TTemplate.InitServerData; const CServerData: TServerData = ( ClassID: '{61F0D2BD-373E-4F3C-962E-59B7C42C1B22}'; IntfIID: '{5F10FFCE-C922-476F-AA76-DF99D5BDFA2C}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TTemplate.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ITemplate; end; end; procedure TTemplate.ConnectTo(svrIntf: ITemplate); begin Disconnect; FIntf := svrIntf; end; procedure TTemplate.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TTemplate.GetDefaultInterface: ITemplate; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TTemplate.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TTemplate.Destroy; begin inherited Destroy; end; function TTemplate.Get_IsPresent: WordBool; begin Result := DefaultInterface.IsPresent; end; function TTemplate.Get_IsCritical: WordBool; begin Result := DefaultInterface.IsCritical; end; function TTemplate.Get_Name: WideString; begin Result := DefaultInterface.Name; end; function TTemplate.Get_OID: IOID; begin Result := DefaultInterface.OID; end; function TTemplate.Get_MajorVersion: Integer; begin Result := DefaultInterface.MajorVersion; end; function TTemplate.Get_MinorVersion: Integer; begin Result := DefaultInterface.MinorVersion; end; class function CoPublicKey.Create: IPublicKey; begin Result := CreateComObject(CLASS_PublicKey) as IPublicKey; end; class function CoPublicKey.CreateRemote(const MachineName: string): IPublicKey; begin Result := CreateRemoteComObject(MachineName, CLASS_PublicKey) as IPublicKey; end; procedure TPublicKey.InitServerData; const CServerData: TServerData = ( ClassID: '{301FC658-4055-4D76-9703-AA38E6D7236A}'; IntfIID: '{72BF9ADA-6817-4C31-B43E-25F7C7B091F4}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPublicKey.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IPublicKey; end; end; procedure TPublicKey.ConnectTo(svrIntf: IPublicKey); begin Disconnect; FIntf := svrIntf; end; procedure TPublicKey.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TPublicKey.GetDefaultInterface: IPublicKey; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TPublicKey.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TPublicKey.Destroy; begin inherited Destroy; end; function TPublicKey.Get_Algorithm: IOID; begin Result := DefaultInterface.Algorithm; end; function TPublicKey.Get_Length: Integer; begin Result := DefaultInterface.Length; end; function TPublicKey.Get_EncodedKey: IEncodedData; begin Result := DefaultInterface.EncodedKey; end; function TPublicKey.Get_EncodedParameters: IEncodedData; begin Result := DefaultInterface.EncodedParameters; end; class function CoPrivateKey.Create: IPrivateKey; begin Result := CreateComObject(CLASS_PrivateKey) as IPrivateKey; end; class function CoPrivateKey.CreateRemote(const MachineName: string): IPrivateKey; begin Result := CreateRemoteComObject(MachineName, CLASS_PrivateKey) as IPrivateKey; end; procedure TPrivateKey.InitServerData; const CServerData: TServerData = ( ClassID: '{03ACC284-B757-4B8F-9951-86E600D2CD06}'; IntfIID: '{659DEDC3-6C85-42DB-8527-EFCB21742862}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPrivateKey.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IPrivateKey; end; end; procedure TPrivateKey.ConnectTo(svrIntf: IPrivateKey); begin Disconnect; FIntf := svrIntf; end; procedure TPrivateKey.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TPrivateKey.GetDefaultInterface: IPrivateKey; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TPrivateKey.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TPrivateKey.Destroy; begin inherited Destroy; end; function TPrivateKey.Get_ContainerName: WideString; begin Result := DefaultInterface.ContainerName; end; function TPrivateKey.Get_UniqueContainerName: WideString; begin Result := DefaultInterface.UniqueContainerName; end; function TPrivateKey.Get_ProviderName: WideString; begin Result := DefaultInterface.ProviderName; end; function TPrivateKey.Get_ProviderType: CAPICOM_PROV_TYPE; begin Result := DefaultInterface.ProviderType; end; function TPrivateKey.Get_KeySpec: CAPICOM_KEY_SPEC; begin Result := DefaultInterface.KeySpec; end; function TPrivateKey.IsAccessible: WordBool; begin Result := DefaultInterface.IsAccessible; end; function TPrivateKey.IsProtected: WordBool; begin Result := DefaultInterface.IsProtected; end; function TPrivateKey.IsExportable: WordBool; begin Result := DefaultInterface.IsExportable; end; function TPrivateKey.IsRemovable: WordBool; begin Result := DefaultInterface.IsRemovable; end; function TPrivateKey.IsMachineKeyset: WordBool; begin Result := DefaultInterface.IsMachineKeyset; end; function TPrivateKey.IsHardwareDevice: WordBool; begin Result := DefaultInterface.IsHardwareDevice; end; procedure TPrivateKey.Open(const ContainerName: WideString; const ProviderName: WideString; ProviderType: CAPICOM_PROV_TYPE; KeySpec: CAPICOM_KEY_SPEC; StoreLocation: CAPICOM_STORE_LOCATION; bCheckExistence: WordBool); begin DefaultInterface.Open(ContainerName, ProviderName, ProviderType, KeySpec, StoreLocation, bCheckExistence); end; procedure TPrivateKey.Delete; begin DefaultInterface.Delete; end; class function CoSignedCode.Create: ISignedCode; begin Result := CreateComObject(CLASS_SignedCode) as ISignedCode; end; class function CoSignedCode.CreateRemote(const MachineName: string): ISignedCode; begin Result := CreateRemoteComObject(MachineName, CLASS_SignedCode) as ISignedCode; end; procedure TSignedCode.InitServerData; const CServerData: TServerData = ( ClassID: '{8C3E4934-9FA4-4693-9253-A29A05F99186}'; IntfIID: '{84FBCB95-5600-404C-9187-AC25B4CD6E94}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSignedCode.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as ISignedCode; end; end; procedure TSignedCode.ConnectTo(svrIntf: ISignedCode); begin Disconnect; FIntf := svrIntf; end; procedure TSignedCode.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TSignedCode.GetDefaultInterface: ISignedCode; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TSignedCode.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TSignedCode.Destroy; begin inherited Destroy; end; function TSignedCode.Get_FileName: WideString; begin Result := DefaultInterface.FileName; end; procedure TSignedCode.Set_FileName(const pVal: WideString); begin DefaultInterface.FileName := pVal; end; function TSignedCode.Get_Description: WideString; begin Result := DefaultInterface.Description; end; procedure TSignedCode.Set_Description(const pVal: WideString); begin DefaultInterface.Description := pVal; end; function TSignedCode.Get_DescriptionURL: WideString; begin Result := DefaultInterface.DescriptionURL; end; procedure TSignedCode.Set_DescriptionURL(const pVal: WideString); begin DefaultInterface.DescriptionURL := pVal; end; function TSignedCode.Get_Signer: ISigner2; begin Result := DefaultInterface.Signer; end; function TSignedCode.Get_TimeStamper: ISigner2; begin Result := DefaultInterface.TimeStamper; end; function TSignedCode.Get_Certificates: ICertificates2; begin Result := DefaultInterface.Certificates; end; procedure TSignedCode.Sign(const pISigner2: ISigner2); begin DefaultInterface.Sign(pISigner2); end; procedure TSignedCode.Timestamp(const URL: WideString); begin DefaultInterface.Timestamp(URL); end; procedure TSignedCode.Verify(bUIAllowed: WordBool); begin DefaultInterface.Verify(bUIAllowed); end; class function CoHashedData.Create: IHashedData; begin Result := CreateComObject(CLASS_HashedData) as IHashedData; end; class function CoHashedData.CreateRemote(const MachineName: string): IHashedData; begin Result := CreateRemoteComObject(MachineName, CLASS_HashedData) as IHashedData; end; procedure THashedData.InitServerData; const CServerData: TServerData = ( ClassID: '{CE32ABF6-475D-41F6-BF82-D27F03E3D38B}'; IntfIID: '{9F7F23E8-06F4-42E8-B965-5CBD044BF27F}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure THashedData.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IHashedData; end; end; procedure THashedData.ConnectTo(svrIntf: IHashedData); begin Disconnect; FIntf := svrIntf; end; procedure THashedData.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function THashedData.GetDefaultInterface: IHashedData; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor THashedData.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor THashedData.Destroy; begin inherited Destroy; end; function THashedData.Get_Value: WideString; begin Result := DefaultInterface.Value; end; function THashedData.Get_Algorithm: CAPICOM_HASH_ALGORITHM; begin Result := DefaultInterface.Algorithm; end; procedure THashedData.Set_Algorithm(pVal: CAPICOM_HASH_ALGORITHM); begin DefaultInterface.Algorithm := pVal; end; procedure THashedData.Hash(const newVal: WideString); begin DefaultInterface.Hash(newVal); end; class function CoUtilities.Create: IUtilities; begin Result := CreateComObject(CLASS_Utilities) as IUtilities; end; class function CoUtilities.CreateRemote(const MachineName: string): IUtilities; begin Result := CreateRemoteComObject(MachineName, CLASS_Utilities) as IUtilities; end; procedure TUtilities.InitServerData; const CServerData: TServerData = ( ClassID: '{22A85CE1-F011-4231-B9E4-7E7A0438F71B}'; IntfIID: '{EB166CF6-2AE6-44DA-BD96-0C1635D183FE}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TUtilities.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IUtilities; end; end; procedure TUtilities.ConnectTo(svrIntf: IUtilities); begin Disconnect; FIntf := svrIntf; end; procedure TUtilities.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TUtilities.GetDefaultInterface: IUtilities; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TUtilities.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TUtilities.Destroy; begin inherited Destroy; end; function TUtilities.GetRandom(Length: Integer; EncodingType: CAPICOM_ENCODING_TYPE): WideString; begin Result := DefaultInterface.GetRandom(Length, EncodingType); end; function TUtilities.Base64Encode(const SrcString: WideString): WideString; begin Result := DefaultInterface.Base64Encode(SrcString); end; function TUtilities.Base64Decode(const EncodedString: WideString): WideString; begin Result := DefaultInterface.Base64Decode(EncodedString); end; function TUtilities.BinaryToHex(const BinaryString: WideString): WideString; begin Result := DefaultInterface.BinaryToHex(BinaryString); end; function TUtilities.HexToBinary(const HexString: WideString): WideString; begin Result := DefaultInterface.HexToBinary(HexString); end; function TUtilities.BinaryStringToByteArray(const BinaryString: WideString): OleVariant; begin Result := DefaultInterface.BinaryStringToByteArray(BinaryString); end; function TUtilities.ByteArrayToBinaryString(varByteArray: OleVariant): WideString; begin Result := DefaultInterface.ByteArrayToBinaryString(varByteArray); end; function TUtilities.LocalTimeToUTCTime(LocalTime: TDateTime): TDateTime; begin Result := DefaultInterface.LocalTimeToUTCTime(LocalTime); end; function TUtilities.UTCTimeToLocalTime(UTCTime: TDateTime): TDateTime; begin Result := DefaultInterface.UTCTimeToLocalTime(UTCTime); end; procedure Register; begin RegisterComponents(dtlServerPage, [TSettings, TEKU, TEKUs, TKeyUsage, TExtendedKeyUsage, TBasicConstraints, TCertificateStatus, TCertificate, TCertificates, TChain, TStore, TAttribute, TAttributes, TSigner, TSigners, TSignedData, TAlgorithm, TRecipients, TEnvelopedData, TEncryptedData, TOID, TOIDs, TNoticeNumbers, TQualifier, TQualifiers, TPolicyInformation, TCertificatePolicies, TEncodedData, TExtension, TExtensions, TExtendedProperty, TExtendedProperties, TTemplate, TPublicKey, TPrivateKey, TSignedCode, THashedData, TUtilities]); end; end.