CreateTaskEvent (TdbmEvent) - Historique des versions

Syfre le 5 décembre 2024 à 10:12

2024-12-05T10:12:05Z

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

Syfre le 29 mars 2020 à 15:29

2020-03-29T15:29:37Z

← Version précédente		Version du 29 mars 2020 à 15:29
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"		{\|class="wikitable"
	\|-		\|-
	\|~~iQueueName~~		\|iEventId
	\|~~Nom de la file d'attente~~		\|identifiant de l'événement
	\|-
	~~\|iParameter~~
	~~\|Paramètre~~ de l'~~identifiant du message~~
	\|-		\|-
	\|iNames		\|iNames
Ligne 19 :		Ligne 16 :
	\|Tableau de valeurs de paramètre de l'évènement		\|Tableau de valeurs de paramètre de l'évènement
	\|}		\|}

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

	~~$iQueueName.task.iParameter~~

	Exemple :		Exemple :
Ligne 28 :		Ligne 21 :
	<source lang='delphi'>		<source lang='delphi'>

	// ~~call back class~~ to be ~~executed on~~ event		// Task to be triggered by an event
	Type		Type
	~~OnMyOperationEvent~~ = class(TitTask)		TMyOperationEvent = class(TitTask)
	function Execute():Integer;		function Execute():Integer;
	function RegisterThisTask;		class function RegisterThisTask;
			class procedure Start;
	end;		end;

	function ~~OnMyOperationEvent~~.Execute():Integer;		function TMyOperationEvent.Execute():Integer;
	var idx:Integer; S:string; aMsg:TdbmQueueMessage;		var idx:Integer; S:string; aMsg:TdbmQueueMessage;
	begin		begin
Ligne 66 :		Ligne 60 :
	end;		end;

	function ~~OnMyOperation~~.RegisterThisTask;		class function TMyOperation.RegisterThisTask;
	var aReason:string;		var aReason:string;
	begin		begin
	if not SubscribeToEvent(~~'task~~.~~myoperation.start'~~,aReason) then		if not SubscribeToEvent(TMyOperation.OnStartId(),aReason) then
	showMessage('subscribe failed '+aReason);		showMessage('subscribe failed '+aReason);
	end;		end;

	~~// operation code which fire event~~		class procedure TMyOperation.Start;
	//
	procedure ~~MyOperation~~.Start;
	begin		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;		end;
	</source>		</source>

Syfre le 4 juin 2019 à 14:25

2019-06-04T14:25:03Z

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

Syfre le 4 juin 2019 à 14:16

2019-06-04T14:16:42Z

← Version précédente		Version du 4 juin 2019 à 14:16
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.		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		\|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
			\|-
			\|iValues
			\|Tableau de valeurs de paramètre de l'évènement
	\|}		\|}

Ligne 26 :		Ligne 29 :
	begin		begin
	// => id = $myqueue.task.myoperation.start		// => id = $myqueue.task.myoperation.start
	TdbmEvent.CreateTaskEvent('myqueue', 'myoperation.start', ['name1','~~value1~~','~~name2~~',2]);		TdbmEvent.CreateTaskEvent('myqueue', 'myoperation.start', ['name1','name2'],['value1',2]);
	end;		end;
	</source>		</source>

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

CreateTaskEvent (TdbmEvent) - Historique des versions

Syfre le 5 décembre 2024 à 10:12

Syfre le 29 mars 2020 à 15:29

Syfre le 4 juin 2019 à 14:25

Syfre le 4 juin 2019 à 14:16

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

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