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

Syfre le 29 mars 2020 à 13:59

2020-03-29T13:59:09Z

← Version précédente		Version du 29 mars 2020 à 13:59
Ligne 14 :		Ligne 14 :
	Function Execute():boolean;		Function Execute():boolean;
	Procedure RegisterCallBack;		Procedure RegisterCallBack;
			Procedure UnRegister;
	end;		end;

Ligne 56 :		Ligne 57 :
	if not SubscribeToEvent(TTestTask.OnTerminateSuccessID(),aReason) then		if not SubscribeToEvent(TTestTask.OnTerminateSuccessID(),aReason) then
	showMessage('subscribe failed '+aReason);		showMessage('subscribe failed '+aReason);
			end;

			Procedure TestTaskCallBack.UnRegister;
			//Procedure UnRegister;
			var aReason:string;
			begin
			if not UnSubscribeFromEvent(TTestTask.OnTerminateSuccessID(),aReason) then
			showMessage(aReason);
	end;		end;

Syfre le 29 mars 2020 à 13:54

2020-03-29T13:54:33Z

← Version précédente		Version du 29 mars 2020 à 13:54
Ligne 10 :		Ligne 10 :

	Type		Type
	TestTaskCallBack = Class(~~TitObject~~)		TestTaskCallBack = Class(TitTask)
	public		public
	Function Execute():boolean;		Function Execute():boolean;

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]]

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

Syfre le 29 mars 2020 à 13:59

Syfre le 29 mars 2020 à 13:54

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

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