Subversion Repositories simple_log_event

Rev

Rev 3 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  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.
  113.