ExecuteOnEvent (TitTask)

Syfre (discuter | contributions)
(Page créée avec « <source lang='delphi'>function ExecuteOnEvent(const iEventID:string; var aReason:string):boolean;</source> Cette fonction exécute la tâche sur un évènement. La tâch... »)

---

Version actuelle en date du 24 mai 2019 à 10:38

function ExecuteOnEvent(const iEventID:string; var aReason:string):boolean;

Cette fonction exécute la tâche sur un évènement.

La tâche sera exécutée une fois.

Paramètre	Usage
iEventID	Identifiant de l'évènement déclenchant l'exécution de la tâche
aReason	Informations sur l'erreur
Result	True si la tâche a été posté

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

Exemple :

//Procedure CreateActivity;
var inst:TdbfActivity; instN:OnActivityEvent; aReason:string;
begin
  // Create a user activity 
  //
  withP Transaction do
   begin
     inst := TdbfActivity.Create;
     inst.Caption := 'Activité with event';
     inst.AddParameter('param1','Value1'); 
     inst.AddParameter('param2',2); 
     inst.AttachUser(glbUserName,True);
   end; 
 
  // Create a task executed when the activity is finished.
  // 
  instN := OnActivityEvent.Create;
  instN.ActivityRef := inst; 
  if not instN.ExecuteOnEvent(inst.OnTerminateID,aReason) then
   begin
     ShowMessage('Post onTerminate task failed:'+aReason);
   end; 
end;

Voir aussi:

• SubscribeToEvent

— Classe_tâche_(stereotype) — Développement DSM —