TsgcWSPServer_sgc › Zdarzenia › OnBeforeSubscription
Wywoływane przed zaakceptowaniem subskrypcji; procedura obsługi może ją odrzucić lub zatwierdzić.
property OnBeforeSubscription: TsgcWSBeforeSubscriptionEvent;
// TsgcWSBeforeSubscriptionEvent = procedure(Connection: TsgcWSConnection; const Subscription: String; var Accept: Boolean) of object
—
Wywoływane, gdy klient wywołuje Subscribe, raz na kanał (subskrypcje z symbolami wieloznacznymi są rozwijane przed wywołaniem zdarzenia). Należy sprawdzić Subscription, aby zweryfikować nazwę kanału, i ustawić Accept na False, aby odmówić subskrypcji; w takim przypadku klient nie otrzyma potwierdzenia subskrypcji. Parametr Accept jest inicjowany wartością True.
procedure TForm1.oProtocolBeforeSubscription(Connection: TsgcWSConnection;
const Subscription: String; var Accept: Boolean);
begin
Accept := not Subscription.StartsWith('admin.');
end;