📄 capicom_tlb.pas
字号:
// *********************************************************************//
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;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -