Login | ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/simple_log_event/trunk/TLB/ViaThinkSoftSimpleLogEvent_TLB.pas
Revision: 3
Committed: Thu Apr 30 21:30:09 2020 UTC (2 years ago) by daniel-marschall
Content type: text/x-pascal
File size: 5786 byte(s)
Log Message:
The event source name can now also be set. Added setup for even more easier installation.

File Contents

# User Rev Content
1 daniel-marschall 2 unit ViaThinkSoftSimpleLogEvent_TLB;
2    
3     // ************************************************************************ //
4 daniel-marschall 3 // 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.
12 daniel-marschall 2 // ************************************************************************ //
13    
14 daniel-marschall 3 // $Rev: 52393 $
15     // Datei am 30.04.2020 23:02:59 erzeugt aus der unten beschriebenen Typbibliothek.
16 daniel-marschall 2
17     // ************************************************************************ //
18 daniel-marschall 3 // Typbib.: C:\Users\DELL User\SVN\SimpleLogEvent\trunk\TLB\ViaThinkSoftSimpleLogEvent (1)
19 daniel-marschall 2 // LIBID: {D7654BA7-41D0-4FF9-8543-C3A4DA936856}
20     // LCID: 0
21 daniel-marschall 3 // Hilfedatei:
22     // Hilfe-String: ViaThinkSoftSimpleLogEvent Library
23     // Liste der Abhäng.:
24 daniel-marschall 2 // (1) v2.0 stdole, (C:\Windows\SysWOW64\stdole2.tlb)
25 daniel-marschall 3 // SYS_KIND: SYS_WIN32
26 daniel-marschall 2 // ************************************************************************ //
27 daniel-marschall 3 {$TYPEDADDRESS OFF} // Unit muss ohne Typüberprüfung für Zeiger compiliert werden.
28 daniel-marschall 2 {$WARN SYMBOL_PLATFORM OFF}
29     {$WRITEABLECONST ON}
30     {$VARPROPSETTER ON}
31 daniel-marschall 3 {$ALIGN 4}
32    
33 daniel-marschall 2 interface
34    
35 daniel-marschall 3 uses Winapi.Windows, System.Classes, System.Variants, System.Win.StdVCL, Vcl.Graphics, Vcl.OleServer, Winapi.ActiveX;
36 daniel-marschall 2
37     // *********************************************************************//
38 daniel-marschall 3 // 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
43 daniel-marschall 2 // *********************************************************************//
44     const
45 daniel-marschall 3 // Haupt- und Nebenversionen der Typbibliothek
46 daniel-marschall 2 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}';
53 daniel-marschall 3
54     // *********************************************************************//
55     // Deklaration von in der Typbibliothek definierten Aufzählungen
56     // *********************************************************************//
57     // Konstanten für enum LogEventType
58 daniel-marschall 2 type
59 daniel-marschall 3 LogEventType = TOleEnum;
60     const
61     Success = $00000000;
62     Informational = $00000001;
63     Warning = $00000002;
64     Error = $00000003;
65 daniel-marschall 2
66 daniel-marschall 3 type
67    
68 daniel-marschall 2 // *********************************************************************//
69 daniel-marschall 3 // Forward-Deklaration von in der Typbibliothek definierten Typen
70 daniel-marschall 2 // *********************************************************************//
71     IViaThinkSoftSimpleEventLog = interface;
72     IViaThinkSoftSimpleEventLogDisp = dispinterface;
73    
74     // *********************************************************************//
75 daniel-marschall 3 // Deklaration von in der Typbibliothek definierten CoClasses
76     // (HINWEIS: Hier wird jede CoClass ihrem Standard-Interface zugewiesen)
77 daniel-marschall 2 // *********************************************************************//
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}']
88 daniel-marschall 3 procedure LogEvent(const SourceName: WideString; EventType: LogEventType;
89     const LogMsg: WideString); safecall;
90 daniel-marschall 2 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}']
99 daniel-marschall 3 procedure LogEvent(const SourceName: WideString; EventType: LogEventType;
100     const LogMsg: WideString); dispid 201;
101 daniel-marschall 2 end;
102    
103     // *********************************************************************//
104 daniel-marschall 3 // 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.
109 daniel-marschall 2 // *********************************************************************//
110     CoViaThinkSoftSimpleEventLog = class
111     class function Create: IViaThinkSoftSimpleEventLog;
112     class function CreateRemote(const MachineName: string): IViaThinkSoftSimpleEventLog;
113     end;
114    
115     implementation
116    
117 daniel-marschall 3 uses System.Win.ComObj;
118 daniel-marschall 2
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.
130 daniel-marschall 3