Utiliser le with, ou pas pour un simple create

Version imprimable

08/11/2017, 11h30
Papy214

Utiliser le with, ou pas pour un simple create
Bonjour

Entre :
Code:

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

Code:

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:

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 ?
08/11/2017, 12h28
Andnotor
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:

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 ?
08/11/2017, 12h52
Papy214
Citation:

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:

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
---------------------------

Est-ce un service que tu développes ou pas :koi:
Tu n'as pas à instancier le service toi-même...

Si ça n'en est pas un :

Code:

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.

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:

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}

08/11/2017, 14h20
Papy214

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à ?

et au bout du compte,

Code:

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.

08/11/2017, 14h28
Andnotor

J'ai essayé ton code et il fonctionne.

Donc à part un SrcEvent vide, je ne vois pas !

EDIT: ok ;)
08/11/2017, 14h29
Papy214

essaie avec toto@machin dans le SrcEvent
08/11/2017, 14h52
Andnotor

Ok avec @ mais pas &.

Je peux pas t'en dire plus ;)
08/11/2017, 14h55
Papy214

ça ne fait que confirmer que j'ai pas de bol . :ptdr:

le seul caractère à ne pas utiliser, je m'en suis servi