BeginCapture (CTX) - Historique des versions

Syfre : Remplacement du texte — « category:Latest » par « Category:Version700 »

2015-01-13T10:11:20Z

Remplacement du texte — « category:Latest » par « Category:Version700 »

Syfre le 17 juillet 2014 à 07:59

2014-07-17T07:59:09Z

Syfre : Page créée avec « procedure BeginCapture; Démarre la capture des messages. * Si une capture était déjà en cours la liste des messages capturés est réi... »

2014-07-17T07:54:58Z

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

Nouvelle page

<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
* [[EndCaptute (CTX)|Terminer la capture des messages]]

{{Footer|Contexte utilisateur_(code)}}
[[category:Contexte utilisateur]]
[[category:Latest]]

@@ Ligne 54 : / Ligne 54 : @@
 {{Footer|Contexte utilisateur_(code)}}
 [[category:Contexte utilisateur]]
-[[category:Latest]]
+[[Category:Version700]]

@@ Ligne 46 : / Ligne 46 : @@
    UserContext.EndCapture;
    end;
 end;
 </source>
 Voir aussi
-* [[EndCaptute (CTX)|Terminer la capture des messages]]
+* [[EndCapture (CTX)|Terminer la capture des messages]]
 {{Footer|Contexte utilisateur_(code)}}
 [[category:Contexte utilisateur]]
 [[category:Latest]]