Écrire dans le journal des événements dans Delphi

Question

Comment puis-je obtenir une application pour écrire du texte de débogage dans la fenêtre Event Log de l'EDI Delphi (Borland Developer Studio 2006)?

Comment changer la couleur du texte?

Answer 1

OutputDebugString ('Bonjour, monde');

Je pense que vous devrez peut-être ajouter Windows à votre liste 'uses'. Pas sûr à 100% sur cela ...

La couleur de texte ne peut pas être changée autant que je sache: C'est une caractéristique de l'IDE de Delphi qu'il ajoute des messages supplémentaires dans cette fenêtre pour le début/arrêt de fil, charge de DLL/décharger, avec leur propre couleur spécifique.

Answer 2

Oui, vous pouvez utiliser OutputDebugString.

Si vous souhaitez obtenir des fonctionnalités plus puissantes pour contrôler et gérer la sortie de débogage, comme un filtre de mise en évidence, vous devez utiliser DebugView.

Remarque: DebugView ne peut pas capturer le journal de débogage lorsque vous exécutez votre application dans l'EDI Delphi.

Answer 3

procedure Write2EventLog(Source,Msg: string); 
var h: THandle; 
    ss: array [0..0] of pchar; 
begin 
    ss[0] := pchar(Msg); 
    h := RegisterEventSource(nil, // uses local computer 
      pchar(Source));   // source name 
    if h <> 0 then 
     ReportEvent(h,   // event log handle 
      EVENTLOG_ERROR_TYPE, // event type 
      0,     // category zero 
      0,  // event identifier 
      nil,     // no user security identifier 
      1,     // one substitution string 
      0,     // no data 
      @ss,  // pointer to string array 
      nil);    // pointer to data 
    DeregisterEventSource(h); 
end; 

Answer 4

En dehors de ce qui a été dit (à savoir OutputDebugString et en utilisant DebugView au lieu de la visionneuse intégrée de journal), vous pouvez changer la couleur des messages dans la vue du journal via les options. Le moyen le plus simple d'y parvenir est de cliquer avec le bouton droit de la souris dans le volet de journal et de sélectionner "Propriétés" dans le menu contextuel. Sur l'onglet qui apparaîtra, vous pouvez définir la couleur à utiliser pour "Output Debug Strings" dans la section "Colors". Évidemment, cela va changer la couleur de tous les messages émis via OutputDebugString - il ne permettra pas la coloration individuelle. Pour cela, vous feriez mieux d'utiliser les filtres de DebugView.