Utiliser le with, ou pas pour un simple create

**Papy214** · 08/11/2017, 11h30

Bonjour

Entre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  with Vcl.SvcMgr.TEventLogger.Create(SrcEvent) do
    LogMessage(Msg, EVENTLOG_INFORMATION_TYPE);

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Vcl.SvcMgr.TEventLogger.Create(SrcEvent).LogMessage(Msg, EVENTLOG_INFORMATION_TYPE);

vous prenez quoi ?

Quelle différence cachée cela peut-il engendrer ?

D'ailleurs, en complément,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
procedure WriteEventLog(Msg: string);
begin
  with Vcl.SvcMgr.TEventLogger.Create(SrcEvent) do
    LogMessage(Msg, EVENTLOG_INFORMATION_TYPE);
end;

n'ajoute rien dans le journal de Windows. Une idée du pourquoi ?

**Andnotor** · 08/11/2017, 12h28

TService a une méthode LogMessage, tu n'as pas besoin de créer toi-même un TEventLogger.

Sinon, with doit apporter une simplification du code, éviter une répétition. Pour une utilisation unique, il est inutile.

Mais dans ton cas, il manque la libération du TEventLogger, with devient obligatoire puisqu'il n'y a pas de variable assignée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure WriteEventLog(Msg: string);
begin
  with Vcl.SvcMgr.TEventLogger.Create(SrcEvent) do
  try
    LogMessage(Msg, EVENTLOG_INFORMATION_TYPE);
  finally
    Free;
  end;
end;

A part ça, ce code est fonctionnel. Tu regarde bien sous Journaux Windows -> Application ?

**Papy214** · 08/11/2017, 12h52

Envoyé par Andnotor

TService a une méthode LogMessage, tu n'as pas besoin de créer toi-même un TEventLogger.

A part ça, ce code est fonctionnel. Tu regarde bien sous Journaux Windows -> Application ?

Oui je regarde bien au bon endroit du journal.

et tu l'écrirais comment alors ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
procedure WriteEventLog(Msg: string);
begin
  with Vcl.SvcMgr.TService.Create(nil) do
  begin
    LogMessage(Msg, EVENTLOG_INFORMATION_TYPE);
    Free;
  end;
end;

retourne une erreur:

---------------------------
Importlistener
---------------------------
Ressource TService non trouvée.
---------------------------
OK
---------------------------

**Andnotor** · 08/11/2017, 13h29

Est-ce un service que tu développes ou pas

Tu n'as pas à instancier le service toi-même...

Si ça n'en est pas un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure LogEvent(aEventName, aText: string; aEventType :word = EVENTLOG_INFORMATION_TYPE);
var
  Handle :THandle;
  PMsg   :PChar;
 
begin
  Handle := RegisterEventSource(nil, PChar(aEventName));
 
  if Handle <> 0 then
  try
    PMsg := PChar(aText);
    ReportEvent(Handle, aEventType, 0, 1, nil, 1, 0, @PMsg, nil);
  finally
    DeregisterEventSource(Handle);
  end;
end;

Si tu ne vois toujours rien dans le journal, voir MSDN.

**Papy214** · 08/11/2017, 14h14

Ce n'est pas un service.

Alors, ton code fonctionne. Mais je pige pas pourquoi le TEventLogger ne le fait pas.

Si je vais dans le code de Vcl.SvcMgr , on trouve la même chose ( entre le $ELSE et le $ENDIF )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
procedure TEventLogger.LogMessage(Message: String; EventType: DWord;
  Category: Word; ID: DWord);
{$IF DEFINED(CLR)}
var
  P, PP: IntPtr;
begin
  if FEventLog = 0 then
    FEventLog := RegisterEventSource(nil, FName);
  P := Marshal.StringToHGlobalAuto(Message);
  try
    PP := Marshal.AllocHGlobal(SizeOf(IntPtr));
    try
      Marshal.WriteIntPtr(PP, P);
      ReportEvent(FEventLog, EventType, Category, ID, nil, 1, 0, PP, nil);
    finally
      Marshal.FreeHGlobal(PP);
    end;
  finally
    Marshal.FreeHGlobal(P);
  end;
end;
{$ELSE}
var
  P: Pointer;
begin
  P := PChar(Message);
  if FEventLog = 0 then
    FEventLog := RegisterEventSource(nil, PChar(FName));
  ReportEvent(FEventLog, EventType, Category, ID, nil, 1, 0, @P, nil);
end;
{$ENDIF}

**Papy214** · 08/11/2017, 14h20

argh .... Je viens de tester en modifiant le nom de la source et ça fonctionne.
Le nom de l’événement comporte un & et dans ce cas ça ne fonctionne pas.
Si je l'enlève, l’événement est bien dans le journal.

C'est documenté quelque part ce truc là ?

**Papy214** · 08/11/2017, 14h21

et au bout du compte,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure WriteEventLog(Msg: string);
begin
  with Vcl.SvcMgr.TEventLogger.Create(SrcEvent) do
  begin
    LogMessage(Msg, EVENTLOG_INFORMATION_TYPE);
    Free;
  end;
end;

fonctionne très bien.