Langage de programmation - Free Pascal - Fano Framework

Utilisation des journaux de bord

Il arrive que les développeurs aient besoin de consigner quelque chose pour garder une trace des choses, par exemple ce qui s'est mal passé (c'est-à-dire les journaux d'erreurs), à des fins d'audit,...

Le Fano Framework fournit un mécanisme de journalisation via l'interface ILogger. Cette interface expose plusieurs méthodes :

Méthode	Description
log()	Pour enregistrer des messages à tous les niveaux.
emergency()	Pour enregistrer les messages d'urgence.
critical()	Pour enregistrer les messages critiques.
error()	Pour enregistrer les messages d'erreur.
alert()	Pour enregistrer les messages d'alerte.
warning()	Pour enregistrer les messages d'avertissement.
debug()	Pour enregistrer les messages de débogage.
notice()	Pour enregistrer les messages d'avis.
info()	Pour enregistrer des messages d'information.

À l'exception de la méthode log(), toutes les méthodes attendent deux paramètres. Le premier paramètre est un message à enregistrer et le second paramètre est des données liées au message de journal. Ce paramètre est facultatif. Si ce deuxième paramètre est donné, il doit implémenter l'interface ISerializeable.

Inteface ILogger
Interface ISerializeable

Par exemple, pour enregistrer un message critique :



Var logger:ILogger;

...

logger.critical('C''est un message crucial');

Journal de bord intégré

Le Fano Framework possède plusieurs journaux de bord intégrés que les développeurs peuvent utiliser ou étendre. Tous les journaux de bord intégrés héritent de TAbstractLogger fournissant la plupart des implémentations de méthodes, à l'exception de la méthode log() étant une méthode abstraite que le descendant doit implémenter. Cette classe est principalement ce que les développeurs doivent étendre pour créer un nouveau type de logger.

Journal dans le journal système

TSysLogLogger est une implémentation de logger écrivant le journal dans le journal système. Voir syslog.



Var logger:ILogger;

...

logger:=TSysLogLogger.create();

Son constructeur attend trois paramètres optionnels.



Constructor TSysLogLogger.Create(

    Const Prefix:String = '';

    Const Opt:Integer = -1;

    Const Facility:Integer = -1

);

Paramètre	Description
prefix	Chaîne de caractères étant préfixée à tous les messages du journal.
opt	Valeur entière pour l'option. Si elle n'est pas définie, elle utilise par défaut LOG_NOWAIT ou LOG_PID.
facility	Valeur entière pour l'installation. Si elle n'est pas définie, elle utilise par défaut LOG_USER.

Voir openlog.

Journal dans un fichier

TFileLogger est une implémentation de journal écrivant le journal dans un fichier. Son constructeur attend le nom de fichier où écrire le journal. L'exception EInOutError sera déclenchée lorsque le nom de fichier ne peut pas être créé ou ouvert pour l'écriture. Dans ce cas, assurez-vous que l'autorisation de répertoire/fichier correcte est donnée.



Var logger:ILogger;

...

logger:=TFileLogger.create('storages/logs/app.log');

Supprimer la journalisation

TNullLogger est une implémentation de journalisation ne faisant rien. Il est fourni pour que le développeur puisse désactiver la journalisation.

Journalisation sur STDOUT

TStdOutLogger est une implémentation de journal générant un message de journalisation sur STDOUT. Ce journal ne peut pas être utilisé dans une application CGI.

Journalisation sur STDERR

TStdErrLogger est une implémentation de journal générer un message de journal sur STDERR.

Journalisation par courriel

TMailLogger est une implémentation de journal générant les messages de journal sous forme de courriel. Elle nécessite une instance de l'interface IMailer étant responsable de l'envoi des courriels.



Var logger:ILogger;

...

logger:=TMailLogger.create(

    TSendmailMailer.create(),  (* envoyer en utilisant sendmail *)

    'to@exemple.com',  (* destinataire *)

    'from@monapp.fano' (* expéditeur *)

);

Le constructeur TMailLogger accepte un quatrième paramètre facultatif étant une chaîne de préfixe ajoutée au sujet du courriel. Pour modifier la composition de l'objet et du corps du courriel, vous pouvez étendre la classe TMailLogger et remplacer ses méthodes protégées buildSubject() et buildMessage().

Fano Mail Logger est un exemple d'application Web montrant comment enregistrer des messages sous forme de courriel.

Journalisation dans la base de données

TDbLogger est une implémentation de journal de bord générant un message de journal dans la base de données. Il nécessite une instance d'IRdbms responsable de l'opération de base de données.

Pour pouvoir utiliser ce journal de bord, vous devez créer une table avec au moins quatre colonnes pour entreposer le niveau, le message, la date et l'heure du journal et les données associées liées à l'entrée du journal. Par exemple :



CREATE TABLE logs

(

    id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,

    level VARCHAR(20) NOT NULL,

    msg VARCHAR(400) NOT NULL,

    created_at DATETIME NOT NULL,

    context TEXT NOT NULL

)

Lors de la création d'une instance TDbLogger, vous devez indiquer le nom de la table et les champs obligatoires :



logger:=TDbLogger.create(

    rdbms,

    'logs', (* nom de la table *)

    'level', (* nom de la colonne de niveau *)

    'msg', (* nom de la colonne de message *)

    'created_at', (* journal datetime *)

    'context' (* nom de la colonne de contexte *)

);

Fano Db Logger est un exemple d'application Web qui montre comment se connecter à une base de données MySQL.

Connectez-vous à plusieurs supports

TCompositeLogger est une implémentation de journal de bord composée d'instances ILogger externes. Elle peut être utilisée pour combiner deux ou plusieurs journaux de bord en un seul, créant ainsi une fonctionnalité de journalisation plus complexe. Par exemple, pour enregistrer simultanément dans un fichier et dans un SGBDR.



Var logger:ILogger;

...

logger := TCompositeLogger.create([

    TFileLogger.create('storages/logs/app.log'),

    TDbLogger.create(

        rdbms,

        'logs', (* nom de la table *)

        'level', (* nom de la colonne de niveau *)

        'msg', (* nom de la colonne de message *)

        'created_at', (* journal datetime *)

        'context' (* nom de la colonne de contexte *)

    )

]);

Journal séparé en fonction du type de niveau

Parfois, vous souhaiterez peut-être séparer le journal en fonction du niveau. Par exemple, vous souhaiterez peut-être enregistrer les messages de journal non critiques dans un fichier distinct de celui des messages critiques pour faciliter l'audit. Ou vous devez désactiver la journalisation pour les messages de journal non critiques mais conserver le journal critique.

TSegregatedLogger est une implémentation de journal convenant à ce type de scénario de journalisation. Ce journal attend de l'appelant qu'il fournisse quatre instances ILogger qui géreront respectivement les niveaux de journal INFO, DEBUG, Warning et CRITICAL.



Var logger:ILogger;

...

logger:=TSegregatedLogger.create(

    TFileLogger.create('storages/logs/app.emergency.log'),

    TFileLogger.create('storages/logs/app.alert.log'),

    TFileLogger.create('storages/logs/app.critical.log'),

    TFileLogger.create('storages/logs/app.error.log'),

    TFileLogger.create('storages/logs/app.warning.log'),

    TFileLogger.create('storages/logs/app.notice.log'),

    TFileLogger.create('storages/logs/app.info.log'),

    TFileLogger.create('storages/logs/app.debug.log')

);

De cette façon, chaque type de journal est écrit dans un fichier séparé, ce qui facilite la recherche, par exemple, des messages de journal critiques.

Si vous devez désactiver la journalisation des messages de niveau INFO, vous pouvez le remplacer par quelque chose comme suit :



Var logger:ILogger;

...

logger := TSegregatedLogger.create(

    TFileLogger.create('storages/logs/app.emergency.log'),

    TFileLogger.create('storages/logs/app.alert.log'),

    TFileLogger.create('storages/logs/app.critical.log'),

    TFileLogger.create('storages/logs/app.error.log'),

    TFileLogger.create('storages/logs/app.warning.log'),

    TFileLogger.create('storages/logs/app.notice.log'),

    TNullLogger.create(),

    TFileLogger.create('storages/logs/app.debug.log')

);

Ou vous souhaiterez peut-être combiner INFO, DEBUG dans un fichier et le message de journal Warning, CRITICAL dans un autre fichier.



Var logger,infoDebug,warningCritical:ILogger;

...

infoDebug := TFileLogger.create('storages/logs/app.infodebug.log'),

warningCritical:=TFileLogger.create('storages/logs/app.warningcritical.log'),

logger := TSegregatedLogger.create(

    TFileLogger.create('storages/logs/app.emergency.log'),

    TFileLogger.create('storages/logs/app.alert.log'),

    warningCritical,

    TFileLogger.create('storages/logs/app.error.log'),

    warningCritical,

    TFileLogger.create('storages/logs/app.notice.log'),

    infoDebug,

    infoDebug

);

Journalisation dans le processus léger d'arrière-plan

Certaines implémentations de journal de bord prennent du temps à se terminer, comme TMailLogger. Pour éviter de bloquer le processus léger principal, vous pouvez écrire le journal dans le processus léger d'arrière-plan à l'aide de TBackgroundThreadLogger. L'exemple suivant fait que l'écriture du journal dans le courrier électronique se fait dans le processus léger d'arrière-plan.



Var logger:ILogger;

...

logger:=TBackgroundThreadLogger.create(

    TMailLogger.create(

        TSendmailMailer.create(), (* envoyer en utilisant sendmail *)

        'to@exemple.com', (* destinataire *)

        'from@monapp.fano' (* expéditeur *)

    )

);

Classe d'usine pour les enregistreurs intégrés

Le Fano Framework fournit une classe d'usine pour les enregistreurs intégrés afin qu'ils puissent être enregistrés facilement dans le conteneur de dépendances. Les usines suivantes sont disponibles :

TFileLoggerFactory, classe d'usine pour TFileLogger.
TNullLoggerFactory, classe d'usine pour TNullLogger.
TCompositeLoggerFactory, classe d'usine pour TCompositeLogger.
TSegregatedLoggerFactory, classe d'usine pour TSegregatedLogger.
TStdOutLoggerFactory, classe d'usine pour TStdOutLogger.
TStdErrLoggerFactory, classe d'usine pour TStdErrLogger.
TSysLogLoggerFactory, classe d'usine pour TSysLogLogger.
TDbLoggerFactory, classe d'usine pour TDbLogger.
TMailLoggerFactory, classe d'usine pour TMailLogger.
TBackgroundThreadLoggerFactory, classe d'usine pour TBackgroundThreadLogger.

Enregistrer TFileLogger

Par exemple, pour enregistrer TFileLogger dans un conteneur de dépendances :



Var container:IDependencyContainer;

...

container.add('logger', TFileLoggerFactory.create('storages/logs/app.log'));

Enregistrer TNullLogger

Pour enregistrer TNullLogger :



container.add('logger',TNullLoggerFactory.create());

Enregistrer TStdOutLogger

Pour enregistrer TStdOutLogger :



container.add('logger', TStdOutLoggerFactory.create());

Enregistrer TStdErrLogger

Pour enregistrer TStdErrLogger :



container.add('logger', TStdErrLoggerFactory.create());

Enregistrer TCompositeLogger

Pour enregistrer TCompositeLogger :



container.add(

    'logger',

    TCompositeLoggerFactory.create(

        TFileLoggerFactory.create('storages/logs/app.log'),

        TNullLoggerFactory.create()

    )

);

Enregistrer TSysLogLogger

Pour enregistrer TSysLogLogger :



container.add(

    'logger',

    (TSysLogLoggerFactory.create()).prefix('fano-app')

);

Enregistrer TDbLogger

Pour enregistrer TDbLogger :



container.add('db',TMySqlDbFactory.create(

    'mysql 5.7',

    '127.0.0.1',

    '[remplacer par le nom de la base de données]',

    '[remplacer par le nom d''utilisateur]',

    '[remplacer par un mot de passe]',

    3306

));

container.add('logger', TDbLoggerFactory.create().rdbmsSvcName('db'));

rdbmsSvcName() est utilisé pour indiquer à l'usine où rechercher l'instance IRdbms.

Le code ci-dessus suppose l'utilisation de journaux de noms de table, avec le niveau de colonne, msg, created_at et context.

Pour utiliser des noms de table ou de colonne différents :



container.add(

    'logger',

    TDbLoggerFactory.create()

        .rdbmsSvcName('db')

        .tableName('mylogs')

        .levelField('mylevel')

        .msgField('mymsg')

        .createdAtField('my_created_at')

        .contextField('my_coaintext')

);

Enregistrer TMailLogger

Pour enregistrer TMailLogger :



container.add('mailer', TSendmailMailerFactory.create());

container.add(

    'logger',

    TMailLoggerFactory.create()

        .mailer('mailer')

        .recipient('to@exemple.com')

        .sender('no-reply@monapp.fano')

);

mailer() est utilisé pour indiquer à l'usine où rechercher l'instance IMailer. Pour définir le préfixe sur l'objet du courriel, utilisez la méthode prefix() comme suit :



container.add(

    'logger',

    TMailLoggerFactory.create()

        .mailer('mailer')

        .recipient('to@exemple.com')

        .sender('no-reply@monapp.fano')

        .prefix('Mon App')

);

Enregistrer TBackgroundThreadLogger

Pour enregistrer TBackgroundThreadLogger :



container.add(

    'logger',

    TBackgroundThreadLoggerFactory.create(

        TMailLoggerFactory.create()

            .mailer('mailer')

            .recipient('to@exemple.com')

            .sender('no-reply@monapp.fano')

    )

);

Enregistrer les dépendances du logger

Vous pouvez automatiser l'enregistrement des dépendances du journal de bord lors de l'échafaudage du projet avec Fano CLI.

Récupérer l'instance ILogger du conteneur

Une fois la fabrique de journaux de bord enregistrée, vous pouvez accéder au journaux de bord n'importe où à partir de l'application, comme indiqué dans le code suivant.



Var logger:ILogger;

...

logger:=container.get('logger') as ILogger;

ou avec une syntaxe de type tableau :



logger:=container['logger'] as ILogger;

PARTAGER CETTE PAGE SUR

Dernière mise à jour : Vendredi, le 18 octobre 2024

	ABAP/4
	Ada
	Assembleur
	Assembly & bytecode
	ASP (Active Server Pages)
	Basic
	C
	C++
	C# (C Sharp)
	Cobol
	ColdFusion
	Fortran
	HTML
	Java
	JavaScript
	LISP
	Logo
	LotusScript
	Oberon
	Pascal
	Perl
	PHP
	PL/1
	Prolog
	Python
	Rebol
	REXX
	Ruby
	Rust
	SAS
	NoSQL
	SQL
	Swift
	X++ (Axapta)

	Assembleur 370
	Assembleur 1802
	Assembleur 4004
	Assembleur 6502
	Assembleur 6800
	Assembleur 68000
	Assembleur 8080 et 8085
	Assembleur 8089
	Assembleur 80x86
	Assembleur AGC4
	Assembleur ARM
	Assembleur DPS 8000
	Assembleur i860
	Assembleur Itanium
	Assembleur MIPS
	Assembleur PDP-11
	Assembleur PowerPC
	Assembleur RISC-V
	Assembleur SPARC
	Assembleur SuperH
	Assembleur UNIVAC I
	Assembleur VAX
	Assembleur Z80
	Assembleur Z8000
	Assembleur z/Architecture

	CIL
	Jasmin
	LLVM
	MSIL
	Parrot
	P-Code (PCode)
	SWEET16

	ASP 1.0
	ASP 2.0
	ASP 3.0
	ASP.NET

	ABasiC (Amiga)
	Adam SmartBASIC
	Altair BASIC
	AmigaBASIC (Amiga)
	AMOS Basic (Amiga)
	Atari Basic (Atari 400, 600 XL, 800, 800XL)
	Basic Apple II (Integer BASIC/APPLESOFT)
	Basic Commodore 64 (CBM-BASIC)
	Basic Commodore 128 (BASIC 7.0)
	Basic Commodore VIC-20 (CBM-BASIC 2.0)
	Basic Coco 1 (Color Basic)
	Basic Coco 2 (Extended Color Basic)
	Basic Coco 3 (Extended Color Basic 2.0)
	BASICA (PC DOS)
	Basic Pro
	BBC BASIC
	Blitz BASIC (Amiga)
	DarkBASIC
	Dartmouth BASIC
	GFA-Basic (Atari ST/Amiga)
	GWBASIC (MS-DOS)
	Liberty BASIC
	Locomotive BASIC (Amstrad CPC)
	MSX-Basic
	Omikron Basic (Atari ST)
	Oric Extended Basic
	Power Basic
	Quick Basic/QBasic (MS-DOS)
	Sinclair BASIC (ZX80, ZX81, ZX Spectrum)
	ST BASIC (Atari ST)
	Turbo Basic
	Vintage BASIC
	VBScript
	Visual Basic (VB)
	Visual Basic .NET (VB .NET)
	Visual Basic pour DOS
	Yabasic

Section courante

A propos

Section administrative du site