CreateTaskEvent (TdbmEvent) - Historique des versions

Syfre le 5 décembre 2024 à 10:12

2024-12-05T10:12:05Z

Syfre le 29 mars 2020 à 15:29

2020-03-29T15:29:37Z

Syfre le 4 juin 2019 à 14:25

2019-06-04T14:25:03Z

Syfre le 4 juin 2019 à 14:16

2019-06-04T14:16:42Z

Syfre : Page créée avec « class procedure CreateTaskEvent(const iQueuName:string; const iParameter:string; iArgs:Array of variant); Cette méthode de classe crée un... »

2019-06-04T13:20:03Z

Page créée avec « <source lang='delphi'>class procedure CreateTaskEvent(const iQueuName:string; const iParameter:string; iArgs:Array of variant);</source> Cette méthode de classe crée un... »

Nouvelle page

<source lang='delphi'>class procedure CreateTaskEvent(const iQueuName:string; const iParameter:string; iArgs:Array of variant);</source>

Cette méthode de classe crée un évènement de type tâche.

Le type de l'évènement est TASK

{|class="wikitable"
|-
|iQueueName
|Nom de la file d'attente
|-
|iParameter
|Paramètre de l'identifiant du message
|-
|iArgs
|Alimente les paramètres de l'évènement par la méthode [[AddParameterArray (TdbmEvent)|AddParameterArray]]
|}

L'identifiant de l'évènement sera :

$iQueueName.task.iParameter

Exemple :

<source lang='delphi'>
begin
// => id = $myqueue.task.myoperation.start
TdbmEvent.CreateTaskEvent('myqueue', 'myoperation.start', ['name1','value1','name2',2]);
end;
</source>

Voir aussi :

* [[CreateCustomEvent (TdbmEvent)|CreateCustomEvent]]

[[Category:TdbmEvent]]

← Version précédente		Version du 5 décembre 2024 à 10:12
Ligne 76 :		Ligne 76 :

	* [[CreateCustomEvent (TdbmEvent)\|CreateCustomEvent]]		* [[CreateCustomEvent (TdbmEvent)\|CreateCustomEvent]]
		+	* [[TTask.Subscribe_(TitTask)\|Subscribe]]

	[[Category:TdbmEvent]]		[[Category:TdbmEvent]]

@@ Ligne 1 : / Ligne 1 : @@
-<source lang='delphi'>class procedure CreateTaskEvent(const iQueuName:string; const iParameter:string; iNames:Array of variant; iValues:Array of variant);</source>
+<source lang='delphi'>class procedure CreateTaskEvent(const iEventId:string; iNames:Array of variant; iValues:Array of variant);</source>
-Cette méthode de classe crée un évènement de type tâche.
+Cette méthode de classe crée un événement de type tâche.
-Le type de l'évènement est TASK
+Le type de l'événement est TASK
 {|class="wikitable"
 |-
-|iQueueName
+|iEventId
-|Nom de la file d'attente
+|identifiant de l'événement
-|-
-|iParameter
-|Paramètre de l'identifiant du message
 |-
 |iNames
@@ Ligne 19 : / Ligne 16 : @@
 |Tableau de valeurs de paramètre de l'évènement
 |}
 Exemple :
@@ Ligne 28 : / Ligne 21 : @@
 <source lang='delphi'>
-// call back class to be executed on event
+// Task to be triggered by an event
 Type
-   OnMyOperationEvent = class(TitTask)
+   TMyOperationEvent = class(TitTask)
      function Execute():Integer;
-     function RegisterThisTask;
+     class function RegisterThisTask;
    end;
-function OnMyOperationEvent.Execute():Integer;
+function TMyOperationEvent.Execute():Integer;
 var idx:Integer; S:string; aMsg:TdbmQueueMessage;
 begin
@@ Ligne 66 : / Ligne 60 : @@
 end;
-function OnMyOperation.RegisterThisTask;
+class function TMyOperation.RegisterThisTask;
 var aReason:string;
 begin
-   if not SubscribeToEvent('task.myoperation.start',aReason) then
+   if not SubscribeToEvent(TMyOperation.OnStartId(),aReason) then
     showMessage('subscribe failed '+aReason);
 end;
-// operation code which fire event
+class procedure TMyOperation.Start;
-//
-procedure MyOperation.Start;
 begin
-  doStart(...);
+   TdbmEvent.CreateTaskEvent(TMyOperation.OnStartId(), ['name1','name2'],['value1',2]);
-−
-  // create start event
-  // => id = $myqueue.task.myoperation.start
-  //
-   TdbmEvent.CreateTaskEvent('myqueue_not_used_by_task', 'myoperation.start', ['name1','name2'],['value1',2]);
 end;
 </source>

@@ Ligne 1 : / Ligne 1 : @@
-<source lang='delphi'>class procedure CreateTaskEvent(const iQueuName:string; const iParameter:string; iArgs:Array of variant);</source>
+<source lang='delphi'>class procedure CreateTaskEvent(const iQueuName:string; const iParameter:string; iNames:Array of variant; iValues:Array of variant);</source>
 Cette méthode de classe crée un évènement de type tâche.
@@ Ligne 13 : / Ligne 13 : @@
 |Paramètre de l'identifiant du message
 |-
-|iArgs
+|iNames
-|Alimente les paramètres de l'évènement par la méthode [[AddParameterArray (TdbmEvent)|AddParameterArray]]
+|Tableau de noms de paramètre de l'évènement
 |}
@@ Ligne 26 : / Ligne 29 : @@
 begin
    // => id = $myqueue.task.myoperation.start
-   TdbmEvent.CreateTaskEvent('myqueue', 'myoperation.start', ['name1','value1','name2',2]);
+   TdbmEvent.CreateTaskEvent('myqueue', 'myoperation.start', ['name1','name2'],['value1',2]);
 end;
 </source>