BeginCapture (CTX)
De Wiki1000
(Différences entre les versions)
(Page créée avec « <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éi... ») |
|||
| Ligne 46 : | Ligne 46 : | ||
UserContext.EndCapture; | UserContext.EndCapture; | ||
end; | end; | ||
| − | |||
end; | end; | ||
</source> | </source> | ||
Voir aussi | Voir aussi | ||
| − | * [[ | + | * [[EndCapture (CTX)|Terminer la capture des messages]] |
{{Footer|Contexte utilisateur_(code)}} | {{Footer|Contexte utilisateur_(code)}} | ||
[[category:Contexte utilisateur]] | [[category:Contexte utilisateur]] | ||
[[category:Latest]] | [[category:Latest]] | ||
Version du 17 juillet 2014 à 08:59
procedure BeginCapture;
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 :
//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;
Voir aussi
