Subversion Repositories simple_log_event

Rev

Rev 2 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 3
Line 1... Line 1...
1 
unit ViaThinkSoftSimpleLogEvent_TLB;
 1 
unit ViaThinkSoftSimpleLogEvent_TLB;
2 
 
 2 
 
3 
// ************************************************************************ //
 3 
// ************************************************************************ //
4 
// WARNING                                                                    
 4 
// WARNUNG
5 
// -------                                                                    
 5 
// -------
6 
// The types declared in this file were generated from data read from a      
6 
// Die in dieser Datei deklarierten Typen wurden aus Daten einer Typbibliothek
7 
// Type Library. If this type library is explicitly or indirectly (via        
 7 
// generiert. Wenn diese Typbibliothek explizit oder indirekt (über eine
8 
// another type library referring to this type library) re-imported, or the  
8 
// andere Typbibliothek) reimportiert wird oder wenn der Befehl
9 
// 'Refresh' command of the Type Library Editor activated while editing the  
9 
// 'Aktualisieren' im Typbibliotheks-Editor während des Bearbeitens der
10 
// Type Library, the contents of this file will be regenerated and all        
 10 
// Typbibliothek aktiviert ist, wird der Inhalt dieser Datei neu generiert und
11 
// manual modifications will be lost.                                        
11 
// alle manuell vorgenommenen Änderungen gehen verloren.
12 
// ************************************************************************ //
 12 
// ************************************************************************ //
13 
 
 13 
 
14 
// $Rev: 8291 $
 14 
// $Rev: 52393 $
15 
// File generated on 29.04.2020 21:22:15 from Type Library described below.
 15 
// Datei am 30.04.2020 23:02:59 erzeugt aus der unten beschriebenen Typbibliothek.
16 
 
 16 
 
17 
// ************************************************************************  //
 17 
// ************************************************************************  //
18 
// Type Lib: D:\VtsEventLog\ComTest2\ViaThinkSoftSimpleLogEvent.tlb (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 
// Helpfile:
21 
// Hilfedatei:
22 
// HelpString: ViaThinkSoftSimpleLogEvent Library
 22 
// Hilfe-String: ViaThinkSoftSimpleLogEvent Library
23 
// DepndLst:
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 
// ************************************************************************ //
 26 
// ************************************************************************ //
26 
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
27 
{$TYPEDADDRESS OFF} // Unit muss ohne Typüberprüfung für Zeiger compiliert werden.
27 
{$WARN SYMBOL_PLATFORM OFF}
 28 
{$WARN SYMBOL_PLATFORM OFF}
28 
{$WRITEABLECONST ON}
 29 
{$WRITEABLECONST ON}
29 
{$VARPROPSETTER ON}
 30 
{$VARPROPSETTER ON}
30 
interface
 31 
{$ALIGN 4}
31 
 
 32 
 
32 
uses Windows, ActiveX, Classes, StdVCL, Variants;
 33 
interface
33 
 
 34 
 
- 
 
 35 
uses Winapi.Windows, System.Classes, System.Variants, System.Win.StdVCL, Vcl.Graphics, Vcl.OleServer, Winapi.ActiveX;
34 
 
 36 
 
35 
// *********************************************************************//
 37 
// *********************************************************************//
36 
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
 38 
// In der Typbibliothek deklarierte GUIDS. Die folgenden Präfixe werden verwendet:
37 
//   Type Libraries     : LIBID_xxxx                                      
 39 
//   Typbibliotheken      : LIBID_xxxx
38 
//   CoClasses          : CLASS_xxxx                                      
 40 
//   CoClasses            : CLASS_xxxx
39 
//   DISPInterfaces     : DIID_xxxx                                      
41 
//   DISPInterfaces       : DIID_xxxx
40 
//   Non-DISP interfaces: IID_xxxx                                        
 42 
//   Nicht-DISP-Interfaces: IID_xxxx
41 
// *********************************************************************//
 43 
// *********************************************************************//
42 
const
 44 
const
43 
  // TypeLibrary Major and minor versions
 45 
  // Haupt- und Nebenversionen der Typbibliothek
44 
  ViaThinkSoftSimpleLogEventMajorVersion = 1;
 46 
  ViaThinkSoftSimpleLogEventMajorVersion = 1;
45 
  ViaThinkSoftSimpleLogEventMinorVersion = 0;
 47 
  ViaThinkSoftSimpleLogEventMinorVersion = 0;
46 
 
 48 
 
47 
  LIBID_ViaThinkSoftSimpleLogEvent: TGUID = '{D7654BA7-41D0-4FF9-8543-C3A4DA936856}';
 49 
  LIBID_ViaThinkSoftSimpleLogEvent: TGUID = '{D7654BA7-41D0-4FF9-8543-C3A4DA936856}';
48 
 
 50 
 
49 
  IID_IViaThinkSoftSimpleEventLog: TGUID = '{4094657E-8199-460F-A3DD-5BB63B6B0F65}';
 51 
  IID_IViaThinkSoftSimpleEventLog: TGUID = '{4094657E-8199-460F-A3DD-5BB63B6B0F65}';
50 
  CLASS_ViaThinkSoftSimpleEventLog: TGUID = '{E4270053-A217-498C-B395-9EF33187E8C2}';
 52 
  CLASS_ViaThinkSoftSimpleEventLog: TGUID = '{E4270053-A217-498C-B395-9EF33187E8C2}';
- 
 
 53 
 
- 
 
 54 
// *********************************************************************//
- 
 
 55 
// Deklaration von in der Typbibliothek definierten Aufzählungen
- 
 
 56 
// *********************************************************************//
- 
 
 57 
// Konstanten für enum LogEventType
- 
 
 58 
type
- 
 
 59 
  LogEventType = TOleEnum;
- 
 
 60 
const
- 
 
 61 
  Success = $00000000;
- 
 
 62 
  Informational = $00000001;
- 
 
 63 
  Warning = $00000002;
- 
 
 64 
  Error = $00000003;
- 
 
 65 
 
51 
type
 66 
type
52 
 
 67 
 
53 
// *********************************************************************//
 68 
// *********************************************************************//
54 
// Forward declaration of types defined in TypeLibrary                    
 69 
// Forward-Deklaration von in der Typbibliothek definierten Typen
55 
// *********************************************************************//
 70 
// *********************************************************************//
56 
  IViaThinkSoftSimpleEventLog = interface;
 71 
  IViaThinkSoftSimpleEventLog = interface;
57 
  IViaThinkSoftSimpleEventLogDisp = dispinterface;
 72 
  IViaThinkSoftSimpleEventLogDisp = dispinterface;
58 
 
 73 
 
59 
// *********************************************************************//
 74 
// *********************************************************************//
60 
// Declaration of CoClasses defined in Type Library                      
75 
// Deklaration von in der Typbibliothek definierten CoClasses
61 
// (NOTE: Here we map each CoClass to its Default Interface)              
 76 
// (HINWEIS: Hier wird jede CoClass ihrem Standard-Interface zugewiesen)
62 
// *********************************************************************//
 77 
// *********************************************************************//
63 
  ViaThinkSoftSimpleEventLog = IViaThinkSoftSimpleEventLog;
 78 
  ViaThinkSoftSimpleEventLog = IViaThinkSoftSimpleEventLog;
64 
 
 79 
 
65 
 
 80 
 
66 
// *********************************************************************//
 81 
// *********************************************************************//
Line 68... Line 83...
68 
// Flags:     (4416) Dual OleAutomation Dispatchable
 83 
// Flags:     (4416) Dual OleAutomation Dispatchable
69 
// GUID:      {4094657E-8199-460F-A3DD-5BB63B6B0F65}
 84 
// GUID:      {4094657E-8199-460F-A3DD-5BB63B6B0F65}
70 
// *********************************************************************//
 85 
// *********************************************************************//
71 
  IViaThinkSoftSimpleEventLog = interface(IDispatch)
 86 
  IViaThinkSoftSimpleEventLog = interface(IDispatch)
72 
    ['{4094657E-8199-460F-A3DD-5BB63B6B0F65}']
 87 
    ['{4094657E-8199-460F-A3DD-5BB63B6B0F65}']
- 
 
 88 
    procedure LogEvent(const SourceName: WideString; EventType: LogEventType;
73 
    procedure LogEvent(EventType: Integer; const LogMsg: WideString); safecall;
 89 
                       const LogMsg: WideString); safecall;
74 
  end;
 90 
  end;
75 
 
 91 
 
76 
// *********************************************************************//
 92 
// *********************************************************************//
77 
// DispIntf:  IViaThinkSoftSimpleEventLogDisp
 93 
// DispIntf:  IViaThinkSoftSimpleEventLogDisp
78 
// Flags:     (4416) Dual OleAutomation Dispatchable
 94 
// Flags:     (4416) Dual OleAutomation Dispatchable
79 
// GUID:      {4094657E-8199-460F-A3DD-5BB63B6B0F65}
 95 
// GUID:      {4094657E-8199-460F-A3DD-5BB63B6B0F65}
80 
// *********************************************************************//
 96 
// *********************************************************************//
81 
  IViaThinkSoftSimpleEventLogDisp = dispinterface
 97 
  IViaThinkSoftSimpleEventLogDisp = dispinterface
82 
    ['{4094657E-8199-460F-A3DD-5BB63B6B0F65}']
 98 
    ['{4094657E-8199-460F-A3DD-5BB63B6B0F65}']
- 
 
 99 
    procedure LogEvent(const SourceName: WideString; EventType: LogEventType;
83 
    procedure LogEvent(EventType: Integer; const LogMsg: WideString); dispid 201;
 100 
                       const LogMsg: WideString); dispid 201;
84 
  end;
 101 
  end;
85 
 
 102 
 
86 
// *********************************************************************//
 103 
// *********************************************************************//
87 
// The Class CoViaThinkSoftSimpleEventLog provides a Create and CreateRemote method to          
 104 
// Die Klasse CoViaThinkSoftSimpleEventLog stellt die Methoden Create und CreateRemote zur
88 
// create instances of the default interface IViaThinkSoftSimpleEventLog exposed by              
 105 
// Verfügung, um Instanzen des Standard-Interface IViaThinkSoftSimpleEventLog, dargestellt
89 
// the CoClass ViaThinkSoftSimpleEventLog. The functions are intended to be used by            
106 
// von CoClass ViaThinkSoftSimpleEventLog, zu erzeugen. Diese Funktionen können
90 
// clients wishing to automate the CoClass objects exposed by the        
107 
// von einem Client verwendet werden, der die CoClasses automatisieren
91 
// server of this typelibrary.                                            
 108 
// will, die von dieser Typbibliothek dargestellt werden.
92 
// *********************************************************************//
 109 
// *********************************************************************//
93 
  CoViaThinkSoftSimpleEventLog = class
 110 
  CoViaThinkSoftSimpleEventLog = class
94 
    class function Create: IViaThinkSoftSimpleEventLog;
 111 
    class function Create: IViaThinkSoftSimpleEventLog;
95 
    class function CreateRemote(const MachineName: string): IViaThinkSoftSimpleEventLog;
 112 
    class function CreateRemote(const MachineName: string): IViaThinkSoftSimpleEventLog;
96 
  end;
 113 
  end;
97 
 
 114 
 
98 
implementation
 115 
implementation
99 
 
 116 
 
100 
uses ComObj;
 117 
uses System.Win.ComObj;
101 
 
 118 
 
102 
class function CoViaThinkSoftSimpleEventLog.Create: IViaThinkSoftSimpleEventLog;
 119 
class function CoViaThinkSoftSimpleEventLog.Create: IViaThinkSoftSimpleEventLog;
103 
begin
 120 
begin
104 
  Result := CreateComObject(CLASS_ViaThinkSoftSimpleEventLog) as IViaThinkSoftSimpleEventLog;
 121 
  Result := CreateComObject(CLASS_ViaThinkSoftSimpleEventLog) as IViaThinkSoftSimpleEventLog;
105 
end;
 122 
end;
Line 108... Line 125...
108 
begin
 125 
begin
109 
  Result := CreateRemoteComObject(MachineName, CLASS_ViaThinkSoftSimpleEventLog) as IViaThinkSoftSimpleEventLog;
 126 
  Result := CreateRemoteComObject(MachineName, CLASS_ViaThinkSoftSimpleEventLog) as IViaThinkSoftSimpleEventLog;
110 
end;
 127 
end;
111 
 
 128 
 
112 
end.
 129 
end.
- 
 
 130