TTask.Subscribe (TitTask)

(Version 11) <source lang='delphi'>class function Subscribe(const iEventID:string; iAttributes:Array of string; iValues:Array of variant):boolean;</source>

Cette fonction abonne la classe de la tâche à un évènement.

La tâche sera exécutée à chaque fois que l'évènement est déclenché jusqu'au désabonnement de la tâche.

Paramètre	Usage
iEventID	Identifiant de l'évènement sur lequel abonner la tâche
iAttributes	Un tableau de propriété de la tâche qui seront initialisée lorsque la tâche sera déclenchée
iValues	Un tableau de valeur correspondant aux attributs initialisés
Result	True si la tâche a été posté

Tip : Un seul abonnement est possible par couple EventID, SourceID.

Tip : Cette fonction nécessite que la gestion des tâches soit configurée

Exemple :

<source lang="delphi"> Type

 // manage my job
 MyFacade = class(TitObject)
  class function GetMyJobActionEventId:string;
  class procedure CreateEvent(const iEvent:string; obj:TitObject);
  class procedure CreateEventWithParams(const iEvent:string; obj:TitObject; aParamsName:Array of string; aParamsValue:Array of variant);
 end;

class function MyFacade.GetMyJobActionEventId:string; begin

 Result := 'task.myjob.myaction.%';

end;

class procedure MyFacade.CreateEvent(const iEvent:string; obj:TitObject); begin

 MyFacade.CreateEventWithParams(iEvent, obj, [], []);

end;

class procedure MyFacade.CreateEventWithParams(const iEvent:string; obj:TitObject; aParamsName:Array of string; aParamsValue:Array of variant); var

 aEvent:string;
 vParamsName : Array of string;
 vParamsValue : Array of variant;

begin

 if Copy(iEvent,length(iEvent)-2,2)='.%'
  then aEvent := Copy(iEvent,1,length(iEvent)-2)
  else aEvent := iEvent;

 vParamsName := aParamsName;
 vParamsValue := aParamsValue;
 if Assigned(obj)
  then TdbmEvent.CreateTaskEvent(Format('%s.%s',[aEvent,obj.InstanceOID]),vParamsName,vParamsValue)
  else TdbmEvent.CreateTaskEvent(aEvent,vParamsName,vParamsValue);

end;

//Procedure TestRegisterTasks; begin

 // Register my task subscription
 MyTask.Subscribe(MyFacade.GetMyJobActionEventId,['unCode','unEntier'],['X',2]);

end;

//Procedure MyClass.foo(); begin

 // generate an event to trigger the task
 myFacade.CreateEventWidthParams(MyFacade.GetMyJobActionEventId, thisObject, ['unCode','unEntier'],[unCode,unEntier]);

end; </source>

Voir aussi:

• CreateTaskEvent

{{#if:Classe_tâche_(stereotype)|

{{#if:Classe_tâche_(stereotype)|— Classe_tâche_(stereotype) |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM —

}}