Rev 2 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
2 | daniel-mar | 1 | unit ViaThinkSoftSimpleLogEvent_TLB; |
2 | |||
3 | // ************************************************************************ // |
||
3 | daniel-mar | 4 | // WARNUNG |
5 | // ------- |
||
6 | // Die in dieser Datei deklarierten Typen wurden aus Daten einer Typbibliothek |
||
7 | // generiert. Wenn diese Typbibliothek explizit oder indirekt (über eine |
||
8 | // andere Typbibliothek) reimportiert wird oder wenn der Befehl |
||
9 | // 'Aktualisieren' im Typbibliotheks-Editor während des Bearbeitens der |
||
10 | // Typbibliothek aktiviert ist, wird der Inhalt dieser Datei neu generiert und |
||
11 | // alle manuell vorgenommenen Änderungen gehen verloren. |
||
2 | daniel-mar | 12 | // ************************************************************************ // |
13 | |||
3 | daniel-mar | 14 | // $Rev: 52393 $ |
15 | // Datei am 30.04.2020 23:02:59 erzeugt aus der unten beschriebenen Typbibliothek. |
||
2 | daniel-mar | 16 | |
17 | // ************************************************************************ // |
||
3 | daniel-mar | 18 | // Typbib.: C:\Users\DELL User\SVN\SimpleLogEvent\trunk\TLB\ViaThinkSoftSimpleLogEvent (1) |
2 | daniel-mar | 19 | // LIBID: {D7654BA7-41D0-4FF9-8543-C3A4DA936856} |
20 | // LCID: 0 |
||
3 | daniel-mar | 21 | // Hilfedatei: |
22 | // Hilfe-String: ViaThinkSoftSimpleLogEvent Library |
||
23 | // Liste der Abhäng.: |
||
2 | daniel-mar | 24 | // (1) v2.0 stdole, (C:\Windows\SysWOW64\stdole2.tlb) |
3 | daniel-mar | 25 | // SYS_KIND: SYS_WIN32 |
2 | daniel-mar | 26 | // ************************************************************************ // |
3 | daniel-mar | 27 | {$TYPEDADDRESS OFF} // Unit muss ohne Typüberprüfung für Zeiger compiliert werden. |
2 | daniel-mar | 28 | {$WARN SYMBOL_PLATFORM OFF} |
29 | {$WRITEABLECONST ON} |
||
30 | {$VARPROPSETTER ON} |
||
3 | daniel-mar | 31 | {$ALIGN 4} |
32 | |||
2 | daniel-mar | 33 | interface |
34 | |||
3 | daniel-mar | 35 | uses Winapi.Windows, System.Classes, System.Variants, System.Win.StdVCL, Vcl.Graphics, Vcl.OleServer, Winapi.ActiveX; |
2 | daniel-mar | 36 | |
37 | // *********************************************************************// |
||
3 | daniel-mar | 38 | // In der Typbibliothek deklarierte GUIDS. Die folgenden Präfixe werden verwendet: |
39 | // Typbibliotheken : LIBID_xxxx |
||
40 | // CoClasses : CLASS_xxxx |
||
41 | // DISPInterfaces : DIID_xxxx |
||
42 | // Nicht-DISP-Interfaces: IID_xxxx |
||
2 | daniel-mar | 43 | // *********************************************************************// |
44 | const |
||
3 | daniel-mar | 45 | // Haupt- und Nebenversionen der Typbibliothek |
2 | daniel-mar | 46 | ViaThinkSoftSimpleLogEventMajorVersion = 1; |
47 | ViaThinkSoftSimpleLogEventMinorVersion = 0; |
||
48 | |||
49 | LIBID_ViaThinkSoftSimpleLogEvent: TGUID = '{D7654BA7-41D0-4FF9-8543-C3A4DA936856}'; |
||
50 | |||
51 | IID_IViaThinkSoftSimpleEventLog: TGUID = '{4094657E-8199-460F-A3DD-5BB63B6B0F65}'; |
||
52 | CLASS_ViaThinkSoftSimpleEventLog: TGUID = '{E4270053-A217-498C-B395-9EF33187E8C2}'; |
||
3 | daniel-mar | 53 | |
54 | // *********************************************************************// |
||
55 | // Deklaration von in der Typbibliothek definierten Aufzählungen |
||
56 | // *********************************************************************// |
||
57 | // Konstanten für enum LogEventType |
||
2 | daniel-mar | 58 | type |
3 | daniel-mar | 59 | LogEventType = TOleEnum; |
60 | const |
||
61 | Success = $00000000; |
||
62 | Informational = $00000001; |
||
63 | Warning = $00000002; |
||
64 | Error = $00000003; |
||
2 | daniel-mar | 65 | |
3 | daniel-mar | 66 | type |
67 | |||
2 | daniel-mar | 68 | // *********************************************************************// |
3 | daniel-mar | 69 | // Forward-Deklaration von in der Typbibliothek definierten Typen |
2 | daniel-mar | 70 | // *********************************************************************// |
71 | IViaThinkSoftSimpleEventLog = interface; |
||
72 | IViaThinkSoftSimpleEventLogDisp = dispinterface; |
||
73 | |||
74 | // *********************************************************************// |
||
3 | daniel-mar | 75 | // Deklaration von in der Typbibliothek definierten CoClasses |
76 | // (HINWEIS: Hier wird jede CoClass ihrem Standard-Interface zugewiesen) |
||
2 | daniel-mar | 77 | // *********************************************************************// |
78 | ViaThinkSoftSimpleEventLog = IViaThinkSoftSimpleEventLog; |
||
79 | |||
80 | |||
81 | // *********************************************************************// |
||
82 | // Interface: IViaThinkSoftSimpleEventLog |
||
83 | // Flags: (4416) Dual OleAutomation Dispatchable |
||
84 | // GUID: {4094657E-8199-460F-A3DD-5BB63B6B0F65} |
||
85 | // *********************************************************************// |
||
86 | IViaThinkSoftSimpleEventLog = interface(IDispatch) |
||
87 | ['{4094657E-8199-460F-A3DD-5BB63B6B0F65}'] |
||
3 | daniel-mar | 88 | procedure LogEvent(const SourceName: WideString; EventType: LogEventType; |
89 | const LogMsg: WideString); safecall; |
||
2 | daniel-mar | 90 | end; |
91 | |||
92 | // *********************************************************************// |
||
93 | // DispIntf: IViaThinkSoftSimpleEventLogDisp |
||
94 | // Flags: (4416) Dual OleAutomation Dispatchable |
||
95 | // GUID: {4094657E-8199-460F-A3DD-5BB63B6B0F65} |
||
96 | // *********************************************************************// |
||
97 | IViaThinkSoftSimpleEventLogDisp = dispinterface |
||
98 | ['{4094657E-8199-460F-A3DD-5BB63B6B0F65}'] |
||
3 | daniel-mar | 99 | procedure LogEvent(const SourceName: WideString; EventType: LogEventType; |
100 | const LogMsg: WideString); dispid 201; |
||
2 | daniel-mar | 101 | end; |
102 | |||
103 | // *********************************************************************// |
||
3 | daniel-mar | 104 | // Die Klasse CoViaThinkSoftSimpleEventLog stellt die Methoden Create und CreateRemote zur |
105 | // Verfügung, um Instanzen des Standard-Interface IViaThinkSoftSimpleEventLog, dargestellt |
||
106 | // von CoClass ViaThinkSoftSimpleEventLog, zu erzeugen. Diese Funktionen können |
||
107 | // von einem Client verwendet werden, der die CoClasses automatisieren |
||
108 | // will, die von dieser Typbibliothek dargestellt werden. |
||
2 | daniel-mar | 109 | // *********************************************************************// |
110 | CoViaThinkSoftSimpleEventLog = class |
||
111 | class function Create: IViaThinkSoftSimpleEventLog; |
||
112 | class function CreateRemote(const MachineName: string): IViaThinkSoftSimpleEventLog; |
||
113 | end; |
||
114 | |||
115 | implementation |
||
116 | |||
3 | daniel-mar | 117 | uses System.Win.ComObj; |
2 | daniel-mar | 118 | |
119 | class function CoViaThinkSoftSimpleEventLog.Create: IViaThinkSoftSimpleEventLog; |
||
120 | begin |
||
121 | Result := CreateComObject(CLASS_ViaThinkSoftSimpleEventLog) as IViaThinkSoftSimpleEventLog; |
||
122 | end; |
||
123 | |||
124 | class function CoViaThinkSoftSimpleEventLog.CreateRemote(const MachineName: string): IViaThinkSoftSimpleEventLog; |
||
125 | begin |
||
126 | Result := CreateRemoteComObject(MachineName, CLASS_ViaThinkSoftSimpleEventLog) as IViaThinkSoftSimpleEventLog; |
||
127 | end; |
||
128 | |||
129 | end. |
||
3 | daniel-mar | 130 |