Syfre le 1 juillet 2014 à 09:50

2014-07-01T09:50:45Z

← Version précédente		Version du 1 juillet 2014 à 09:50
Ligne 28 :		Ligne 28 :

	<source lang="delphi">		<source lang="delphi">

	unit TestMultisociete;		unit TestMultisociete;
	interface		interface

	Type		Type
	~~Handlers~~ = Class(TitObject)		TRegisterTestMultiSociete = Class(TitObject)
	public		public
	Procedure HandlerDatabaseChange(const iTopic:string; const iEvent:Variant);		Procedure HandlerDatabaseChange(const iTopic:string; const iEvent:Variant);
	Procedure HandlerSocietyChange(const iTopic:string; const iEvent:Variant);		Procedure HandlerSocietyChange(const iTopic:string; const iEvent:Variant);
	Class Procedure ~~RegisterHandlers~~;		Class Procedure Initialize;
	end;		end;

	Implementation		Implementation

	{~~Handlers~~}		{TRegisterTestMultiSociete}

	Procedure ~~Handlers~~.HandlerDatabaseChange(const iTopic:string; const iEvent:Variant);		Procedure TRegisterTestMultiSociete.HandlerDatabaseChange(const iTopic:string; const iEvent:Variant);
	//Procedure HandlerDatabaseChange(const iTopic:string; iEvent:Variant);		//Procedure HandlerDatabaseChange(const iTopic:string; iEvent:Variant);
	begin		begin
Ligne 50 :		Ligne 49 :
	end;		end;

	Procedure ~~Handlers~~.HandlerSocietyChange(const iTopic:string; const iEvent:Variant);		Procedure TRegisterTestMultiSociete.HandlerSocietyChange(const iTopic:string; const iEvent:Variant);
	//Procedure HandlerSocietyChange(const iTopic:string; const iEvent:Variant);		//Procedure HandlerSocietyChange(const iTopic:string; const iEvent:Variant);
	begin		begin
Ligne 56 :		Ligne 55 :
	end;		end;

	Class Procedure ~~Handlers~~.~~RegisterHandlers~~;		Class Procedure TRegisterTestMultiSociete.Initialize;
	//Class Procedure ~~RegisterHandlers~~;		//Class Procedure Initialize;
	var inst:~~Handlers~~;		var inst:TRegisterTestMultiSociete;
	begin		begin
			showMessage('Register');
	inst := UserContext.getObject('handlers');		inst := UserContext.getObject('handlers');
	if not Assigned(inst) then		if not Assigned(inst) then
	begin		begin
	inst := ~~Handlers~~.Create;		inst := TRegisterTestMultiSociete.Create;
	UserContext.SetObject('handlers',inst);		UserContext.SetObject('handlers',inst);
	inst.subscribe('//sys/AfterDatabaseChange','HandlerDatabaseChange');		inst.subscribe('//sys/AfterDatabaseChange','HandlerDatabaseChange');
Ligne 69 :		Ligne 69 :
	end;		end;
	end;		end;


	end.		end.

Syfre : Page créée avec « Le contexte utilisateur publie certains évènements. Ces messages sont publiés sous le sujet : //sys/nom_de_l_évènement {|class="wikitable" |- !Evènement !Déclen... »

2014-07-01T09:43:39Z

Page créée avec « Le contexte utilisateur publie certains évènements. Ces messages sont publiés sous le sujet : //sys/nom_de_l_évènement {|class="wikitable" |- !Evènement !Déclen... »

Nouvelle page

Le contexte utilisateur publie certains évènements.

Ces messages sont publiés sous le sujet :

//sys/nom_de_l_évènement

{|class="wikitable"
|-
!Evènement
!Déclenchement
|-
|BeforeDisconnect
|
|-
|AfterConnect
|
|-
|BeforeDatabaseChange
|La base de données par défaut va changer
|-
|AfterDatabaseChange
|La base de données par défaut à changé
|-
|AfterShareContextChange
|Le contexte société à changé
|}

<source lang="delphi">

unit TestMultisociete;
interface

Type
Handlers = Class(TitObject)
public
Procedure HandlerDatabaseChange(const iTopic:string; const iEvent:Variant);
Procedure HandlerSocietyChange(const iTopic:string; const iEvent:Variant);
Class Procedure RegisterHandlers;
end;

Implementation

{Handlers}

Procedure Handlers.HandlerDatabaseChange(const iTopic:string; const iEvent:Variant);
//Procedure HandlerDatabaseChange(const iTopic:string; iEvent:Variant);
begin
ShowMessage('DatabaseChange');
end;

Procedure Handlers.HandlerSocietyChange(const iTopic:string; const iEvent:Variant);
//Procedure HandlerSocietyChange(const iTopic:string; const iEvent:Variant);
begin
ShowMessage('SocietyChange');
end;

Class Procedure Handlers.RegisterHandlers;
//Class Procedure RegisterHandlers;
var inst:Handlers;
begin
inst := UserContext.getObject('handlers');
if not Assigned(inst) then
begin
inst := Handlers.Create;
UserContext.SetObject('handlers',inst);
inst.subscribe('//sys/AfterDatabaseChange','HandlerDatabaseChange');
inst.subscribe('//sys/AfterShareContextChange','HandlerSocietyChange');
end;
end;

end.
</source>

Voir aussi :

[[Category:Publish/Subscribe]]

Publication par le contexte (publish/subscribe) - Historique des versions

Syfre le 1 juillet 2014 à 09:50

Syfre : Page créée avec « Le contexte utilisateur publie certains évènements. Ces messages sont publiés sous le sujet : //sys/nom_de_l_évènement {|class="wikitable" |- !Evènement !Déclen... »

Syfre : Page créée avec « Le contexte utilisateur publie certains évènements. Ces messages sont publiés sous le sujet : //sys/nom_de_l_évènement {|class="wikitable" |- !Evènement !Déclen... »