Rev 3 | Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
2 | daniel-mar | 1 | unit ViaThinkSoftSimpleLogEvent_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 | // $Rev: 8291 $ |
||
15 | // File generated on 29.04.2020 21:22:15 from Type Library described below. |
||
16 | |||
17 | // ************************************************************************ // |
||
18 | // Type Lib: D:\VtsEventLog\ComTest2\ViaThinkSoftSimpleLogEvent.tlb (1) |
||
19 | // LIBID: {D7654BA7-41D0-4FF9-8543-C3A4DA936856} |
||
20 | // LCID: 0 |
||
21 | // Helpfile: |
||
22 | // HelpString: ViaThinkSoftSimpleLogEvent Library |
||
23 | // DepndLst: |
||
24 | // (1) v2.0 stdole, (C:\Windows\SysWOW64\stdole2.tlb) |
||
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, 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 | ViaThinkSoftSimpleLogEventMajorVersion = 1; |
||
45 | ViaThinkSoftSimpleLogEventMinorVersion = 0; |
||
46 | |||
47 | LIBID_ViaThinkSoftSimpleLogEvent: TGUID = '{D7654BA7-41D0-4FF9-8543-C3A4DA936856}'; |
||
48 | |||
49 | IID_IViaThinkSoftSimpleEventLog: TGUID = '{4094657E-8199-460F-A3DD-5BB63B6B0F65}'; |
||
50 | CLASS_ViaThinkSoftSimpleEventLog: TGUID = '{E4270053-A217-498C-B395-9EF33187E8C2}'; |
||
51 | type |
||
52 | |||
53 | // *********************************************************************// |
||
54 | // Forward declaration of types defined in TypeLibrary |
||
55 | // *********************************************************************// |
||
56 | IViaThinkSoftSimpleEventLog = interface; |
||
57 | IViaThinkSoftSimpleEventLogDisp = dispinterface; |
||
58 | |||
59 | // *********************************************************************// |
||
60 | // Declaration of CoClasses defined in Type Library |
||
61 | // (NOTE: Here we map each CoClass to its Default Interface) |
||
62 | // *********************************************************************// |
||
63 | ViaThinkSoftSimpleEventLog = IViaThinkSoftSimpleEventLog; |
||
64 | |||
65 | |||
66 | // *********************************************************************// |
||
67 | // Interface: IViaThinkSoftSimpleEventLog |
||
68 | // Flags: (4416) Dual OleAutomation Dispatchable |
||
69 | // GUID: {4094657E-8199-460F-A3DD-5BB63B6B0F65} |
||
70 | // *********************************************************************// |
||
71 | IViaThinkSoftSimpleEventLog = interface(IDispatch) |
||
72 | ['{4094657E-8199-460F-A3DD-5BB63B6B0F65}'] |
||
73 | procedure LogEvent(EventType: Integer; const LogMsg: WideString); safecall; |
||
74 | end; |
||
75 | |||
76 | // *********************************************************************// |
||
77 | // DispIntf: IViaThinkSoftSimpleEventLogDisp |
||
78 | // Flags: (4416) Dual OleAutomation Dispatchable |
||
79 | // GUID: {4094657E-8199-460F-A3DD-5BB63B6B0F65} |
||
80 | // *********************************************************************// |
||
81 | IViaThinkSoftSimpleEventLogDisp = dispinterface |
||
82 | ['{4094657E-8199-460F-A3DD-5BB63B6B0F65}'] |
||
83 | procedure LogEvent(EventType: Integer; const LogMsg: WideString); dispid 201; |
||
84 | end; |
||
85 | |||
86 | // *********************************************************************// |
||
87 | // The Class CoViaThinkSoftSimpleEventLog provides a Create and CreateRemote method to |
||
88 | // create instances of the default interface IViaThinkSoftSimpleEventLog exposed by |
||
89 | // the CoClass ViaThinkSoftSimpleEventLog. The functions are intended to be used by |
||
90 | // clients wishing to automate the CoClass objects exposed by the |
||
91 | // server of this typelibrary. |
||
92 | // *********************************************************************// |
||
93 | CoViaThinkSoftSimpleEventLog = class |
||
94 | class function Create: IViaThinkSoftSimpleEventLog; |
||
95 | class function CreateRemote(const MachineName: string): IViaThinkSoftSimpleEventLog; |
||
96 | end; |
||
97 | |||
98 | implementation |
||
99 | |||
100 | uses ComObj; |
||
101 | |||
102 | class function CoViaThinkSoftSimpleEventLog.Create: IViaThinkSoftSimpleEventLog; |
||
103 | begin |
||
104 | Result := CreateComObject(CLASS_ViaThinkSoftSimpleEventLog) as IViaThinkSoftSimpleEventLog; |
||
105 | end; |
||
106 | |||
107 | class function CoViaThinkSoftSimpleEventLog.CreateRemote(const MachineName: string): IViaThinkSoftSimpleEventLog; |
||
108 | begin |
||
109 | Result := CreateRemoteComObject(MachineName, CLASS_ViaThinkSoftSimpleEventLog) as IViaThinkSoftSimpleEventLog; |
||
110 | end; |
||
111 | |||
112 | end. |