source: cprs/branches/foia-cprs/CPRS-Chart/VERGENCECONTEXTORLib_TLB.pas@ 459

Last change on this file since 459 was 459, checked in by Kevin Toppenberg, 16 years ago

Adding foia-cprs branch
File size: 29.8 KB
Line 
1unit VERGENCECONTEXTORLib_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 2/20/2003 12:37:40 PM from Type Library described below.
16
17// ************************************************************************ //
18// Type Lib: C:\Program Files\Sentillion\Sdk\WindowsComponents\VergenceContextor.dll (1)
19// LIBID: {30AFBABD-5FD3-11D3-8727-0060B0B5E137}
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// Errors:
26// Hint: Member 'Set' of 'IResponseDialogAccessor' changed to 'Set_'
27// ************************************************************************ //
28{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
29{$WARN SYMBOL_PLATFORM OFF}
30{$WRITEABLECONST ON}
31{$VARPROPSETTER ON}
32interface
33
34uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants;
35
36
37
38// *********************************************************************//
39// GUIDS declared in the TypeLibrary. Following prefixes are used:
40// Type Libraries : LIBID_xxxx
41// CoClasses : CLASS_xxxx
42// DISPInterfaces : DIID_xxxx
43// Non-DISP interfaces: IID_xxxx
44// *********************************************************************//
45const
46 // TypeLibrary Major and minor versions
47 VERGENCECONTEXTORLibMajorVersion = 1;
48 VERGENCECONTEXTORLibMinorVersion = 0;
49
50 LIBID_VERGENCECONTEXTORLib: TGUID = '{30AFBABD-5FD3-11D3-8727-0060B0B5E137}';
51
52 DIID__IContextChangesSink: TGUID = '{6BED8971-B3DD-11D3-8736-0060B0B5E137}';
53 IID_IContextor: TGUID = '{8D879F5D-5FE6-11D3-8727-0060B0B5E137}';
54 IID_IContextParticipant: TGUID = '{3E3DD272-998E-11D0-808D-00A0240943E4}';
55 IID_IContextItemCollection: TGUID = '{AC4C0271-615A-11D3-84B5-0000861FDD4F}';
56 IID_IContextItem: TGUID = '{AC4C0273-615A-11D3-84B5-0000861FDD4F}';
57 IID_IResponseContextChange: TGUID = '{CBC6D968-9F6D-416A-8AA7-99172E588DF0}';
58 IID_IResponseDialogAccessor: TGUID = '{86592071-F3BA-11D3-8181-005004A0F801}';
59 IID_IContextChangesSink: TGUID = '{0B437E31-620E-11D3-84B6-0000861FDD4F}';
60 IID_IResponseDialog: TGUID = '{9D33ECF1-8277-11D3-8525-0000861FDD4F}';
61 CLASS_Contextor: TGUID = '{D5C9CC98-5FDB-11D3-8727-0060B0B5E137}';
62 CLASS_ContextorControl: TGUID = '{8778ACF7-5CA9-11D3-8727-0060B0B5E137}';
63 CLASS_ContextItemCollection: TGUID = '{AC4C0272-615A-11D3-84B5-0000861FDD4F}';
64 CLASS_ContextItem: TGUID = '{AC4C0274-615A-11D3-84B5-0000861FDD4F}';
65 CLASS_ResponseDialog: TGUID = '{9D33ECF2-8277-11D3-8525-0000861FDD4F}';
66 IID_ISetHook: TGUID = '{8D879FDD-5FE6-11D3-8727-0060B0B5E137}';
67 CLASS_ContextorParticipant: TGUID = '{4BA034A2-D0FA-11D3-818B-0050049598B2}';
68
69// *********************************************************************//
70// Declaration of Enumerations defined in Type Library
71// *********************************************************************//
72// Constants for enum __MIDL___MIDL_itf_VergenceContextor_0000_0002
73type
74 __MIDL___MIDL_itf_VergenceContextor_0000_0002 = TOleEnum;
75const
76 CsNotRunning = $00000001;
77 CsParticipating = $00000002;
78 CsSuspended = $00000003;
79
80// Constants for enum __MIDL___MIDL_itf_VergenceContextor_0000_0001
81type
82 __MIDL___MIDL_itf_VergenceContextor_0000_0001 = TOleEnum;
83const
84 ApNone = $00000001;
85 ApGet = $00000002;
86 ApSet = $00000003;
87
88// Constants for enum __MIDL___MIDL_itf_VergenceContextor_0000_0003
89type
90 __MIDL___MIDL_itf_VergenceContextor_0000_0003 = TOleEnum;
91const
92 UrCommit = $00000001;
93 UrCancel = $00000002;
94 UrBreak = $00000003;
95
96type
97
98// *********************************************************************//
99// Forward declaration of types defined in TypeLibrary
100// *********************************************************************//
101 _IContextChangesSink = dispinterface;
102 IContextor = interface;
103 IContextorDisp = dispinterface;
104 IContextParticipant = interface;
105 IContextParticipantDisp = dispinterface;
106 IContextItemCollection = interface;
107 IContextItemCollectionDisp = dispinterface;
108 IContextItem = interface;
109 IContextItemDisp = dispinterface;
110 IResponseContextChange = interface;
111 IResponseContextChangeDisp = dispinterface;
112 IResponseDialogAccessor = interface;
113 IResponseDialogAccessorDisp = dispinterface;
114 IContextChangesSink = interface;
115 IContextChangesSinkDisp = dispinterface;
116 IResponseDialog = interface;
117 IResponseDialogDisp = dispinterface;
118 ISetHook = interface;
119 ISetHookDisp = dispinterface;
120
121// *********************************************************************//
122// Declaration of CoClasses defined in Type Library
123// (NOTE: Here we map each CoClass to its Default Interface)
124// *********************************************************************//
125 Contextor = IContextor;
126 ContextorControl = IContextor;
127 ContextItemCollection = IContextItemCollection;
128 ContextItem = IContextItem;
129 ResponseDialog = IResponseDialog;
130 ContextorParticipant = IContextParticipant;
131
132
133// *********************************************************************//
134// Declaration of structures, unions and aliases.
135// *********************************************************************//
136
137 ContextorState = __MIDL___MIDL_itf_VergenceContextor_0000_0002;
138 AccessPrivilege = __MIDL___MIDL_itf_VergenceContextor_0000_0001;
139 UserResponse = __MIDL___MIDL_itf_VergenceContextor_0000_0003;
140
141// *********************************************************************//
142// DispIntf: _IContextChangesSink
143// Flags: (4096) Dispatchable
144// GUID: {6BED8971-B3DD-11D3-8736-0060B0B5E137}
145// *********************************************************************//
146 _IContextChangesSink = dispinterface
147 ['{6BED8971-B3DD-11D3-8736-0060B0B5E137}']
148 procedure Pending(const aContextItemCollection: IDispatch); dispid 1;
149 procedure Committed; dispid 2;
150 procedure Canceled; dispid 3;
151 end;
152
153// *********************************************************************//
154// Interface: IContextor
155// Flags: (4416) Dual OleAutomation Dispatchable
156// GUID: {8D879F5D-5FE6-11D3-8727-0060B0B5E137}
157// *********************************************************************//
158 IContextor = interface(IDispatch)
159 ['{8D879F5D-5FE6-11D3-8727-0060B0B5E137}']
160 procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool;
161 const initialNotificationFilter: WideString); safecall;
162 procedure Suspend; safecall;
163 procedure Resume; safecall;
164 function Get_State: ContextorState; safecall;
165 function GetPrivilege(const subj: WideString): AccessPrivilege; safecall;
166 function Get_CurrentContext: IContextItemCollection; safecall;
167 procedure StartContextChange; safecall;
168 function EndContextChange(commit: WordBool; const aContextItemCollection: IContextItemCollection): UserResponse; safecall;
169 procedure SetSurveyResponse(const reason: WideString); safecall;
170 function Get_NotificationFilter: WideString; safecall;
171 procedure Set_NotificationFilter(const filter: WideString); safecall;
172 function Get_Name: WideString; safecall;
173 property State: ContextorState read Get_State;
174 property CurrentContext: IContextItemCollection read Get_CurrentContext;
175 property NotificationFilter: WideString read Get_NotificationFilter write Set_NotificationFilter;
176 property Name: WideString read Get_Name;
177 end;
178
179// *********************************************************************//
180// DispIntf: IContextorDisp
181// Flags: (4416) Dual OleAutomation Dispatchable
182// GUID: {8D879F5D-5FE6-11D3-8727-0060B0B5E137}
183// *********************************************************************//
184 IContextorDisp = dispinterface
185 ['{8D879F5D-5FE6-11D3-8727-0060B0B5E137}']
186 procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool;
187 const initialNotificationFilter: WideString); dispid 1;
188 procedure Suspend; dispid 2;
189 procedure Resume; dispid 3;
190 property State: ContextorState readonly dispid 4;
191 function GetPrivilege(const subj: WideString): AccessPrivilege; dispid 5;
192 property CurrentContext: IContextItemCollection readonly dispid 6;
193 procedure StartContextChange; dispid 7;
194 function EndContextChange(commit: WordBool; const aContextItemCollection: IContextItemCollection): UserResponse; dispid 8;
195 procedure SetSurveyResponse(const reason: WideString); dispid 9;
196 property NotificationFilter: WideString dispid 10;
197 property Name: WideString readonly dispid 11;
198 end;
199
200// *********************************************************************//
201// Interface: IContextParticipant
202// Flags: (4416) Dual OleAutomation Dispatchable
203// GUID: {3E3DD272-998E-11D0-808D-00A0240943E4}
204// *********************************************************************//
205 IContextParticipant = interface(IDispatch)
206 ['{3E3DD272-998E-11D0-808D-00A0240943E4}']
207 function ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString; safecall;
208 procedure ContextChangesAccepted(contextCoupon: Integer); safecall;
209 procedure ContextChangesCanceled(contextCoupon: Integer); safecall;
210 procedure CommonContextTerminated; safecall;
211 procedure Ping; safecall;
212 end;
213
214// *********************************************************************//
215// DispIntf: IContextParticipantDisp
216// Flags: (4416) Dual OleAutomation Dispatchable
217// GUID: {3E3DD272-998E-11D0-808D-00A0240943E4}
218// *********************************************************************//
219 IContextParticipantDisp = dispinterface
220 ['{3E3DD272-998E-11D0-808D-00A0240943E4}']
221 function ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString; dispid 1610743808;
222 procedure ContextChangesAccepted(contextCoupon: Integer); dispid 1610743809;
223 procedure ContextChangesCanceled(contextCoupon: Integer); dispid 1610743810;
224 procedure CommonContextTerminated; dispid 1610743811;
225 procedure Ping; dispid 1610743812;
226 end;
227
228// *********************************************************************//
229// Interface: IContextItemCollection
230// Flags: (4416) Dual OleAutomation Dispatchable
231// GUID: {AC4C0271-615A-11D3-84B5-0000861FDD4F}
232// *********************************************************************//
233 IContextItemCollection = interface(IDispatch)
234 ['{AC4C0271-615A-11D3-84B5-0000861FDD4F}']
235 function Count: Integer; safecall;
236 procedure Add(const aContextItem: IContextItem); safecall;
237 procedure Remove(const contextItemName: WideString); safecall;
238 procedure RemoveAll; safecall;
239 function Present(key: OleVariant): IContextItem; safecall;
240 function Get__NewEnum: IUnknown; safecall;
241 function Item(key: OleVariant): IContextItem; safecall;
242 property _NewEnum: IUnknown read Get__NewEnum;
243 end;
244
245// *********************************************************************//
246// DispIntf: IContextItemCollectionDisp
247// Flags: (4416) Dual OleAutomation Dispatchable
248// GUID: {AC4C0271-615A-11D3-84B5-0000861FDD4F}
249// *********************************************************************//
250 IContextItemCollectionDisp = dispinterface
251 ['{AC4C0271-615A-11D3-84B5-0000861FDD4F}']
252 function Count: Integer; dispid 1;
253 procedure Add(const aContextItem: IContextItem); dispid 2;
254 procedure Remove(const contextItemName: WideString); dispid 3;
255 procedure RemoveAll; dispid 4;
256 function Present(key: OleVariant): IContextItem; dispid 5;
257 property _NewEnum: IUnknown readonly dispid -4;
258 function Item(key: OleVariant): IContextItem; dispid 0;
259 end;
260
261// *********************************************************************//
262// Interface: IContextItem
263// Flags: (4416) Dual OleAutomation Dispatchable
264// GUID: {AC4C0273-615A-11D3-84B5-0000861FDD4F}
265// *********************************************************************//
266 IContextItem = interface(IDispatch)
267 ['{AC4C0273-615A-11D3-84B5-0000861FDD4F}']
268 function Get_Subject: WideString; safecall;
269 procedure Set_Subject(const pVal: WideString); safecall;
270 function Get_Role: WideString; safecall;
271 procedure Set_Role(const pVal: WideString); safecall;
272 function Get_Prefix: WideString; safecall;
273 procedure Set_Prefix(const pVal: WideString); safecall;
274 function Get_Suffix: WideString; safecall;
275 procedure Set_Suffix(const pVal: WideString); safecall;
276 function Get_Name: WideString; safecall;
277 procedure Set_Name(const pVal: WideString); safecall;
278 function Get_Value: WideString; safecall;
279 procedure Set_Value(const pVal: WideString); safecall;
280 function Clone: IContextItem; safecall;
281 property Subject: WideString read Get_Subject write Set_Subject;
282 property Role: WideString read Get_Role write Set_Role;
283 property Prefix: WideString read Get_Prefix write Set_Prefix;
284 property Suffix: WideString read Get_Suffix write Set_Suffix;
285 property Name: WideString read Get_Name write Set_Name;
286 property Value: WideString read Get_Value write Set_Value;
287 end;
288
289// *********************************************************************//
290// DispIntf: IContextItemDisp
291// Flags: (4416) Dual OleAutomation Dispatchable
292// GUID: {AC4C0273-615A-11D3-84B5-0000861FDD4F}
293// *********************************************************************//
294 IContextItemDisp = dispinterface
295 ['{AC4C0273-615A-11D3-84B5-0000861FDD4F}']
296 property Subject: WideString dispid 1;
297 property Role: WideString dispid 2;
298 property Prefix: WideString dispid 3;
299 property Suffix: WideString dispid 4;
300 property Name: WideString dispid 5;
301 property Value: WideString dispid 6;
302 function Clone: IContextItem; dispid 7;
303 end;
304
305// *********************************************************************//
306// Interface: IResponseContextChange
307// Flags: (4416) Dual OleAutomation Dispatchable
308// GUID: {CBC6D968-9F6D-416A-8AA7-99172E588DF0}
309// *********************************************************************//
310 IResponseContextChange = interface(IDispatch)
311 ['{CBC6D968-9F6D-416A-8AA7-99172E588DF0}']
312 procedure StartResponseContextChange; safecall;
313 function EndResponseContextChange(commit: WordBool;
314 const aContextItemCollection: IContextItemCollection;
315 var noContinue: WordBool): OleVariant; safecall;
316 procedure CommitContextChange; safecall;
317 procedure CancelContextChange; safecall;
318 end;
319
320// *********************************************************************//
321// DispIntf: IResponseContextChangeDisp
322// Flags: (4416) Dual OleAutomation Dispatchable
323// GUID: {CBC6D968-9F6D-416A-8AA7-99172E588DF0}
324// *********************************************************************//
325 IResponseContextChangeDisp = dispinterface
326 ['{CBC6D968-9F6D-416A-8AA7-99172E588DF0}']
327 procedure StartResponseContextChange; dispid 1;
328 function EndResponseContextChange(commit: WordBool;
329 const aContextItemCollection: IContextItemCollection;
330 var noContinue: WordBool): OleVariant; dispid 2;
331 procedure CommitContextChange; dispid 3;
332 procedure CancelContextChange; dispid 4;
333 end;
334
335// *********************************************************************//
336// Interface: IResponseDialogAccessor
337// Flags: (4432) Hidden Dual OleAutomation Dispatchable
338// GUID: {86592071-F3BA-11D3-8181-005004A0F801}
339// *********************************************************************//
340 IResponseDialogAccessor = interface(IDispatch)
341 ['{86592071-F3BA-11D3-8181-005004A0F801}']
342 procedure Reset; safecall;
343 procedure Set_(const aResponseDialog: IResponseDialog); safecall;
344 end;
345
346// *********************************************************************//
347// DispIntf: IResponseDialogAccessorDisp
348// Flags: (4432) Hidden Dual OleAutomation Dispatchable
349// GUID: {86592071-F3BA-11D3-8181-005004A0F801}
350// *********************************************************************//
351 IResponseDialogAccessorDisp = dispinterface
352 ['{86592071-F3BA-11D3-8181-005004A0F801}']
353 procedure Reset; dispid 1;
354 procedure Set_(const aResponseDialog: IResponseDialog); dispid 2;
355 end;
356
357// *********************************************************************//
358// Interface: IContextChangesSink
359// Flags: (4416) Dual OleAutomation Dispatchable
360// GUID: {0B437E31-620E-11D3-84B6-0000861FDD4F}
361// *********************************************************************//
362 IContextChangesSink = interface(IDispatch)
363 ['{0B437E31-620E-11D3-84B6-0000861FDD4F}']
364 procedure Pending(const aContextItemCollection: IDispatch); safecall;
365 procedure Committed; safecall;
366 procedure Canceled; safecall;
367 end;
368
369// *********************************************************************//
370// DispIntf: IContextChangesSinkDisp
371// Flags: (4416) Dual OleAutomation Dispatchable
372// GUID: {0B437E31-620E-11D3-84B6-0000861FDD4F}
373// *********************************************************************//
374 IContextChangesSinkDisp = dispinterface
375 ['{0B437E31-620E-11D3-84B6-0000861FDD4F}']
376 procedure Pending(const aContextItemCollection: IDispatch); dispid 1;
377 procedure Committed; dispid 2;
378 procedure Canceled; dispid 3;
379 end;
380
381// *********************************************************************//
382// Interface: IResponseDialog
383// Flags: (4416) Dual OleAutomation Dispatchable
384// GUID: {9D33ECF1-8277-11D3-8525-0000861FDD4F}
385// *********************************************************************//
386 IResponseDialog = interface(IDispatch)
387 ['{9D33ECF1-8277-11D3-8525-0000861FDD4F}']
388 function ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse; safecall;
389 end;
390
391// *********************************************************************//
392// DispIntf: IResponseDialogDisp
393// Flags: (4416) Dual OleAutomation Dispatchable
394// GUID: {9D33ECF1-8277-11D3-8525-0000861FDD4F}
395// *********************************************************************//
396 IResponseDialogDisp = dispinterface
397 ['{9D33ECF1-8277-11D3-8525-0000861FDD4F}']
398 function ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse; dispid 1;
399 end;
400
401// *********************************************************************//
402// Interface: ISetHook
403// Flags: (4432) Hidden Dual OleAutomation Dispatchable
404// GUID: {8D879FDD-5FE6-11D3-8727-0060B0B5E137}
405// *********************************************************************//
406 ISetHook = interface(IDispatch)
407 ['{8D879FDD-5FE6-11D3-8727-0060B0B5E137}']
408 procedure SetParticipant(const aContextParticipant: IContextParticipant); safecall;
409 end;
410
411// *********************************************************************//
412// DispIntf: ISetHookDisp
413// Flags: (4432) Hidden Dual OleAutomation Dispatchable
414// GUID: {8D879FDD-5FE6-11D3-8727-0060B0B5E137}
415// *********************************************************************//
416 ISetHookDisp = dispinterface
417 ['{8D879FDD-5FE6-11D3-8727-0060B0B5E137}']
418 procedure SetParticipant(const aContextParticipant: IContextParticipant); dispid 1;
419 end;
420
421// *********************************************************************//
422// The Class CoContextor provides a Create and CreateRemote method to
423// create instances of the default interface IContextor exposed by
424// the CoClass Contextor. The functions are intended to be used by
425// clients wishing to automate the CoClass objects exposed by the
426// server of this typelibrary.
427// *********************************************************************//
428 CoContextor = class
429 class function Create: IContextor;
430 class function CreateRemote(const MachineName: string): IContextor;
431 end;
432
433
434// *********************************************************************//
435// OLE Control Proxy class declaration
436// Control Name : TContextorControl
437// Help String : Vergence ContextorControl
438// Default Interface: IContextor
439// Def. Intf. DISP? : No
440// Event Interface: _IContextChangesSink
441// TypeFlags : (2) CanCreate
442// *********************************************************************//
443 TContextorControlPending = procedure(Sender: TObject; const aContextItemCollection: IDispatch) of object;
444
445 TContextorControl = class(TOleControl)
446 private
447 FOnPending: TContextorControlPending;
448 FOnCommitted: TNotifyEvent;
449 FOnCanceled: TNotifyEvent;
450 FIntf: IContextor;
451 function GetControlInterface: IContextor;
452 protected
453 procedure CreateControl;
454 procedure InitControlData; override;
455 function Get_CurrentContext: IContextItemCollection;
456 public
457 procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool;
458 const initialNotificationFilter: WideString);
459 procedure Suspend;
460 procedure Resume;
461 function GetPrivilege(const subj: WideString): AccessPrivilege;
462 procedure StartContextChange;
463 function EndContextChange(commit: WordBool; const aContextItemCollection: IContextItemCollection): UserResponse;
464 procedure SetSurveyResponse(const reason: WideString);
465 property ControlInterface: IContextor read GetControlInterface;
466 property DefaultInterface: IContextor read GetControlInterface;
467 property State: TOleEnum index 4 read GetTOleEnumProp;
468 property CurrentContext: IContextItemCollection read Get_CurrentContext;
469 property Name: WideString index 11 read GetWideStringProp;
470 published
471 property NotificationFilter: WideString index 10 read GetWideStringProp write SetWideStringProp stored False;
472 property OnPending: TContextorControlPending read FOnPending write FOnPending;
473 property OnCommitted: TNotifyEvent read FOnCommitted write FOnCommitted;
474 property OnCanceled: TNotifyEvent read FOnCanceled write FOnCanceled;
475 end;
476
477// *********************************************************************//
478// The Class CoContextItemCollection provides a Create and CreateRemote method to
479// create instances of the default interface IContextItemCollection exposed by
480// the CoClass ContextItemCollection. The functions are intended to be used by
481// clients wishing to automate the CoClass objects exposed by the
482// server of this typelibrary.
483// *********************************************************************//
484 CoContextItemCollection = class
485 class function Create: IContextItemCollection;
486 class function CreateRemote(const MachineName: string): IContextItemCollection;
487 end;
488
489// *********************************************************************//
490// The Class CoContextItem provides a Create and CreateRemote method to
491// create instances of the default interface IContextItem exposed by
492// the CoClass ContextItem. The functions are intended to be used by
493// clients wishing to automate the CoClass objects exposed by the
494// server of this typelibrary.
495// *********************************************************************//
496 CoContextItem = class
497 class function Create: IContextItem;
498 class function CreateRemote(const MachineName: string): IContextItem;
499 end;
500
501// *********************************************************************//
502// The Class CoResponseDialog provides a Create and CreateRemote method to
503// create instances of the default interface IResponseDialog exposed by
504// the CoClass ResponseDialog. The functions are intended to be used by
505// clients wishing to automate the CoClass objects exposed by the
506// server of this typelibrary.
507// *********************************************************************//
508 CoResponseDialog = class
509 class function Create: IResponseDialog;
510 class function CreateRemote(const MachineName: string): IResponseDialog;
511 end;
512
513// *********************************************************************//
514// The Class CoContextorParticipant provides a Create and CreateRemote method to
515// create instances of the default interface IContextParticipant exposed by
516// the CoClass ContextorParticipant. The functions are intended to be used by
517// clients wishing to automate the CoClass objects exposed by the
518// server of this typelibrary.
519// *********************************************************************//
520 CoContextorParticipant = class
521 class function Create: IContextParticipant;
522 class function CreateRemote(const MachineName: string): IContextParticipant;
523 end;
524
525procedure Register;
526
527resourcestring
528 dtlServerPage = 'ActiveX';
529
530implementation
531
532uses ComObj;
533
534class function CoContextor.Create: IContextor;
535begin
536 Result := CreateComObject(CLASS_Contextor) as IContextor;
537end;
538
539class function CoContextor.CreateRemote(const MachineName: string): IContextor;
540begin
541 Result := CreateRemoteComObject(MachineName, CLASS_Contextor) as IContextor;
542end;
543
544procedure TContextorControl.InitControlData;
545const
546 CEventDispIDs: array [0..2] of DWORD = (
547 $00000001, $00000002, $00000003);
548 CControlData: TControlData2 = (
549 ClassID: '{8778ACF7-5CA9-11D3-8727-0060B0B5E137}';
550 EventIID: '{6BED8971-B3DD-11D3-8736-0060B0B5E137}';
551 EventCount: 3;
552 EventDispIDs: @CEventDispIDs;
553 LicenseKey: nil (*HR:$80004002*);
554 Flags: $00000000;
555 Version: 401);
556begin
557 ControlData := @CControlData;
558 TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnPending) - Cardinal(Self);
559end;
560
561procedure TContextorControl.CreateControl;
562
563 procedure DoCreate;
564 begin
565 FIntf := IUnknown(OleObject) as IContextor;
566 end;
567
568begin
569 if FIntf = nil then DoCreate;
570end;
571
572function TContextorControl.GetControlInterface: IContextor;
573begin
574 CreateControl;
575 Result := FIntf;
576end;
577
578function TContextorControl.Get_CurrentContext: IContextItemCollection;
579begin
580 Result := DefaultInterface.CurrentContext;
581end;
582
583procedure TContextorControl.Run(const applicationLabel: WideString; const passcode: WideString;
584 survey: WordBool; const initialNotificationFilter: WideString);
585begin
586 DefaultInterface.Run(applicationLabel, passcode, survey, initialNotificationFilter);
587end;
588
589procedure TContextorControl.Suspend;
590begin
591 DefaultInterface.Suspend;
592end;
593
594procedure TContextorControl.Resume;
595begin
596 DefaultInterface.Resume;
597end;
598
599function TContextorControl.GetPrivilege(const subj: WideString): AccessPrivilege;
600begin
601 Result := DefaultInterface.GetPrivilege(subj);
602end;
603
604procedure TContextorControl.StartContextChange;
605begin
606 DefaultInterface.StartContextChange;
607end;
608
609function TContextorControl.EndContextChange(commit: WordBool;
610 const aContextItemCollection: IContextItemCollection): UserResponse;
611begin
612 Result := DefaultInterface.EndContextChange(commit, aContextItemCollection);
613end;
614
615procedure TContextorControl.SetSurveyResponse(const reason: WideString);
616begin
617 DefaultInterface.SetSurveyResponse(reason);
618end;
619
620class function CoContextItemCollection.Create: IContextItemCollection;
621begin
622 Result := CreateComObject(CLASS_ContextItemCollection) as IContextItemCollection;
623end;
624
625class function CoContextItemCollection.CreateRemote(const MachineName: string): IContextItemCollection;
626begin
627 Result := CreateRemoteComObject(MachineName, CLASS_ContextItemCollection) as IContextItemCollection;
628end;
629
630class function CoContextItem.Create: IContextItem;
631begin
632 Result := CreateComObject(CLASS_ContextItem) as IContextItem;
633end;
634
635class function CoContextItem.CreateRemote(const MachineName: string): IContextItem;
636begin
637 Result := CreateRemoteComObject(MachineName, CLASS_ContextItem) as IContextItem;
638end;
639
640class function CoResponseDialog.Create: IResponseDialog;
641begin
642 Result := CreateComObject(CLASS_ResponseDialog) as IResponseDialog;
643end;
644
645class function CoResponseDialog.CreateRemote(const MachineName: string): IResponseDialog;
646begin
647 Result := CreateRemoteComObject(MachineName, CLASS_ResponseDialog) as IResponseDialog;
648end;
649
650class function CoContextorParticipant.Create: IContextParticipant;
651begin
652 Result := CreateComObject(CLASS_ContextorParticipant) as IContextParticipant;
653end;
654
655class function CoContextorParticipant.CreateRemote(const MachineName: string): IContextParticipant;
656begin
657 Result := CreateRemoteComObject(MachineName, CLASS_ContextorParticipant) as IContextParticipant;
658end;
659
660procedure Register;
661begin
662 RegisterComponents('ActiveX',[TContextorControl]);
663end;
664
665end.
Note: See TracBrowser for help on using the repository browser.