source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/XuDigSigSC_TLB.pas@ 1722

Last change on this file since 1722 was 841, checked in by Kevin Toppenberg, 14 years ago

Upgrading to version 27

File size: 6.8 KB
Line 
1unit 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}
30interface
31
32uses 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// *********************************************************************//
42const
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}';
51type
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
136implementation
137
138uses ComObj;
139
140class function CoXuDigSigS.Create: IXuDigSigS;
141begin
142 Result := CreateComObject(CLASS_XuDigSigS) as IXuDigSigS;
143end;
144
145class function CoXuDigSigS.CreateRemote(const MachineName: string): IXuDigSigS;
146begin
147 Result := CreateRemoteComObject(MachineName, CLASS_XuDigSigS) as IXuDigSigS;
148end;
149
150end.
Note: See TracBrowser for help on using the repository browser.