root / Logging.pas
History | View | Annotate | Download (513 Bytes)
| 1 | 162:ac18d757e2cd | aksdb | unit Logging;
|
|---|---|---|---|
| 2 | 162:ac18d757e2cd | aksdb | |
| 3 | 162:ac18d757e2cd | aksdb | {$mode objfpc}{$H+} |
| 4 | 162:ac18d757e2cd | aksdb | |
| 5 | 162:ac18d757e2cd | aksdb | interface
|
| 6 | 162:ac18d757e2cd | aksdb | |
| 7 | 162:ac18d757e2cd | aksdb | uses
|
| 8 | 162:ac18d757e2cd | aksdb | MultiLog{$IFNDEF NoLogging}, IPCChannel{$ENDIF}; |
| 9 | 162:ac18d757e2cd | aksdb | |
| 10 | 162:ac18d757e2cd | aksdb | const
|
| 11 | 162:ac18d757e2cd | aksdb | lcAll = [0..31]; //all logging classes |
| 12 | 162:ac18d757e2cd | aksdb | lcDebug = 0;
|
| 13 | 162:ac18d757e2cd | aksdb | lcError = 1;
|
| 14 | 162:ac18d757e2cd | aksdb | lcInfo = 2;
|
| 15 | 162:ac18d757e2cd | aksdb | lcWarning = 3;
|
| 16 | 162:ac18d757e2cd | aksdb | |
| 17 | 162:ac18d757e2cd | aksdb | lcEvents = 4;
|
| 18 | 162:ac18d757e2cd | aksdb | |
| 19 | 162:ac18d757e2cd | aksdb | lcServer = 10;
|
| 20 | 162:ac18d757e2cd | aksdb | lcClient = 11;
|
| 21 | 162:ac18d757e2cd | aksdb | lcLandscape = 12;
|
| 22 | 162:ac18d757e2cd | aksdb | |
| 23 | 162:ac18d757e2cd | aksdb | var
|
| 24 | 162:ac18d757e2cd | aksdb | Logger: TLogger; |
| 25 | 162:ac18d757e2cd | aksdb | |
| 26 | 162:ac18d757e2cd | aksdb | implementation
|
| 27 | 162:ac18d757e2cd | aksdb | |
| 28 | 162:ac18d757e2cd | aksdb | initialization
|
| 29 | 162:ac18d757e2cd | aksdb | Logger := TLogger.Create; |
| 30 | 162:ac18d757e2cd | aksdb | {$IFNDEF NoLogging}
|
| 31 | 162:ac18d757e2cd | aksdb | Logger.Channels.Add(TIPCChannel.Create); |
| 32 | 162:ac18d757e2cd | aksdb | Logger.ActiveClasses := lcAll; |
| 33 | 162:ac18d757e2cd | aksdb | {$ENDIF}
|
| 34 | 162:ac18d757e2cd | aksdb | |
| 35 | 162:ac18d757e2cd | aksdb | finalization
|
| 36 | 162:ac18d757e2cd | aksdb | Logger.Free; |
| 37 | 162:ac18d757e2cd | aksdb | |
| 38 | 162:ac18d757e2cd | aksdb | end.
|