ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/runtime/nongui/IBSQLMonitor.pas

Comparing ibx/trunk/runtime/nongui/IBSQLMonitor.pas (file contents):
Revision 314 by tony, Fri Apr 17 10:26:08 2020 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC

#	Line 46 | Line 46 | unit IBSQLMonitor;
46		interface
47
48		uses
49	<	IB, IBUtils, IBSQL, IBCustomDataSet, IBDatabase,  DB,
50	<	IBTypes ,SysUtils,  Classes,
49	>	IB, IBUtils, IBSQL, IBCustomDataSet, IBDatabase,  DB, IBInternals,
50	>	SysUtils,  Classes,
51		{$IFDEF WINDOWS }
52		Windows
53		{$ENDIF}
#	Line 107 | Line 107 | type
107		property Enabled;
108		end;
109
110	–	TIBMonitoredService = class(TComponent)
111	–	private
112	–	FTraceFlags: TTraceFlags;
113	–	protected
114	–	property TraceFlags: TTraceFlags read FTraceFlags write FTraceFlags;
115	–	end;
116	–
117	–	{ TIBXMonitoredService }
118	–
119	–	TIBXMonitoredService = class(TComponent)
120	–	private
121	–	FTraceFlags: TTraceFlags;
122	–	protected
123	–	property TraceFlags: TTraceFlags read FTraceFlags write FTraceFlags;
124	–	end;
125	–
126	–	TIBXMonitoredConnection = class(TCustomConnection)
127	–	private
128	–	FTraceFlags: TTraceFlags;
129	–	protected
130	–	property TraceFlags: TTraceFlags read FTraceFlags write FTraceFlags;
131	–	end;
132	–
110		IIBSQLMonitorHook = interface
111		['{CF65434C-9B75-4298-BA7E-E6B85B3C769D}']
112		procedure RegisterMonitor(SQLMonitor : TIBCustomSQLMonitor);

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines