TsgcWSPServer_sgc › イベント › OnBeforeSubscription
サブスクリプションが受け入れられる前に発生します。ハンドラーはそれを拒否または承認できます。
property OnBeforeSubscription: TsgcWSBeforeSubscriptionEvent;
// TsgcWSBeforeSubscriptionEvent = procedure(Connection: TsgcWSConnection; const Subscription: String; var Accept: Boolean) of object
—
クライアントが Subscribe を呼び出したときに、チャンネルごとに一度発生します (ワイルドカードサブスクリプションはイベントが発生する前に展開されます)。Subscription を検査してチャンネル名を確認し、サブスクリプションを拒否するには Accept を False に設定します。その場合、クライアントはサブスクライブの確認を受け取りません。Accept は True で初期化されます。
procedure TForm1.oProtocolBeforeSubscription(Connection: TsgcWSConnection;
const Subscription: String; var Accept: Boolean);
begin
Accept := not Subscription.StartsWith('admin.');
end;