WebSVN – simple_log_event – Diff – /trunk/TLB/ViaThinkSoftSimpleLogEvent_TLB.pas


unit ViaThinkSoftSimpleLogEvent_TLB;
 
// ************************************************************************ //
// WARNUNG
// -------
// Die in dieser Datei deklarierten Typen wurden aus Daten einer Typbibliothek
// generiert. Wenn diese Typbibliothek explizit oder indirekt (über eine
// andere Typbibliothek) reimportiert wird oder wenn der Befehl
// 'Aktualisieren' im Typbibliotheks-Editor während des Bearbeitens der
// Typbibliothek aktiviert ist, wird der Inhalt dieser Datei neu generiert und
// alle manuell vorgenommenen Änderungen gehen verloren.
// ************************************************************************ //
 
// $Rev: 52393 $
// Datei am 03.05.2020 21:20:05 erzeugt aus der unten beschriebenen Typbibliothek.
 
// ************************************************************************  //
// Typbib.: C:\Users\DELL User\SVN\SimpleLogEvent\trunk\TLB\ViaThinkSoftSimpleLogEvent (1)
// LIBID: {D7654BA7-41D0-4FF9-8543-C3A4DA936856}
// LCID: 0
// Hilfedatei:
// Hilfe-String: ViaThinkSoftSimpleLogEvent Library
// Liste der Abhäng.:
//   (1) v2.0 stdole, (C:\Windows\SysWOW64\stdole2.tlb)
// SYS_KIND: SYS_WIN32
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit muss ohne Typüberprüfung für Zeiger compiliert werden.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
{$ALIGN 4}
 
interface
 
uses Winapi.Windows, System.Classes, System.Variants, System.Win.StdVCL, Vcl.Graphics, Vcl.OleServer, Winapi.ActiveX;
 
// *********************************************************************//
// In der Typbibliothek deklarierte GUIDS. Die folgenden Präfixe werden verwendet:
//   Typbibliotheken      : LIBID_xxxx
//   CoClasses            : CLASS_xxxx
//   DISPInterfaces       : DIID_xxxx
//   Nicht-DISP-Interfaces: IID_xxxx
// *********************************************************************//
const
  // Haupt- und Nebenversionen der Typbibliothek
  ViaThinkSoftSimpleLogEventMajorVersion = 1;
  ViaThinkSoftSimpleLogEventMinorVersion = 0;
 
  LIBID_ViaThinkSoftSimpleLogEvent: TGUID = '{D7654BA7-41D0-4FF9-8543-C3A4DA936856}';
 
  IID_IViaThinkSoftSimpleEventLog: TGUID = '{4094657E-8199-460F-A3DD-5BB63B6B0F65}';
  CLASS_ViaThinkSoftSimpleEventLog: TGUID = '{E4270053-A217-498C-B395-9EF33187E8C2}';
 
// *********************************************************************//
// Deklaration von in der Typbibliothek definierten Aufzählungen
// *********************************************************************//
// Konstanten für enum LogEventType
type
  LogEventType = TOleEnum;
const
  Success = $00000000;
  Informational = $00000001;
  Warning = $00000002;
  Error = $00000003;
 
type
 
// *********************************************************************//
// Forward-Deklaration von in der Typbibliothek definierten Typen
// *********************************************************************//
  IViaThinkSoftSimpleEventLog = interface;
  IViaThinkSoftSimpleEventLogDisp = dispinterface;
 
// *********************************************************************//
// Deklaration von in der Typbibliothek definierten CoClasses
// (HINWEIS: Hier wird jede CoClass ihrem Standard-Interface zugewiesen)
// *********************************************************************//
  ViaThinkSoftSimpleEventLog = IViaThinkSoftSimpleEventLog;
 
 
// *********************************************************************//
// Interface: IViaThinkSoftSimpleEventLog
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {4094657E-8199-460F-A3DD-5BB63B6B0F65}
// *********************************************************************//
  IViaThinkSoftSimpleEventLog = interface(IDispatch)
    ['{4094657E-8199-460F-A3DD-5BB63B6B0F65}']
    procedure LogEvent(const SourceName: WideString; EventType: LogEventType;
                       const LogMsg: WideString); safecall;
    procedure LogSimulate(const SourceName: WideString; EventType: LogEventType;
                          const LogMsg: WideString; out Reason: OleVariant); safecall;
  end;
 
// *********************************************************************//
// DispIntf:  IViaThinkSoftSimpleEventLogDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {4094657E-8199-460F-A3DD-5BB63B6B0F65}
// *********************************************************************//
  IViaThinkSoftSimpleEventLogDisp = dispinterface
    ['{4094657E-8199-460F-A3DD-5BB63B6B0F65}']
    procedure LogEvent(const SourceName: WideString; EventType: LogEventType;
                       const LogMsg: WideString); dispid 201;
    procedure LogSimulate(const SourceName: WideString; EventType: LogEventType;
                          const LogMsg: WideString; out Reason: OleVariant); dispid 202;
  end;
 
// *********************************************************************//
// Die Klasse CoViaThinkSoftSimpleEventLog stellt die Methoden Create und CreateRemote zur
// Verfügung, um Instanzen des Standard-Interface IViaThinkSoftSimpleEventLog, dargestellt
// von CoClass ViaThinkSoftSimpleEventLog, zu erzeugen. Diese Funktionen können
// von einem Client verwendet werden, der die CoClasses automatisieren
// will, die von dieser Typbibliothek dargestellt werden.
// *********************************************************************//
  CoViaThinkSoftSimpleEventLog = class
    class function Create: IViaThinkSoftSimpleEventLog;
    class function CreateRemote(const MachineName: string): IViaThinkSoftSimpleEventLog;
  end;
 
implementation
 
uses System.Win.ComObj;
 
class function CoViaThinkSoftSimpleEventLog.Create: IViaThinkSoftSimpleEventLog;
begin
  Result := CreateComObject(CLASS_ViaThinkSoftSimpleEventLog) as IViaThinkSoftSimpleEventLog;
end;
 
class function CoViaThinkSoftSimpleEventLog.CreateRemote(const MachineName: string): IViaThinkSoftSimpleEventLog;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_ViaThinkSoftSimpleEventLog) as IViaThinkSoftSimpleEventLog;
end;
 
end.
 
 

Subversion Repositories simple_log_event

simple_log_event/trunk/TLB/ViaThinkSoftSimpleLogEvent_TLB.pas – Rev 3 → 6

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