Syfre le 17 avril 2013 à 09:39

2013-04-17T09:39:57Z

← Version précédente		Version du 17 avril 2013 à 09:39
Ligne 12 :		Ligne 12 :
	\|}		\|}

	{{tip\|Cette fonction est utile pour ~~consommer~~ les objets par une boucle First/Next sans être bloqué par un message "poison"}}		{{tip\|Cette fonction est utile pour
			* Anticiper la valeur du sujet lorsqu'elle est utilisée avec un topic comportant une partie variable
			* Consommer les objets par une boucle First/Next sans être bloqué par un message "poison"
			}}

	Exemple :		Exemple :
Ligne 29 :		Ligne 32 :
	if Assigned(obj) then		if Assigned(obj) then
	begin		begin
			// We can do some check on the actual topic of the queue object
			// we keep obj for the GetNext, so we used an other instance
	todo := MyQueue.deQueue(obj.queueTopic);		todo := MyQueue.deQueue(obj.queueTopic);
			// the object may has been consumed by an other process, so we have to check it again.
	if Assigned(todo) then		if Assigned(todo) then
	begin		begin
Ligne 35 :		Ligne 41 :
	if Assigned(inst) then		if Assigned(inst) then
	try		try
	// ~~check~~ requeue		// This is a test case for requeue capability
	if inst.unEntier=21 then raise Exception.Create('check error');		if inst.unEntier=21 then raise Exception.Create('check error');
	//		//
	S := S+stag+inst.unCode;		S := S+stag+inst.unCode;
	stag := ',';		stag := ',';
	~~// Check to test requeue~~
	// delete this queue object		// delete this queue object
	todo.DeleteThisObject;		todo.DeleteThisObject;
	except		except
	// on error requeue the object with the same topic		// on error requeue the object with the same topic
			// The object will not been retreive in the next loop turn because of the GetNext
	todo.ReQueue('');		todo.ReQueue('');
	end;		end;

Syfre : Page créée avec « class function GetFirst(const iTopic:string):TQueueObject; Cette fonction retourne le premier objet prêt de la file d'attente sans le cons... »

2013-04-16T14:12:23Z

Page créée avec « <source lang='delphi'>class function GetFirst(const iTopic:string):TQueueObject;</source> Cette fonction retourne le premier objet prêt de la file d'attente sans le cons... »

Nouvelle page

<source lang='delphi'>class function GetFirst(const iTopic:string):TQueueObject;</source>

Cette fonction retourne le premier objet prêt de la file d'attente sans le consommer.

{|class="wikitable"
|-
|Result
|Le premier objet non consommée de la file pour le sujet.
|-
|iTopic
|Nom de sujet demandé.
|}

{{tip|Cette fonction est utile pour consommer les objets par une boucle First/Next sans être bloqué par un message "poison"}}

Exemple :

<source lang='delphi'>

//Procedure TestInQueue;
var sel:TSelector; obj,todo:MyQueue; inst:WFClasseA; S,stag:string;
begin
sel := WFClasseA.CreateSelector('unEntier>%1','',true,[10]);
sel.InQueue('MyQueue','wfclassea/@oid');

S := ''; stag := '';
obj := MyQueue.GetFirst('');
Repeat
if Assigned(obj) then
begin
todo := MyQueue.deQueue(obj.queueTopic);
if Assigned(todo) then
begin
inst := todo.queueRef as WFClasseA;
if Assigned(inst) then
try
// check requeue
if inst.unEntier=21 then raise Exception.Create('check error');
//
S := S+stag+inst.unCode;
stag := ',';
// Check to test requeue
// delete this queue object
todo.DeleteThisObject;
except
// on error requeue the object with the same topic
todo.ReQueue('');
end;
end;
end;
//
obj := MyQueue.GetNext('',obj);
Until not Assigned(obj);

showMessage(S);
end;
</source>

Voir aussi

*[[Dequeue (TStereotypeClassQueue)|Consommer un objet de la file]]
*[[GetNext (TStereotypeClassQueue)|Retourner l'objet suivant de la file]]

{{Footer|Classe_file_d'attente_(stereotype)}}
[[Category:Stéréotype file d'attente]]

GetFirst (TStereotypeClassQueue) - Historique des versions

Syfre le 17 avril 2013 à 09:39

Syfre : Page créée avec « class function GetFirst(const iTopic:string):TQueueObject; Cette fonction retourne le premier objet prêt de la file d'attente sans le cons... »

Syfre : Page créée avec « class function GetFirst(const iTopic:string):TQueueObject; Cette fonction retourne le premier objet prêt de la file d'attente sans le cons... »