Publication par le contexte (publish/subscribe)

Le contexte utilisateur publie certains évènements.

Ces messages sont publiés sous le sujet :

//sys/nom_de_l_évènement

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é

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.

Voir aussi :