Création d'un callback de tâche (task) - Historique des versions

Syfre le 29 mars 2020 à 13:59

2020-03-29T13:59:09Z

Syfre le 29 mars 2020 à 13:54

2020-03-29T13:54:33Z

Syfre : Page créée avec « Un callback de tâche est une tâche déclenchée par la fin de l'exécution d'une autre tâche. {{Tip|Un callback doit être enregistré, une fois suffit.}} Exemple : ... »

2020-03-29T13:54:02Z

Page créée avec « Un callback de tâche est une tâche déclenchée par la fin de l'exécution d'une autre tâche. {{Tip|Un callback doit être enregistré, une fois suffit.}} Exemple : ... »

Nouvelle page

Un callback de tâche est une tâche déclenchée par la fin de l'exécution d'une autre tâche.

{{Tip|Un callback doit être enregistré, une fois suffit.}}

Exemple :

<source lang="delphi">
unit TestSYFREWF;
interface

Type
TestTaskCallBack = Class(TitObject)
public
Function Execute():boolean;
Procedure RegisterCallBack;
end;

Implementation

{TestTaskCallBack}

Function TestTaskCallBack.Execute():boolean;
//Function Execute():boolean;
var idx:Integer; S:string; aMsg:TdbmQueueMessage;
begin
Result := True;

// Add messages to the log
ProgressMessage('On TestTask Terminate');

if Assigned(UserContext.TaskContext) and Assigned(userContext.TaskContext.EventContext) then
begin
userContext.TaskContext.AddMessage('Has Task context');
//
aMsg := userContext.TaskContext.EventContext.ReceivedMsg;
if Assigned(aMsg) then
begin
userContext.TaskContext.AddMessage(Format('Task reference: %s',[aMsg.ValueByNames(':message.source.reference')]));
userContext.TaskContext.AddMessage(Format('Message parameters count:%d',[aMsg.Count]));
for idx:=0 to aMsg.Count-1 do
begin
S := aMsg.DisplayStrings(idx);
UserContext.TaskContext.AddMessage(S);
end;
end;
end
else ProgressMessage('no task context');

Result := True;
end;

Procedure TestTaskCallBack.RegisterCallBack;
//Procedure RegisterCallBack;
var aReason:string;
begin
if not SubscribeToEvent(TTestTask.OnTerminateSuccessID(),aReason) then
showMessage('subscribe failed '+aReason);
end;

end.
</source>

[[Category:Stéréotype tâche]]
[[Category:File d'attente]]
[[Category:Version900]]

@@ Ligne 14 : / Ligne 14 : @@
      Function Execute():boolean;
      Procedure RegisterCallBack;
    end;
@@ Ligne 56 : / Ligne 57 : @@
    if not SubscribeToEvent(TTestTask.OnTerminateSuccessID(),aReason) then
     showMessage('subscribe failed '+aReason);
 end;

@@ Ligne 10 : / Ligne 10 : @@
 Type
-   TestTaskCallBack = Class(TitObject)
+   TestTaskCallBack = Class(TitTask)
    public
      Function Execute():boolean;