Subversion Repositories simple_log_event

Rev

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

Rev 3 Rev 4
Line 90... Line 90...
90 
	begin
 90 
	begin
91 
	  CoInitialize(nil); // needs to be called only once
 91 
	  CoInitialize(nil); // needs to be called only once
92 
	  x := CoViaThinkSoftSimpleEventLog.Create;
 92 
	  x := CoViaThinkSoftSimpleEventLog.Create;
93 
	  x.LogEvent('MySourceName', ViaThinkSoftSimpleLogEvent_TLB.Warning, 'This is a test warning written by Delphi');
 93 
	  x.LogEvent('MySourceName', ViaThinkSoftSimpleLogEvent_TLB.Warning, 'This is a test warning written by Delphi');
94 
	  x := nil;
 94 
	  x := nil;
95 
	end.
 95 
	end;
96 
 
 96 
 
97 
 
 97 
 
98 
A short note about the compilation workflow (for developers)
 98 
A short note about the compilation workflow (for developers)
99 
-------------------------------------------
 99 
-------------------------------------------
100 
 
 100