Syfre le 1 juillet 2014 à 09:50

2014-07-01T09:50:45Z

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

@@ Ligne 28 : / Ligne 28 : @@
 <source lang="delphi">
 unit TestMultisociete;
 interface
 Type
-   Handlers = Class(TitObject)
+   TRegisterTestMultiSociete = Class(TitObject)
    public
      Procedure HandlerDatabaseChange(const iTopic:string; const iEvent:Variant);
      Procedure HandlerSocietyChange(const iTopic:string; const iEvent:Variant);
-     Class Procedure RegisterHandlers;
+     Class Procedure Initialize;
    end;
 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);
 begin
@@ Ligne 50 : / Ligne 49 : @@
 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);
 begin
@@ Ligne 56 : / Ligne 55 : @@
 end;
-Class Procedure Handlers.RegisterHandlers;
+Class Procedure TRegisterTestMultiSociete.Initialize;
-//Class Procedure RegisterHandlers;
+//Class Procedure Initialize;
-var inst:Handlers;
+var inst:TRegisterTestMultiSociete;
 begin
    inst := UserContext.getObject('handlers');
    if not Assigned(inst) then
     begin
-      inst := Handlers.Create;
+      inst := TRegisterTestMultiSociete.Create;
       UserContext.SetObject('handlers',inst);
       inst.subscribe('//sys/AfterDatabaseChange','HandlerDatabaseChange');
@@ Ligne 69 : / Ligne 69 : @@
     end;
 end;
 end.

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