log4pascal
1.0.0
Log4Pascal هو مشروع مفتوح المصدر يهدف إلى إنتاج وحدة تسجيل بسيطة لـ ObjectPascal (Delphi ، Freepascal).
لا يعتمد Log4Pascal على حزمة Log4J من مؤسسة Apache Software. حسنا ، فقط الاسم.
فقط أضف وحدة Log4Pascal.pas إلى المشروع.
Project -> Add to Project ثم حدد موقع الملف واختره.يتم تعريف ملف السجل في الوحدة log4pascal ، لذلك إذا كنت ترغب في تغيير ، فقم بتعديل السطر التالي:
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] باستخدام Lazarus (Pascal Free) كانت هناك أخطاء واحدة وحدة تجميع: Identifier not found "DebugHook"
لذلك إذا كنت ترغب في استخدام Log4Pascal في Pascal مجانًا ، فيجب عليك حذف (أو استبدال) السطر التالي الموجود في وحدة Log4Pascal:
if DebugHook = 0 then Exit;هذا البرنامج مفتوح المصدر ، مرخص له بموجب ترخيص MIT (MIT). انظر الترخيص للحصول على التفاصيل.