BeginCapture (CTX)

<source lang='delphi'>procedure BeginCapture;</source>

Démarre la capture des messages.

• Si une capture était déjà en cours la liste des messages capturés est réinitialisée.
• Lorsqu'un processus est exécuté dans le cadre d'un automate ou d'un processus métier la capture n'est pas possible, les messages ne sont pas capturés.

Exemple :

<source lang='delphi'> //Procedure TestCaptureMessages; var S:String; idx:Integer; ls:TStringList; begin

 // This message will not be captured
 ProgressMessage('Msg-0');
 // Start capture
 UserContext.BeginCapture;
 try
   // Simulate message from processus
   ProgressMessage('Msg-1');
   ProgressMessage('Msg-2');
   // Add a message
   UserContext.AddMessage('Msgs-3');

   // Get messages with a loop
   S := ;
   for idx:=0 to UserContext.MessageCount-1 do
    S := S+UserContext.Messages[idx];
   ShowMessage(S);

   // Copy message in a string list    
   ls := TStringList.Create;
   UserContext.GetMessages(ls);
   ShowMessage(ls.Text);

   // Clear the captured message list
   UserContext.ClearMessages;

   // The list is empty
   S := ;
   for idx:=0 to UserContext.MessageCount-1 do
    S := S+UserContext.Messages[idx];
   ShowMessage(S);

 finally
 UserContext.EndCapture;
 end;

end; end; </source>

Voir aussi

• Terminer la capture des messages

{{#if:Contexte utilisateur_(code)|

{{#if:Contexte utilisateur_(code)|— Contexte utilisateur_(code) |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM —

}}