Module

XuDigSigSC_TLB

Path

C:\CPRS\CPRS30\XuDigSigSC_TLB.pas

Last Modified

7/15/2014 3:26:44 PM

Comments

************************************************************************ //
 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.                                         
 ************************************************************************ //

Classes

Name Comments
CoXuDigSigS
*********************************************************************//
 The Class CoXuDigSigS provides a Create and CreateRemote method to          
 create instances of the default interface IXuDigSigS exposed by              
 the CoClass XuDigSigS. The functions are intended to be used by             
 clients wishing to automate the CoClass objects exposed by the         
 server of this typelibrary.                                            
 *********************************************************************//

Procedures

Name Owner Declaration Scope Comments
GetCSP procedure GetCSP; safecall; Interfaced -
GetCSP procedure GetCSP; dispid 13; Interfaced -
Reset procedure Reset; safecall; Interfaced -
Reset procedure Reset; dispid 12; Interfaced -
Set_DataBuffer procedure Set_DataBuffer(const Param1: WideString); safecall; Interfaced -
Set_DEAsig procedure Set_DEAsig(Value: WordBool); safecall; Interfaced -
Set_DrugSch procedure Set_DrugSch(const Param1: WideString); safecall; Interfaced -
Set_UsrName procedure Set_UsrName(const Param1: WideString); safecall; Interfaced -
Set_UsrNumber procedure Set_UsrNumber(const Param1: WideString); safecall; Interfaced -

Functions

Name Owner Declaration Scope Comments
Create CoXuDigSigS class function Create: IXuDigSigS; Public/Published -
CreateRemote CoXuDigSigS class function CreateRemote(const MachineName: string): IXuDigSigS; Public/Published -
Get_CrlUrl function Get_CrlUrl: WideString; safecall; Interfaced -
Get_DEAInfo function Get_DEAInfo: WideString; safecall; Interfaced -
Get_DEAsig function Get_DEAsig: WordBool; safecall; Interfaced -
Get_HashValue function Get_HashValue: WideString; safecall; Interfaced -
Get_Reason function Get_Reason: WideString; safecall; Interfaced -
Get_Signature function Get_Signature: WideString; safecall; Interfaced -
Get_SubReason function Get_SubReason: WideString; safecall; Interfaced -
Signdata function Signdata: WordBool; safecall; Interfaced -
Signdata function Signdata: WordBool; dispid 8; Interfaced -

Constants

Name Declaration Scope Comments
CLASS_XuDigSigS TGUID = '{12037083-5899-495D-818D-BF4EC57C42C7}' Interfaced -
IID_IXuDigSigS TGUID = '{4F007CD0-ED3A-4022-AC5F-01D8494B02CF}' Interfaced -
LIBID_XuDigSigSC TGUID = '{37B1AC3C-8CFB-41C2-951B-D1BCBD90DBBE}' Interfaced -
XuDigSigSCMajorVersion 1 Interfaced TypeLibrary Major and minor versions
XuDigSigSCMinorVersion 1 Interfaced -


Module Source

1     unit XuDigSigSC_TLB;
2     
3     // ************************************************************************ //
4     // WARNING                                                                    
5     // -------                                                                    
6     // The types declared in this file were generated from data read from a       
7     // Type Library. If this type library is explicitly or indirectly (via        
8     // another type library referring to this type library) re-imported, or the   
9     // 'Refresh' command of the Type Library Editor activated while editing the   
10    // Type Library, the contents of this file will be regenerated and all        
11    // manual modifications will be lost.                                         
12    // ************************************************************************ //
13    
14    // PASTLWTR : $Revision:   1.130.1.0.1.0.1.6  $
15    // File generated on 6/12/2003 4:03:57 PM from Type Library described below.
16    
17    // ************************************************************************  //
18    // Type Lib: C:\Projects\CryptoAPI2\SignCOM\XuDigSigSC.tlb (1)
19    // LIBID: {37B1AC3C-8CFB-41C2-951B-D1BCBD90DBBE}
20    // LCID: 0
21    // Helpfile: 
22    // DepndLst: 
23    //   (1) v2.0 stdole, (C:\WINNT\System32\stdole2.tlb)
24    //   (2) v4.0 StdVCL, (C:\WINNT\System32\STDVCL40.DLL)
25    // ************************************************************************ //
26    {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
27    {$WARN SYMBOL_PLATFORM OFF}
28    {$WRITEABLECONST ON}
29    {$VARPROPSETTER ON}
30    interface
31    
32    uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
33      
34    
35    // *********************************************************************//
36    // GUIDS declared in the TypeLibrary. Following prefixes are used:        
37    //   Type Libraries     : LIBID_xxxx                                      
38    //   CoClasses          : CLASS_xxxx                                      
39    //   DISPInterfaces     : DIID_xxxx                                       
40    //   Non-DISP interfaces: IID_xxxx                                        
41    // *********************************************************************//
42    const
43      // TypeLibrary Major and minor versions
44      XuDigSigSCMajorVersion = 1;
45      XuDigSigSCMinorVersion = 1;
46    
47      LIBID_XuDigSigSC: TGUID = '{37B1AC3C-8CFB-41C2-951B-D1BCBD90DBBE}';
48    
49      IID_IXuDigSigS: TGUID = '{4F007CD0-ED3A-4022-AC5F-01D8494B02CF}';
50      CLASS_XuDigSigS: TGUID = '{12037083-5899-495D-818D-BF4EC57C42C7}';
51    type
52    
53    // *********************************************************************//
54    // Forward declaration of types defined in TypeLibrary                    
55    // *********************************************************************//
56      IXuDigSigS = interface;
57      IXuDigSigSDisp = dispinterface;
58    
59    // *********************************************************************//
60    // Declaration of CoClasses defined in Type Library                       
61    // (NOTE: Here we map each CoClass to its Default Interface)              
62    // *********************************************************************//
63      XuDigSigS = IXuDigSigS;
64    
65    
66    // *********************************************************************//
67    // Interface: IXuDigSigS
68    // Flags:     (4416) Dual OleAutomation Dispatchable
69    // GUID:      {4F007CD0-ED3A-4022-AC5F-01D8494B02CF}
70    // *********************************************************************//
71      IXuDigSigS = interface(IDispatch)
72        ['{4F007CD0-ED3A-4022-AC5F-01D8494B02CF}']
73        procedure Set_DataBuffer(const Param1: WideString); safecall;
74        procedure Set_UsrNumber(const Param1: WideString); safecall;
75        function Get_DEAsig: WordBool; safecall;
76        procedure Set_DEAsig(Value: WordBool); safecall;
77        function Get_DEAInfo: WideString; safecall;
78        function Get_HashValue: WideString; safecall;
79        function Get_Signature: WideString; safecall;
80        procedure Set_DrugSch(const Param1: WideString); safecall;
81        function Signdata: WordBool; safecall;
82        function Get_Reason: WideString; safecall;
83        procedure Set_UsrName(const Param1: WideString); safecall;
84        function Get_CrlUrl: WideString; safecall;
85        procedure Reset; safecall;
86        procedure GetCSP; safecall;
87        function Get_SubReason: WideString; safecall;
88        property DataBuffer: WideString write Set_DataBuffer;
89        property UsrNumber: WideString write Set_UsrNumber;
90        property DEAsig: WordBool read Get_DEAsig write Set_DEAsig;
91        property DEAInfo: WideString read Get_DEAInfo;
92        property HashValue: WideString read Get_HashValue;
93        property Signature: WideString read Get_Signature;
94        property DrugSch: WideString write Set_DrugSch;
95        property Reason: WideString read Get_Reason;
96        property UsrName: WideString write Set_UsrName;
97        property CrlUrl: WideString read Get_CrlUrl;
98        property SubReason: WideString read Get_SubReason;
99      end;
100   
101   // *********************************************************************//
102   // DispIntf:  IXuDigSigSDisp
103   // Flags:     (4416) Dual OleAutomation Dispatchable
104   // GUID:      {4F007CD0-ED3A-4022-AC5F-01D8494B02CF}
105   // *********************************************************************//
106     IXuDigSigSDisp = dispinterface
107       ['{4F007CD0-ED3A-4022-AC5F-01D8494B02CF}']
108       property DataBuffer: WideString writeonly dispid 1;
109       property UsrNumber: WideString writeonly dispid 2;
110       property DEAsig: WordBool dispid 3;
111       property DEAInfo: WideString readonly dispid 4;
112       property HashValue: WideString readonly dispid 5;
113       property Signature: WideString readonly dispid 6;
114       property DrugSch: WideString writeonly dispid 7;
115       function Signdata: WordBool; dispid 8;
116       property Reason: WideString readonly dispid 9;
117       property UsrName: WideString writeonly dispid 10;
118       property CrlUrl: WideString readonly dispid 11;
119       procedure Reset; dispid 12;
120       procedure GetCSP; dispid 13;
121       property SubReason: WideString readonly dispid 14;
122     end;
123   
124   // *********************************************************************//
125   // The Class CoXuDigSigS provides a Create and CreateRemote method to          
126   // create instances of the default interface IXuDigSigS exposed by              
127   // the CoClass XuDigSigS. The functions are intended to be used by             
128   // clients wishing to automate the CoClass objects exposed by the         
129   // server of this typelibrary.                                            
130   // *********************************************************************//
131     CoXuDigSigS = class
132       class function Create: IXuDigSigS;
133       class function CreateRemote(const MachineName: string): IXuDigSigS;
134     end;
135   
136   implementation
137   
138   uses ComObj;
139   
140   class function CoXuDigSigS.Create: IXuDigSigS;
141   begin
142     Result := CreateComObject(CLASS_XuDigSigS) as IXuDigSigS;
143   end;
144   
145   class function CoXuDigSigS.CreateRemote(const MachineName: string): IXuDigSigS;
146   begin
147     Result := CreateRemoteComObject(MachineName, CLASS_XuDigSigS) as IXuDigSigS;
148   end;
149   
150   end.

Module Calls (2 levels)

-

Module Called-By (2 levels)


XuDigSigSC_TLB
     fODMeds┤ 
   uOrders┘ │ 
   fODMedNVA┘ 
uOrders...┘