BeginCapture (CTX)

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

Contexte utilisateur_(code)Développement DSM

Outils personnels