Log4pascal adalah proyek open source yang bertujuan untuk menghasilkan unit logging sederhana untuk ObjectPascal (Delphi, Freepascal).
Log4Pascal tidak didasarkan pada paket log4j dari Apache Software Foundation. Nah, hanya namanya.
Cukup tambahkan unit Log4Pascal.pas untuk diproyeksikan.
Project -> Add to Project dan kemudian temukan dan pilih file.File log didefinisikan dalam unit log4pascal, jadi jika Anda ingin mengubah, memodifikasi baris berikut:
initialization
Logger := TLogger.Create( ' Log.txt ' );SetQuietMode();SetNoisyMode();EnableTraceLog(); EnableDebugLog(); EnableInfoLog(); EnableWarningLog(); EnableErrorLog(); EnableFatalLog();DisableTraceLog(); DisableDebugLog(); DisableInfoLog(); DisableWarningLog(); DisableErrorLog(); DisableFatalLog();Clear(); Logger.Trace( ' Trace message log ' );
Logger.Debug( ' Message is logged only when in debug ' );
Logger.Info( ' Normal message log ' );
Logger.Warning( ' Warning message log ' );
Logger.Error( ' Error message log ' );
Logger.Fatal( ' Fatal message log ' );TRACE Trace message log [DATETIME HERE]
DEBUG Message is logged only when in debug [DATETIME HERE]
INFO Normal message log [DATETIME HERE]
WARN Warning message log [DATETIME HERE]
ERROR Error message log [DATETIME HERE]
FATAL Fatal message log [DATETIME HERE] Menggunakan Lazarus (Pascal gratis) Ada 1 kesalahan modul yang menyusun: Identifier not found "DebugHook"
Jadi, jika Anda ingin menggunakan log4pascal di Pascal gratis, Anda harus menghapus (atau mengganti) baris berikut yang ditemukan di unit log4pascal:
if DebugHook = 0 then Exit;Perangkat lunak ini adalah open source, dilisensikan di bawah lisensi MIT (MIT). Lihat lisensi untuk detailnya.