Traçabilité de la connexion (tutoriel Pilotes délégués)
Remonter à Tutoriel : Utilisation des pilotes délégués dbExpress
Pour pouvoir effectuer la traçabilité de l'activité de la connexion, vous devez définir le paramètre DelegateConnection de la connexion.
Il y a plusieurs façons de procéder :
- Modifiez les propriétés du composant TSQLConnection en utilisant l'inspecteur d'objets.
- Modifiez la connexion en utilisant l'explorateur de données.
- Ajoutez la ligne
DelegateConnection=DBXTraceConnectionà la section [DGCONNECTION] du fichier dbxconnections.ini.
Conseil : Si vous voulez effectuer la traçabilité et la mise en pool d'une connexion en modifiant le fichier dbxconnections.ini, vous le trouverez dans
C:\Utilisateurs\Public\Documents\Embarcadero\Studio\20.0\dbExpress\20.0.
La méthode la plus facile consiste à modifier les propriétés de TSQLConnection en utilisant l'inspecteur d'objets.
A l'étape précédente, la propriété Driver du TSQLConnection SQLConnection1 a été automatiquement définie sur Interbase quand la propriété ConnectionName a été définie sur DGCONNECTION.
Allez maintenant sur la propriété DelegateConnection et définissez-la sur DBXTrace, en utilisant son menu déroulant. Vous verrez que DelegateName est automatiquement définie sur DBXTrace. Définissez la propriété TraceFile sur "c:\temp\dbxtrace.txt". Un fichier .txt sera créé à cet emplacement et le journal sera écrit ici.
Vous pouvez activer et désactiver les indicateurs de la propriété TraceFlags pour changer les éléments à tracer. Pour voir les instructions du journal au niveau du pilote, vous devez définir la propriété TraceDriver sur True.
Conseil : Si vous utilisez une application console et que le paramètre
TraceFilen'est pas spécifié, la sortie est présentée sur la fenêtre console.
La connexion sera maintenant tracée et un fichier journal sera créé selon le paramètre TraceFile.
Pour tester la traçabilité de la connexion, exécutez l'application et établissez la connexion à DGCONNECTION. Le fichier de sortie devrait ressembler à ceci :
Log Opened ==========================================
{CONNECT } ConnectionC1.GetConnectionProperties;
{CONNECT } ConnectionC1.Open;
{COMMAND } CommandC1_1 := ConnectionC1.CreateCommand;
{COMMAND } CommandC1_1.CommandType := 'Dbx.MetaData';
{COMMAND } CommandC1_1.Text := 'GetTables "c:\Embarcadero\InterBase\examples\database\employee.gdb"."sysdba".% Table;View;';
{COMMAND } ReaderC1_1_1 := CommandC1_1.ExecuteQuery;
{READER } {CatalogName TDBXTypes.WideString }
{READER } {SchemaName TDBXTypes.WideString }
{READER } {TableName TDBXTypes.WideString }
{READER } {TableType TDBXTypes.WideString }
{READER } { ReaderC1_1_1 closed. 11 row(s) read }
{READER } FreeAndNil(ReaderC1_1_1);
{COMMAND } FreeAndNil(CommandC1_1);
{CONNECT } ConnectionC1.GetConnectionProperty;
Le fichier journal présente le code source Delphi réel qui est exécuté.