TsgcWSPServer_sgc › Événements › OnBeforeSubscription
Se déclenche avant qu'un abonnement ne soit accepté ; le gestionnaire peut le refuser ou l'autoriser.
property OnBeforeSubscription: TsgcWSBeforeSubscriptionEvent;
// TsgcWSBeforeSubscriptionEvent = procedure(Connection: TsgcWSConnection; const Subscription: String; var Accept: Boolean) of object
—
Déclenché lorsqu'un client appelle Subscribe, une fois par canal (les abonnements avec caractères génériques sont développés avant le déclenchement de l'événement). Inspectez Subscription pour vérifier le nom du canal et définissez Accept à False pour refuser l'abonnement ; le client ne reçoit alors aucune confirmation d'abonnement. Accept arrive initialisé à True.
procedure TForm1.oProtocolBeforeSubscription(Connection: TsgcWSConnection;
const Subscription: String; var Accept: Boolean);
begin
Accept := not Subscription.StartsWith('admin.');
end;