Publication par le contexte (publish/subscribe)

Syfre (discuter | contributions)
(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... »)
Modification suivante →

---

Version du 1 juillet 2014 à 10:43

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 :

Whos here now:   Members 0   Guests 0   Bots & Crawlers 1